Alvaro Teixeira 10/9/2014, 11:01
Olá, altere o código do ficheiro acima por este (a negrito alteração):
Private Sub Comando0_Click()
meuFicheiro = Application.CurrentProject.Path & "\31140961490561002901550100005802211387902291.xml"
Open meuFicheiro For Input As #1
Do Until EOF(1)
Line Input #1, textoLinha
textoXml = textoXml & textoLinha
Loop
Dim i As Long, j As Long
Dim strInico, strFim, strSaida As String
Dim tf, contador As Integer
strInicio = ""
strFim = ""
i = 1
j = 1
tf = InStrRev(textoXml, strInicio)
contador = 0
calc:
i = InStr(i, textoXml, strInicio)
j = InStr(j, textoXml, strFim)
strSaida = Mid(textoXml, i + Len(strInicio), j - i - Len(strInicio))
i = i + 1
j = j + 1
contador = contador + 1
MsgBox strSaida
If i <> tf + 1 Then
GoTo calc
End If
MsgBox "total contador: " & contador
Close #1
End Sub
Abraço