|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Miscelâneas)
|
|
 |
Título da Dica: Função Split para VB5
|
 |
|
|
|
Postada em 14/8/2004 por Tekki
'O Split já é nativo no VB6
Public Function Split(ByVal Texto, Optional ByVal SearchStr As String = " ") As Variant
Dim Words() As String, i As Integer
Dim j As Integer, k As Integer
If Len(Texto) Then
k = 0
i = InStr(Texto, SearchStr)
j = 1
Do While i
ReDim Preserve Words(0 To k)
Words(k) = Mid(Texto, j, i - j)
k = k + 1
j = i + 1
i = InStr(j, Texto, SearchStr)
Loop
ReDim Preserve Words(0 To k)
Words(k) = Mid(Texto, j, Len(Texto))
Else
ReDim Words(-1 To -1)
End If
Split = Words
End Function
'----------------------------------------------------
'Algumas formas de se usar esta função:
'Para separar as palavras de um texto.
Dim sTexto As Variant
sTexto = Split("Vovô viu a uva.", " ")
For i = 0 To UBound(sTexto)
MsgBox sTexto(i)
Next
'Para pegar a extenção de um arquivo:
sTexto = Split("C:WindowsSystem32MinhaPastaMeuArquivoMinhaHP.Html", ".")
MsgBox "A extenção do arquivo é: " & sTexto(UBound(sTexto))
Você informa onde quer quebrar a string informando o caractere delimitador e a função gera um array
|
|
|
|
|
