StringRegExp Help Please

[Oldschool]

I'm trying to read of prices from lines that look like this:

Item Price [$16.96].#92378654906#

Dim $aRecords
If Not _FileReadToArray("text.txt",$aRecords) Then
   MsgBox(4096,"Error", " Error reading log to Array     error:" & @error)
   Exit
EndIf

For $y = 1614 to $aRecords[0] 
    ;Msgbox(0,'Record:' & $x, $aRecords[$x])
    If StringInStr($aRecords[$y], "$") Then
        Local $price = StringRegExp($aRecords[$y],"(?i)e"&Chr(32)&Chr(91)&"$(.*)"&Chr(93), 0)
        MsgBox(0, "", $price, 1) ;<<===Item Price
        ;ExitLoop
    EndIf
Next

I get no error, MsgBox returns zero. It does not like the brackets [] I suppose.

How do I fix this please?

[Kerros]

it's not perfect, but should point you in the right direction.

Local $price = StringRegExp($aRecords[$y],"(.*[$.*])", 0)

Maybe someone with with better regex will give you better example

Edited December 20, 2007 by Kerros

[Oldschool]

it's not perfect, but should point you in the right direction.

Local $price = StringRegExp($aRecords[$y],"(.*[$.*])", 0)

Maybe someone with with better regex will give you better example

The above does not work..

If slightly modified it returns the whole string:

Local $price = StringRegExp($aRecords[$y],"(.*[$.*])", 3)
MsgBox(0, "", $price[0], 1)

I need to grab the digits only....

[Kerros]

Well this is going to return an array of everything after the $ upto the trailing bracket.

Local $price = StringRegExp($aRecords[$y],"(\$\d{1,}.\d{2,})", 3)

That should work. messy, but should work.

Edited December 20, 2007 by Kerros

[Oldschool]

Well this is going to return an array of everything after the $ upto the trailing bracket.

Local $price = StringRegExp($aRecords[$y],"(\$\d{1,}.\d{2,})", 3)

That should work. messy, but should work.

Thanks, I'll test it out in a sec...

I got it working with the StringSplit instead for now.

For $y = $aRecords[0] - 40 to $aRecords[0] 
    If StringInStr($aRecords[$y], "$") Then
        Local $var = StringSplit($aRecords[$y], Chr(91) & Chr(36), 1) 
        Local $var1 = StringSplit($var[2], Chr(93), 1)
                MsgBox(0, "", $var1[1])
    EndIf   
Next

[Xenobiologist]

Hi,

(?<=\[\$)\d*\.\d*(?=\])

So long,

Mega

[SmOke_N]

Hi,

(?<=\[\$)\d*\.\d*(?=\])

So long,

Mega

That's an interesting approach... here's another:

#include <array.au3>
$sString = "Item Price [$16.96].#92378654906#"
$aSRE = StringRegExp($sString, "\[\$([\d,\.]+)\]", 3)
_ArrayDisplay($aSRE)