[Creat0R]

получил вот такой вариант: »

Так будет правильнее:

Код:

$sFile1 = "1.txt"
$sFile2 = "2.txt"

$hFile1 = FileOpen($sFile1, 0)
$hFile2 = FileOpen($sFile2, 2)

$i = 0

While 1
    $i += 1
    $sText = FileReadLine($hFile1, $i)
    If @error <> 0 Then ExitLoop

    $sResult = StringRegExpReplace($sText, "\s+?([0-9,?]+).*", "\1")
    If @extended > 0 Then FileWriteLine($hFile2, $sResult)
WEnd

FileClose($hFile1)
FileClose($hFile2)