Extract strings from text

[myspacee 0]

hello,

Searching help to extract some word between delimeters. I've more than 300 files by day to watch,

and try to make script that extract some info i need.

I semplify my text to this exaple :

asdaasdaasdaasdaasdaasdaasda>lion<asdaasdaasdaasdaasdaasdaasdaasdaasdaasda>zebra<asdaasdaasdaasdaasdaasdaasda>cat<asdaasdaasdaasdaasdaasdaasdaasdaasda>armadillo<asdaasdaasdaasdaasdaasdaasdaasda

as you can see in text, there are some delimeters : > <

I try to extract all text between > < symbols, and obtain this list:

>lion<
>zebra<
>cat<
>armadillo<

but need some help.

Thank you for any info,

m.

[wolf9228 52]

hello,

Searching help to extract some word between delimeters. I've more than 300 files by day to watch,

and try to make script that extract some info i need.

I semplify my text to this exaple :

asdaasdaasdaasdaasdaasdaasda>lion<asdaasdaasdaasdaasdaasdaasdaasdaasdaasda>zebra<asdaasdaasdaasdaasdaasdaasda>cat<asdaasdaasdaasdaasdaasdaasdaasdaasda>armadillo<asdaasdaasdaasdaasdaasdaasdaasda

as you can see in text, there are some delimeters : > <

I try to extract all text between > < symbols, and obtain this list:

>lion<
>zebra<
>cat<
>armadillo<

but need some help.

Thank you for any info,

m.

$Text = "asdaasdaasdaasdaasdaasdaasda>lion<asdaasdaasdaasdaasdaasdaasdaasdaasdaasda>zebra<asdaasdaasdaasdaasdaasdaasda>cat<asdaasdaasdaasdaasdaasdaasdaasdaasda>armadillo<asdaasdaasdaasdaasdaasdaasdaasda"

MsgBox(0,"MSG",Extract($Text))

Func Extract($Text,$delimeterA = ">" ,$delimeterB = "<")
Local $ExtractText = ""
For $i = 1 To StringLen($Text)
$CharA = StringMid($Text,$i,1)
if $CharA == $delimeterA Then
For $j = $i + 1 To StringLen($Text)
$CharB = StringMid($Text,$j,1)
if $CharB == $delimeterB Then
$ExtractText &= StringMid($Text,$i + 1,($j - $i) - 1) & @CRLF
ExitLoop
Else
ContinueLoop
EndIf
Next
Else
ContinueLoop
EndIf
Next
Return $ExtractText
EndFunc

Edited March 27, 2011 by wolf9228

[Varian 7]

Here is one example:

#include <Array.au3>
$String = 'asdaasdaasdaasdaasdaasdaasda>lion<asdaasdaasdaasdaasdaasdaasdaasdaasdaasda>zebra<asdaasdaasdaasdaasdaasdaasda>cat<asdaasdaasdaasdaasdaasdaasdaasdaasda>armadillo<asdaasdaasdaasdaasdaasdaasdaasda'

$Array = StringRegExp($String, '>[^<>]+<', 3)
If IsArray($Array) Then _ArrayDisplay($Array)

[myspacee 0]

thank you both, works like a charm

m.