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:  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
 


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