Get links from a .txt file

[ffdshow]

I have a text file which contains one link per line, but the links are prefixed and suffixed with some characters.

The suffixes are not a problem since they all contains exactly 20 characters. Prefixes contains different number of characters.

Example:

ghjgrjd.rar;http://www.netload.in/dateiGivoLSefgq/ghjgrjd.rar.htm;100 MB;2;31.05.2010
wrdrtv.rar;http://www.netload.in/dateixXm3I1wopv/wrdrtv.rar.htm;100 MB;2;31.05.2010

The problem is that the prefixes have different length from line to line and a script like this

$inputfile = FileOpen(@ScriptDir & "\input.txt", 0)
$outputfile = FileOpen(@ScriptDir & "\output.txt", 1)
While 1
$line = FileReadLine($inputfile)
If @error Then ExitLoop
$result = StringTrimLeft($line, 12)
If StringLen($line) = 0 Then FileWriteLine ($outputfile, "")
If StringLen($line) > 0 Then FileWriteLine ($outputfile, $result)
Wend
FileClose ($inputfile)
FileClose ($outputfile)

will not help.

Is possible to extract all links to a text file (one link per line) ?

Edited June 2, 2010 by ffdshow

[somdcomputerguy]

If those semicolons are consistent, use StringSplit.

[UEZ]

One possibility might be this:

$inputfile = FileOpen(@ScriptDir & "\input.txt", 0)
$outputfile = FileOpen(@ScriptDir & "\output.txt", 1)
Global $o
While 1
    $line = FileReadLine($inputfile)
    If @error Then ExitLoop
    $aRegEx = StringRegExp($line, ';(http:\/\/.*);.*;.*;', 1)
    If IsArray($aRegEx) Then $o &= $aRegEx[0] & @CRLF
Wend
FileWrite($outputfile, $o)
FileClose ($inputfile)
FileClose ($outputfile)

BR,

UEZ

Edited June 2, 2010 by UEZ

[ffdshow]

Thanks UEZ! Works fine.

[EnderWiggin]

One possibility might be this:

$inputfile = FileOpen(@ScriptDir & "\input.txt", 0)
$outputfile = FileOpen(@ScriptDir & "\output.txt", 1)
Global $o
While 1
    $line = FileReadLine($inputfile)
    If @error Then ExitLoop
    $aRegEx = StringRegExp($line, ';(http:\/\/.*);.*;.*;', 1)
    If IsArray($aRegEx) Then $o &= $aRegEx[0] & @CRLF
Wend
FileWrite($outputfile, $o)
FileClose ($inputfile)
FileClose ($outputfile)

BR,

UEZ

This code example was useful to me as well; thanks very much.