[amel27]

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)