Что нового

[Данные, строки] Заменить по имени файла

libido

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

Здравствуйте! Не сильно сложная задача.
Есть папка, в ней находятся куча текстовых файлов. Необходимо взять имя файла, без расширения txt, понятно, и добавить это имя в конце каждой строки через двоеточие.
То есть, если в паке находится тысяча файлов с именами от 1.txt до 1000.txt, то в конец каждой строки этих фалов добавить :1, :2, :3, :4 и т.д. соответственно по именам файлов.
Количество и имена файлов подлежащих обработке заранее неизвестно.
 

InnI

AutoIT Гуру
Сообщения
4,912
Репутация
1,429
Код:
#include <File.au3>

$Path = @ScriptDir & "\Новая папка\" ; путь к папке

$aList = _FileListToArray($Path, "*.txt", 1)
If @error Then
  MsgBox(0, "Ошибка", "Ошибка поиска файлов")
  Exit
EndIf
For $i = 1 To $aList[0]
  $sName = StringTrimRight($aList[$i], 4)
  $aText = FileReadToArray($Path & $aList[$i])
  If @error Then ConsoleWrite("Ошибка чтения файла " & $Path & $aList[$i] & @CRLF)
  For $j = 0 To UBound($aText) - 1
    $aText[$j] = $aText[$j] & ":" & $sName
  Next
  _FileWriteFromArray($Path & $aList[$i], $aText)
  If @error Then ConsoleWrite("Ошибка записи файла " & $Path & $aList[$i] & @CRLF)
Next
 
Верх