[madmasles]

У меня первоначальный вариант был длиннее, плохо разбираюсь в "pattern", но воспользовавшись как всегда идеальной формулой от Creat0R

$sResult = StringRegExpReplace($sText, "(?s)\s+?([0-9,?]*).*", "\1") »

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

Код:

#include <File.au3>

$file1 = "1.txt"
$file2 = "2.txt"

FileOpen($file1, 0)
FileOpen($file2, 2)
$CountLines = _FileCountLines($file1)
For $i = 1 To $CountLines
    $sText = FileReadLine($file1, $i)
    $sResult = StringRegExpReplace($sText, "(?s)\s+?([0-9,?]*).*", "\1")
    If StringLen($sResult) > 0 Then
        FileWrite($file2, $sResult & @CRLF)
    EndIf
Next
FileClose($file1)
FileClose($file2)

1.txt это файл для обработки, 2.txt это файл-результат.
Хочу попробовать то же самое сделать через массив, вроде намного быстрее получается.