MANIPULACAO DE STRINGS

JEANCOELHO 25/09/2010 20:31:02
#353850
Boa noite, preciso de alguma dica ou ideia de como eu faço pra conseguir o que tem entre 2 strings no text, exemplo: Hj é um bom dia para se pescar, gostaria de exibir o que esta entre [Ô]bom dia[Ô] e [Ô]pescar[Ô] que seria [Ô]para se[Ô]...


desde já grato.
ROBIU 25/09/2010 23:00:49
#353853 Resposta escolhida
Montei esta função para seu tópico:

Function EntrePalavras(Texto As String, sInicio As String, sFim As String) As String
    Dim MyStr As String, Tamanho As Integer
    MyStr = Mid(Texto, InStr(1, Texto, sInicio) + Len(sInicio))
    Tamanho = (InStr(1, MyStr, sFim) - 1)
    If Tamanho > 1 Then MyStr = Mid(MyStr, 1, Tamanho)
    EntrePalavras = MyStr
End Function


Segue exemplo anexo
JEANCOELHO 26/09/2010 11:28:51
#353870
Nossa cara muito orbigado msm!
JEANCOELHO 27/10/2010 20:29:34
#356100
Bom o codigo do nosso companheiro ROBIU funciono muito bem agora alguem alguma dica pra eu fazer essa busca se houver mais de 1 ocorrencia, tipo no text teria
hoje é um bom dia para se pescar
hoje fizemos linguiça e fomos pescar


ai resgatar os 2 valores


é um bom dia para se
fizemos linguiça e fomos


valew
Tópico encerrado , respostas não são mais permitidas
Voltar