|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Datas/Números/Strings)
|
|
 |
Título da Dica: Retorna a String apartir de uma posição
|
 |
|
|
|
Postada em 1/10/2003 por Roßerto
Exemplo:
Private Sub Command1_Click()
MsgBox GetToken("roberto@vbweb.com.br", 2, "@") 'retorna "vbweb.com.br"
MsgBox GetToken("123-45-6789", 2, "-") 'retorna "45"
MsgBox GetToken("first,middle,last", 3, ",") ' retorna "last"
End Sub
Função:
Function GetToken(ByVal strVal As String, intIndex As Integer, _
strDelimiter As String) As String
Dim strSubString() As String
Dim intIndex2 As Integer
Dim i As Integer
Dim intDelimitLen As Integer
intIndex2 = 1
i = 0
intDelimitLen = Len(strDelimiter)
Do While intIndex2 > 0
ReDim Preserve strSubString(i + 1)
intIndex2 = InStr(1, strVal, strDelimiter)
If intIndex2 > 0 Then
strSubString(i) = Mid(strVal, 1, (intIndex2 - _
1))
strVal = Mid(strVal, (intIndex2 + _
intDelimitLen), Len(strVal))
Else
strSubString(i) = strVal
End If
i = i + 1
Loop
If intIndex > (i + 1) Or intIndex < 1 Then
GetToken = ""
Else
GetToken = strSubString(intIndex - 1)
End If
End Function
|
|
|
|
|
