Серый форум — AHK: Цикл чтения файла

Re: AHK: Цикл чтения файла

null@example.com (Андрейка 007) — Wed, 31 Aug 2016 20:20:05 +0000

Всем огромное спасибо .teadrinker - Сделали то что надо. Работает быстро и точно.

FileRead, text, D:\1.txt
FileAppend, % RegExReplace(text, "m`a)(,[^,]+){2}$"), D:\2.txt

Re: AHK: Цикл чтения файла

null@example.com (teadrinker) — Wed, 31 Aug 2016 16:57:43 +0000

Или так:

FileRead, text, D:\1.txt
FileAppend, % RegExReplace(text, "m`a)(,[^,]+){2}$"), D:\2.txt

Re: AHK: Цикл чтения файла

null@example.com (teadrinker) — Wed, 31 Aug 2016 16:43:27 +0000

^ в квадратных скобках — это не начало строки, он означает любой символ, кроме перечисленных в скобках. Без английского в программировании никак, надо учить потихонечку.

Re: AHK: Цикл чтения файла

null@example.com (yalanne) — Wed, 31 Aug 2016 16:39:00 +0000

teadrinker
А как это работает?
Почему там много символов начала строки^?

p.s в англ. не силен, в основном на метод тыка полагаюсь.

Re: AHK: Цикл чтения файла

null@example.com (teadrinker) — Wed, 31 Aug 2016 16:20:38 +0000

FileRead, text, D:\1.txt
FileAppend, % RegExReplace(text, "m`a),[^,]+,[^,]+$"), D:\2.txt

Re: AHK: Цикл чтения файла

null@example.com (yalanne) — Wed, 31 Aug 2016 15:16:36 +0000

Или так:

FileRead,Text,  1.txt
Text_ := RegExReplace(	RegExReplace(text,"((?:(?:\d+\.?\d?+),?){5}).*(`r`n|$)","$1$2")		,	",(`r`n|$)","$1")
FileAppend, %Text_%`r`n, 2.txt

Работает с несколькими строками одновременно, оставляет 5 частей в каждой строке, остальное заменяется на пустоту.
Второй заменой убирается запятая в конце.

Re: AHK: Цикл чтения файла

null@example.com (shiz) — Wed, 31 Aug 2016 14:33:28 +0000

Решение в командной строке (cmd.exe):

(for /f "tokens=1-4 delims=," %1 in (D:\1.txt) do @echo %1,%2,%3,%4)>D:\2.txt

Для многократного использования можно создать ярлык на cmd.exe:

cmd.exe /d /q /e /c (for /f "tokens=1-4 delims=," %1 in (D:\1.txt) do @echo %1,%2,%3,%4)>D:\2.txt

,
причём в свойствах ярлыка можно указать запуск в свёрнутом окне,
а если постараться — в скрытом окне;
или пакетный файл (удвоив знаки «%»!!!).

Re: AHK: Цикл чтения файла

null@example.com (ypppu) — Wed, 31 Aug 2016 14:04:04 +0000

Loop, Read, 1.txt
{
RegExMatch(A_LoopReadLine, "([0-9]+),([0-9]+),([0-9]+).([0-9]+),([0-9]+)", FoundA)
;MsgBox, %FoundA%
FileAppend, %FoundA%`r`n, 2.txt
}

AHK: Цикл чтения файла

null@example.com (Андрейка 007) — Wed, 31 Aug 2016 13:36:15 +0000

Есть текстовый документ (D\1.txt) .В нём около 300 тыс. строк

20160830,100000,96180.000000000,9,0,96180.000000000
20160830,100000,96180.000000000,50,0,96180.000000000
20160830,100000,96180.000000000,5,0,96180.000000000
20160830,100000,96180.000000000,3,0,96180.000000000
20160830,100000,96180.000000000,20,0,96180.000000000
20160830,100000,96170.000000000,1,96170.000000000,96180.000000000
20160830,100000,96170.000000000,1,96170.000000000,96180.000000000

Нужно преобразовать этот документ так , что-бы на выходе получился документ2 (D\2.txt),те отсечь лишнее от запятой
20160830,100000,96180.000000000,9
20160830,100000,96180.000000000,50
20160830,100000,96180.000000000,5
20160830,100000,96180.000000000,3
20160830,100000,96180.000000000,20
20160830,100000,96170.000000000,1
20160830,100000,96170.000000000,1

Всё что смог это

FileRead,Var1,  D:\1.txt
Var1_ := RegExMatch(Var1, "([0-9]+),([0-9]+),([0-9]+).([0-9]+),([0-9]+)", FoundA)