USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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
 


CyberWEB Network Ltda.    © Copyright 2000-2020   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página