Скрипт по обработке текстового файла

Creat0R · Конфигурация компьютера

Цитата Space-06:

Есть текстовый файл примерно такого содержания »

Примерно не подходит, давайте точное содержание файла (пару строк с него), и точно что должно получится на выходе (в тот же файл?).

Space-06 · Отправлено: **07:20, 26-06-2009** | #3

Собственно вот файл:
4230181010303хххххххх,Бояршинова Мария Гордеевна,7860.98,44
4230181010303хххххххх,Ковыляева Нина Ивановна,5282.25,44
4230181010303хххххххх,Ильясов Эдиссон Идрисович,6411.13,44

а результат должен быть таким:
1 44 4230181010303хххххххх 7860.98 Бояршинова Мария Гордеевна
1 44 4230181010303хххххххх 5282.25 Ковыляева Нина Ивановна
1 44 4230181010303хххххххх 6411.13 Ильясов Эдиссон Идрисович

во втором случае в первую позицию добавляется "1"

amel27 · Отправлено: **09:51, 26-06-2009** | #4

Space-06, где-то так:

Код:

$file_in = "c:\TEST\1.txt"
$file_out= "c:\TEST\2.txt"

$sText = StringRegExpReplace(FileRead($file_in), "(?m)^([^,\n\r]*),([^,\n\r]*),([^,\n\r]*),([^,\n\r]*)", "1 \4 \1 \3 \2")
$hFile = FileOpen($file_out,2)
FileWrite($hFile, $sText)

Space-06 · Отправлено: **10:36, 26-06-2009** | #5

Я просто шокирован что все так просто может разрешится.

Спасибо большое!!!