Что нового

Нумерация строк в файле

ВиталийВВ

Новичок
Сообщения
177
Репутация
0
Версия AutoIt: 3.3.x.x

Описание:

Есть файл вида:

Код:
61400000.64F 

61400013.71F 

61400048.52F 

61400054.70F 

61400070.19F


Надо привести его к виду:

Код:
1.   61400000.64F 

2.   61400013.71F 

3.   61400048.52F 

4.   61400054.70F 

5.   61400070.19F


Т.е. пронумеровать НЕ пустые строки, и после номера - типа пробелы сделать, чтоб визуально отделить номер от строки.

Примечания: Строк может быть до 150 000
 

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,322
ВиталийВВ,
Можно так.
Код:
;~ AutoIt Version:  3.3.8.1
Local $aTxt = StringSplit(StringStripWS(StringStripCR(FileRead(@ScriptDir & '\test.txt')), 3), @LF), $iCount, $sFormat, $sTxt, $hFile

$sFormat = '%-' & StringLen(Ceiling($aTxt[0] / 2)) + 2 & 's'
For $i = 1 To $aTxt[0]
    If $aTxt[$i] Then
        $iCount += 1
        $sTxt &= StringFormat($sFormat, $iCount & '.') & $aTxt[$i] & @CRLF
    Else
        $sTxt &= @CRLF
    EndIf
Next
$hFile = FileOpen(@ScriptDir & '\NewTest.txt', 2)
FileWrite($hFile, $sTxt)
FileClose($hFile)

PS
Я бы пустые строки убрал.
 
Автор
В

ВиталийВВ

Новичок
Сообщения
177
Репутация
0
Супер.
Спасибо большое!

Пустые строки как раз вставлял, с ними пользователям удобнее смотреть.
 
Верх