String auslesen

stringmid() und stringinstr()

sind dein Freund!

dim $liste[2]=["http://www.autoit.de/index.php?page=Index","http://www.codeproject.com/KB/dotnet/regextutorial.aspx"]

for $i=0 to ubound($liste)-1
$ersterpunkt=stringinstr($liste[$i],".",1,1)
$zweiterpunkt=stringinstr($liste[$i],".",1,2)
$domain=stringmid($liste[$i],$ersterpunkt+1,$zweiterpunkt-$ersterpunkt-1)
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $domain = ' & $domain & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console
next

Du kannst auch alternativ StringRegExp benutzen:

Dim $s[2]

$s[0] = "http://www.autoit.de/index.php?page=Index"
$s[1] = "http://www.codeproject.com/KB/dotnet/regextutorial.aspx"

For $i = 0 To 1
$a = StringRegExp($s[$i], "[^\.]+\.([^\.]+)", 3)
MsgBox(0, "StringRegExp: " & $i + 1, $a[0])
Next