[madmasles]

В 1.txt записал 10000 строк по образцу. Мой первый вариант отрабатывал Time: 79.999 секунд, а вот этот вариант:

Код:

#include <File.au3>
$aTable = ""
$hFile1 = "1.txt"
$hFile2 = "2.txt"
FileOpen($hFile1, 0)
FileOpen($hFile2, 2)
_FileReadToArray($hFile1, $aTable)
$i = 0

While 1
    $i += 1
    If $i = $aTable[0] Then ExitLoop
    $sResult = StringRegExpReplace($aTable[$i], "(?s)\s+?([0-9,?]*).*", "\1")
    $sResult = StringReplace($sResult, ",", "")
    If @extended > 0 Then FileWriteLine($hFile2, $sResult)
WEnd
FileClose($hFile1)
FileClose($hFile2)

тот же файл обработал за Time: 7.467 секунд! Скорость выше более, чем в 10 раз!
u-Art,
Запятые код тоже убирает, правда двумя формулами, хотя наверняка Creat0R сможет сделать это одной.

Пока писал свое сообщение, появился ответ Creat0R.

Creat0R,
Ваш вариант обработал 10000 строк за Time: 2.442! Просто экстра класс!

[Creat0R]

вот этот вариант »

Тут неправильное использование функций FileOpen, см. мой последний пример, да и в справку не помешало бы заглянуть.

[madmasles]

Creat0R,
Я правильно понял, что у меня 2 лишних действия: "FileOpen($hFile1, 0)" и "FileClose($hFile1)"?

[Creat0R]

Я правильно понял »

Нет Читайте справку.

Ваш вариант обработал 10000 строк за Time: 2.442! »

Вот ещё быстрее, по идее:

Код:

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

$sText = FileRead($sFile1)
$aResult = StringRegExp($sText, "\s+?([0-9,?]+)", 3)
$sResults = ""

For $i = 0 To UBound($aResult)-1
    $sResults &= $aResult[$i] & @CRLF
Next

$hFile2 = FileOpen($sFile2, 2)
FileWrite($hFile2, StringStripWS(StringReplace($sResults, ",", ""), 2))
FileClose($hFile2)

[madmasles]

Creat0R,
Ваш последний вариант у меня: Time: 2.351
Предпоследний: Time: 2.331.
Практически одинаково.

По поводу

Тут неправильное использование функций FileOpen »

у меня последнее предположение, что я рано открыл файл2, надо после того, как считал в массив файл1. Если это не так, то я Вас очень прошу, объясните что не так.

[Creat0R]

у меня последнее предположение »

Зачем предполагать, ещё раз, и последний раз пишу...

Читайте справку »

Это вам же на пользу.