Becoming crazy about StringRegExp

[Noobster24]

Hi,

i want to check if this sentence is in a txt-file.

Sentence:

<CENTER><BR>Result more than 50 records. Please, specify parameters of search.</CENTER><BR><BR>

I exspected this code to work, but it doesn't :S

$file = FileOpen('C:\Documents and Settings\Beheerder\Bureaublad\Andreas\Custom \~ OSS ~\office 2003.txt',0)

$test = StringRegExp ($file, '(.*)<CENTER><BR>Result more than 50 records. Please, specify parameters of search.</CENTER><BR><BR>(.*)',0)

If $test = 1 Then

MsgBox(0,"ja","ja")

Else

MsgBox(0,"Nee","nee")

EndIf

What's wrong with my pattern?

greetings,

Andreas

[w0uter]

.* means IIRC one or more .

try it without those (.*)'s

Edited June 16, 2006 by w0uter

[SmOke_N]

Hi,

i want to check if this sentence is in a txt-file.

Sentence:

I exspected this code to work, but it doesn't :S

What's wrong with my pattern?

greetings,

Andreas

do you just want: Result more than 50 records. Please, specify parameters of search. or all of it: <CENTER><BR>Result more than 50 records. Please, specify parameters of search.</CENTER><BR><BR>?

[Noobster24]

do you just want: Result more than 50 records. Please, specify parameters of search. or all of it: <CENTER><BR>Result more than 50 records. Please, specify parameters of search.</CENTER><BR><BR>?

The whole sentence, so:

<CENTER><BR>Result more than 50 records. Please, specify parameters of search.</CENTER><BR><BR>

The source of a website is written into a txt-file, i want to check if this sentence is in the txt-file...

[Noobster24]

.* means IIRC one or more .

try it without those (.*)'s

Okay, i'll try...

edit: Nope, doesn't work..

Edited June 16, 2006 by Noobster24

[SmOke_N]

Okay, i'll try...

edit: Nope, doesn't work..

Here try this:

$file = @DesktopDir & '\sre_test.txt'
$FindThis = '<CENTER><BR>Result more than 50 records. Please, specify parameters of search.</CENTER><BR><BR>'
If _SRE_Find($file, $FindThis) Then
    MsgBox(0, 'Info:', 'Found')
EndIf


Func _SRE_Find($s_FilePath, $s_Find)
    $h_FRead = FileRead($s_FilePath, FileGetSize($s_FilePath))
    $vFound = StringRegExp($h_FRead, '(?:' & $s_Find & ')')
    If $vFound Then Return $vFound
    Return 0
EndFunc

Edit:

Obviously you want to change the $File (location/name)

Edited June 16, 2006 by SmOke_N

[Noobster24]

Here try this:

$file = @DesktopDir & '\sre_test.txt'
$FindThis = '<CENTER><BR>Result more than 50 records. Please, specify parameters of search.</CENTER><BR><BR>'
If _SRE_Find($file, $FindThis) Then
    MsgBox(0, 'Info:', 'Found')
EndIf
Func _SRE_Find($s_FilePath, $s_Find)
    $h_FRead = FileRead($s_FilePath, FileGetSize($s_FilePath))
    $a_Array = StringRegExp($h_FRead, '(?:' & $s_Find & ')')
    If $a_Array Then Return $a_Array
    Return 0
EndFunc

I'll test it right now, i just want a 1 (true) returns if the sentence is found in the file or a 0 (false) if the sentence isn't found, not the place of the sentence.

i'll keep you informed...

Edit: It works, thank you!

Edited June 16, 2006 by Noobster24

[Noobster24]

Here try this:

$file = @DesktopDir & '\sre_test.txt'
$FindThis = '<CENTER><BR>Result more than 50 records. Please, specify parameters of search.</CENTER><BR><BR>'
If _SRE_Find($file, $FindThis) Then
    MsgBox(0, 'Info:', 'Found')
EndIf
Func _SRE_Find($s_FilePath, $s_Find)
    $h_FRead = FileRead($s_FilePath, FileGetSize($s_FilePath))
    $vFound = StringRegExp($h_FRead, '(?:' & $s_Find & ')')
    If $vFound Then Return $vFound
    Return 0
EndFunc

Edit:

Obviously you want to change the $File (location/name)

Yeah, i know i must change the $File