MANIPULACAO DE STRING
Ae pessoal, to com um problemas besta, mas num to conseguindo resolver completamente.
Pelo winsock eu recebo a seguinte string "[login]usuario:senha" meu problema é dividir a parte [login] numa variavel, e usuario e senha em outras duas. Ja tentei usando o Left, right, instr mas ainda não saiu perfeito, outro problema é q esse texto pode variar de tamanho, o q impede a precisão do meu processo.
Gostaria de uma solução para isso (deve haver outras funções mais praticas que essas). Poste ae quem souber!
Abraços
LEOx
Pelo winsock eu recebo a seguinte string "[login]usuario:senha" meu problema é dividir a parte [login] numa variavel, e usuario e senha em outras duas. Ja tentei usando o Left, right, instr mas ainda não saiu perfeito, outro problema é q esse texto pode variar de tamanho, o q impede a precisão do meu processo.
Gostaria de uma solução para isso (deve haver outras funções mais praticas que essas). Poste ae quem souber!
Abraços
LEOx
Private Sub Command1_Click()
Dim Text As String, login As String, user As String, pwd As String
Let Text = "[login]usuario:senha"
MsgBox Mid(Text, 1, InStr(Text, "]"))
Text = Mid(Text, InStr(Text, "]") + 1)
Let login = Text
MsgBox Mid(Text, 1, InStr(Text, ":") - 1)
Text = Mid(Text, InStr(Text, ":") + 1)
Let user = Text
MsgBox Mid(Text, 1)
Let pwd = Text
End Sub
Dim Text As String, login As String, user As String, pwd As String
Let Text = "[login]usuario:senha"
MsgBox Mid(Text, 1, InStr(Text, "]"))
Text = Mid(Text, InStr(Text, "]") + 1)
Let login = Text
MsgBox Mid(Text, 1, InStr(Text, ":") - 1)
Text = Mid(Text, InStr(Text, ":") + 1)
Let user = Text
MsgBox Mid(Text, 1)
Let pwd = Text
End Sub
Tópico encerrado , respostas não são mais permitidas