vinsen
10 de Julio del 2003

Muy buenas a tod@s:

Tengo una cadena que la divide en varias partes segun "=>", es decir:

String = "aa => bbb => ccc"

pero tambien puede ser:

String = "aa => bbb"

o incluso:

String = "aa"

Como puedo hacer que me lo divida en partes segun va encontrando "=>"

Muchas gracias

Eduardo
10 de Julio del 2003

Private Sub Form_Load()
Dim Texto As String, I As Integer, N As Integer
Texto = "aa => bb => c = > d => Cd<="
N = 1
Do
I = InStr(N, Texto, "=>")
If I > 0 Then
MsgBox ("*" + Mid(Texto, N, I - N) + "*")
N = I + 2
End If
Loop While I > 0
MsgBox ("*" + Mid(Texto, N) + "*")
End Sub
'Suerte!!!