Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Нужна помощь [D7, D2005, XP]

ArtemSTR © (2009-12-09 08:11:00)
Здравствуйте. Мне нужно выполнить такое действие: у меня есть большой текстовый файл, нужно в начале каждой строчки вставить определенный символ. Как это можно реализовать? Заранее благодарен :) .

ArtemSTR (2009-12-09 09:05:00) [1]
Спасибо большое за ответы, буду пробовать.

oleg1963lora (2009-12-09 08:59:00) [2]
var SourceFile, TargetFile : Text; {входной и выходной файлы}
VarStr : String;
PosEndStr : byte;

Begin
AssignFile(SourceFile,'C:\Documents\MyText.txt');
Reset(SourceFile);

AssignFile(TargetFile,'C:\Documents\NewText.txt');
ReWrite(TargetFile);
While not EOF(SourceFile) do
begin
Readln(SourceFile,VarStr);
Insert(VarStr,[1],'A');{вместо А - нужный тебе символ}
PosEndStr:=Length(VarStr);
PosEndStr:=PosEnd-2; {вставим нужны символ между}
текстом и символом возврата
{строки-#13}
Insert(VarStr,PosEndStr,'B');{вместо B - нужный тебе символ}
Writeln(TargetFile,VarStr);
end;
CloseFile(SourceFile);
CloseFile(TargetFile);
end.

Возьмите маленький кусочек текста и на нем проверьте.
О необходимости делать резервные копии говорить надеюсь не надо.
А милионнобайтный файл пускай внуки доредактируют! :)))

ReadLn (2009-12-09 08:49:00) [3]
Если файд действительно текстовый

1. Открываем файл
В цикле
2. ReadLn();
3. Вставляем что надо и куда надо
4. Сохраняем в другое место
Конец цикла
5. Закрываем файл

ArtemSTR (2009-12-09 08:30:00) [4]
Ну до этого я и сам бы додумался :), но соль в том, что в файле около 2 миллионов строк, и сами понимаете, что вручную это сделать нереально.

Ymen (2009-12-09 08:25:00) [5]
Трудно, но выполнимо...

1. Запастись кипятком, чаем или кофе.
2. Взять "большой текстовый редактор".
3. Конечно терпение - тоже пригодиться.
4. Расправить руки над клавиатурой и приступить к работе.

ArtemSTR (2009-12-09 08:23:00) [6]
Также нужно вставить в конце каждой строчки, но это, я думаю, можно сделать в ворде. P.S. Извините, если риая тема уже существует, просто я сижу с телефона, и пользоваться поиском весьма затруднительно.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »