|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Datas/Números/Strings)
|
|
 |
Título da Dica: Retirar palavra de uma String
|
 |
|
|
|
Postada em 5/11/2003 por Brexuega
Frase = "Olá VBWEB"
Pal = 0
neste exemplo a função Palavra(Frase, Pal) retornaria "Olá"
Pal = 1
Palavra(Frase, Pal) = "VBWEB"
----------------------------------------------------------------------
Public Function Palavra(ByVal Frase As String, ByVal Pal As Integer) As String
Dim i As Integer, NSpace As Integer, j As Integer
Dim tmpPalavra As String
NSpace = 0
Frase = Frase + " "
For i = 1 To Len(Frase)
If NSpace = Pal Then
For j = i To Len(Frase)
If Mid(Frase, j, 1) <> " " Then
tmpPalavra = tmpPalavra + Mid(Frase, j, 1)
Else
Palavra = tmpPalavra
Exit Function
End If
Next j
Else
If Mid(Frase, i, 1) = " " Then NSpace = NSpace + 1
End If
Next i
Palavra = tmpPalavra
End Function
----------------------------------------------------------------------
¥ ADS
|
|
|
|
|
