|
|
Postada em 21/10/2008 10:47 hs
Tá na mão. Essa função separa a tua string para jogar na tua sub, a SeparaDados.
Private Sub Separa_Texto(TextoTotal As String)
Dim Continua As Boolean
Dim Inicio As Long
Dim Fim As Long
Dim Texto As String
'
Continua = True
Inicio = 1
Fim = -4
'
Do While Continua
Inicio = InStr(Fim + 5, TextoTotal, "name")
Fim = InStr(Inicio + 10, TextoTotal, "name") - 5
If Fim < 0 Then Fim = Len(TextoTotal)
If Inicio = 0 Then Exit Sub
'
Texto = Mid(TextoTotal, Inicio, Fim - Inicio)
SepararDados (Texto)
'
If Fim = Len(TextoTotal) Then Continua = False
'
Loop
'
End Sub
Private Sub Command1_Click()
Separa_Texto (Text1.Text)
End Sub
__________________
"It is the way of men to make monsters...and it is the nature of
monsters to destroy their makers."
-F.E.A.R. (First Encounter Assault Recon )
|
|
TÓPICO EDITADO
|
|
|
|
|
|
|
|
Postada em 21/10/2008 14:07 hs
amigo nao deu certo.. eu recebo toda string de uma unica vez,
nao vem linha por linha..
tenho que separar tudo. de uma vez..
|
|
|
|
|
|
Postada em 21/10/2008 14:59 hs
Não entendi... este código recebe aquela string q vc postou como exemplo na primeira página e separou as strings em 3 blocos, cada um começando com o "name"
Talvez se vc postar um exemplo de string q vc recebe, da pra fazer algo certo.
__________________
"It is the way of men to make monsters...and it is the nature of
monsters to destroy their makers."
-F.E.A.R. (First Encounter Assault Recon )
|
|
|
|
|
|
Postada em 21/10/2008 15:32 hs
Defina a propriedade dos textbox para multiline e adicione a sua String conforme vc mostrou na primeira mensagem.
Depois é só usar o SPlit.
Dim R As Integer
Dim S As Integer
Dim B As Long
For R = 1 To 600
S = 0
If Mid(Text1.Text, R, 4) = "name" Then
S = R
Do While Mid(Text1.Text, S, 7) <> "address"
B = B + 1
S = S + 1
Loop
'Cada loop que ele passar por aqui é uma linha
Text2.Text = Mid(Text1.Text, R, B)
R = S
B = 0
End If
Next
|
|
|
|
|
