Ещё вопрос по FileObject: Можно ли как-то изменить в файле конкретную строку. Например прочитав с помощью IniRead или FileReadLine строку в переменную, можно её заменить в файле с помощью FileObject? То что можно переписать весь файл с помощью FileAppend или FileMove само собой мне понятно.
]]>***
Loop, Parse, infiles, `,, %A_Space% ; Разбор списка файлов.
{
MsgBox,,FileOpen, % infile := FileOpen(A_LoopField, "r") ; Открыть входной файл на чтение.
MsgBox,,A_LastError, % A_LastError
length := infile.Length()
***FileOpen - пусто
A_LastError - 0
SetWorkingDir %A_ScriptDir%
files = EQ-Default.ahk, EQ-Opera.ahk, EQ-Rap.ahk, EQ-Rock.ahk, EQ-S-Rock.ahk, EQ-User.ahk
archive = arch.txt больше ничего не менял.
]]>]Раньше в командной строке правил на Windows 7 32-бит для игрушки надо было, больше двух гб точно можно:
bcdedit /set increaseuserva 3500разрешить 3.5 гиг. под приложение.
Ага и ядру 500 метров оставить? Если драйвер упадёт от нехватки памяти, то ты получишь BSOD и все несохранённые данные испарятся безо всяких предупреждений. И это не говоря уже о том, что нельзя писать программу в расчёте на нестандартную конфигурацию ОС.
]]>здорово, я и не знал что появился нормальный класс для работы с файлами.
Игрался я пару недель назад с FileObject, и могу сказать что не очень оно стабильно работает в целом, и в записи в частности. Хотя может что-то не понял.
FileOpen(FileName, "rw")
File.Write(TestString)
File.Close()Запись оч. часто не срабатывала.
особенно на 32-битных платформах, где вовсе нельзя адресовать больше 4гб(т.е. можно, но windows этого не делает ), а приложению из них всего 2 достаётся.Раньше в командной строке правил на Windows 7 32-бит для игрушки надо было, больше двух гб точно можно:
bcdedit /set increaseuserva 3500разрешить 3.5 гиг. под приложение.
]]>Требуется для частного случая. Килобайт 100-200 текстовых файлов архивировать и обратно.
то проблемы с размером файлов не грозят.
]]>outfile := FileOpen(archive, "w")
здорово, я и не знал что появился нормальный класс для работы с файлами. Ещё может возникнуть проблема при считывании большого файла - может просто не хватить памяти, особенно на 32-битных платформах, где вовсе нельзя адресовать больше 4гб(т.е. можно, но windows этого не делает 
), а приложению из них всего 2 достаётся.
files = file1.txt, file2.txt, file3.txt ; Список файлов.
archive = arch.txt ; Имя файла архива.
; Вызовы функций
pack(files, archive)
unpack(archive)
; Функции
pack(infiles, archive) ; Архивация
{
outfile := FileOpen(archive, "w") ; Открыть архив на запись.
Loop, Parse, infiles, `,, %A_Space% ; Разбор списка файлов.
{
infile := FileOpen(A_LoopField, "r") ; Открыть входной файл на чтение.
length := infile.Length() ; Измерить.
infile.RawRead(data, length) ; Считать в переменную.
infile.Close() ; Закрыть.
; Запись в архив
outfile.WriteInt(StrLen(A_LoopField)) ; Длина имени файла.
outfile.Write(A_LoopField) ; Имя файла.
outfile.WriteInt(length) ; Размер файла.
outfile.RawWrite(data, length) ; Содержимое файла.
}
outfile.WriteInt(0) ; Конец архива.
outfile.Close() ; Закрыть архив.
}
unpack(archive) ; Разархивация
{
infile := FileOpen(archive, "r") ; Открыть архив.
Loop
{
nameLength := infile.ReadInt() ; Длина имени файла.
If (nameLength = 0) ; Если 0, то конец архива.
Break
name := infile.Read(nameLength) ; Имя вложенного файла.
bytes := infile.ReadInt() ; Размер вложенного файла.
infile.RawRead(data, bytes) ; Содержимое файла.
outfile := FileOpen(name, "w") ; Создать файл.
outfile.RawWrite(data, bytes) ; Записать содержимое.
outfile.Close() ; Закрыть.
}
infile.Close() ; Закрыть архив.
}1. получаем входные данные, создаём выходной файл(функция CreateFile)
2. выбираем файл для "архивации", если таких нет то переходим к пункту 9
3. вычисляем имя файла в архиве по оригинальному имени
4. записываем длину полученного на шаге 3 имени(функция WriteFile)
5. записываем имя файла(без завершающего нуля).
6. находим длину обрабатываемого файла и записываем её в выходной файл.
7. пишем содержимое обрабатываемого файла в выходной файл.
8. переход на шаг 2
9. записываем ноль вместо длины имени файла.
10. освобождаем ресурсы(освобождаем выделенную память, закрываем дескрипторы).
Разархивация:
вход - Тот самый один текстовый файл.
выход - Несколько тех самых текстовых файлов в папке скрипта с такими же именами.