capturar partes de uma string

[davisvasconcellos 0]

preciso capturar determinadas partes de texto em uma string com uma específica marcação. no caso entre << texto >>.

 

Exemplo:

Mussum ipsum cacilds, vidis litro abertis. Consetis adipiscings elitis. Pra lá , depois divoltis porris, paradis. Paisis, filhis, <<espiritis santis>>. Mé faiz elementum girarzis, nisi eros vermeio, in <<elementis>> mé pra quem é amistosis quis leo. Manduma pindureta quium dia nois paga. Sapien in <<monti>> palavris qui num significa nadis i pareci latim. Interessantiss quisso pudia ce receita de bolis, mais bolis eu num gostis.

 

neste caso eu capturaria:

<<espiritis santis>> , <<elementis>> , <<monti>>

 

pode ser até para um array q eu me viro.

já olhei o regex , instr , mid, mas to meio perdido.

 

Alguém tem um help?

 

ps. essa string não é de tamanho fixo, por isso não posso contar a posição do caracter e sempre na mesma posição capturar. tb o conteúdo entre << >> muda e por isso não posso pegar os X caracteres...

[xanburzum 169]

acesse este link

[davisvasconcellos 0]

acesse este link

 

já olhei o laboratório de scripts e vasculhei no form até a pág 10.

 

este link tem as funções de replace. eu não quero replace. quero pegar o valor entre as marcações << >>

[xanburzum 169]

você quer localizar os caracteres << >> e pegar o que esta entre eles ?

use assim,

 

 

Function pegachar(ByRef Str)
   Dim i, j, k
   i = InStr(1, Str, "<<", 1)
   If i = 0 Then
       pegachar = ""
       Exit Function
   End If
   j = InStr(i, Str, ">>", 1)
   If j < i Then
       pegachar = ""
       Exit Function
   End If
   k = InStr(i + 1, Str, ">")
   If k < i Or k > j Then
       pegachar = ""
       Exit Function
   End If
   pegachar = Mid(Str, k + 1, j - (k + 1))
   pegachar = TrimChop(NoScripts(StripTags(pegachare)))
End Function

[davisvasconcellos 0]

vou tentar. na verdade quero capturar todos os links ou todos os conteúdos de uma determinada tag dentro de um arquivo html ou txt...

 

essa sua função captura só uma ocorrência ou posso utiliza-la para capturar todas ?