New String Parser!

[erifash]

After searching on the forums and help file I have created a string parser that only uses two lines of code. I made it because I needed to parse some html for a web-spider i'm making that harvests links and such...

Okay:

$sz_str = string to parse

$sz_before = text that comes before the info you want

$sz_after = text that comes after the info you want

Func _Parse($sz_str, $sz_before, $sz_after)
  Local $sz_sp1 = StringSplit($sz_str, $sz_before, 1), $sz_sp2 = StringSplit($sz_sp1[$sz_sp1[0]], $sz_after, 1)
  Return $sz_sp2[1]
EndFunc

Any comments/questions are greatly appreciated!

[Insolence]

Eh, regexp is probably a bit faster. If this was introduced before, it would've been much more appriciated

Good idea, bad timing.

[erifash]

Good idea, bad timing.

<{POST_SNAPBACK}>

Thanks anyway. Edited April 30, 2005 by erifash

[Insolence]

Happens to the best of us

[erifash]

Here's the example: (it actually works!)

$url = "http://www.google.com"
$file = "html.txt"
If not _INetActive() Then Exit
InetGet($url, $file)
$html = FileRead($file, FileGetSize($file))
FileDelete($file)
MsgBox(0, "_Parse() - " & $url, _Parse($html, "Google - Searching ", " web pages"))

Func _Parse($sz_str, $sz_before, $sz_after)
  Local $sz_sp1 = StringSplit($sz_str, $sz_before, 1), $sz_sp2 = StringSplit($sz_sp1[$sz_sp1[0]], $sz_after, 1)
  Return $sz_sp2[1]
EndFunc

Func _INetActive()
  If @IPAddress1 <> "127.0.0.1" Then Return 1
  Return 0
EndFunc

[steveR]

Could be useful to people who don't know regexp. But if someone doesn't know regexp, they are missing out on a powerful tool.

[layer]

I just made a script THIS morning... It count's the number of links on a webpage. But I want to write one in C++ now

[randallc]

OK, so can you enlighten me on "regexp"; how are you using this? - part of Autoit or accessed by it?

Thanks, Randall

[Insolence]

It's in the beta, look in the help file for 'StringRegExp'