Скачать: CL | DM;

Нужна помощь   Найти похожие ветки 

← →
ArtemSTR   (2009-12-09 08:11) [0]

Здравствуйте. Мне нужно выполнить такое действие: у меня есть большой текстовый файл, нужно в начале каждой строчки вставить определенный символ. Как это можно реализовать? Заранее благодарен :) .

---

← →
ArtemSTR   (2009-12-09 08:23) [1]

Также нужно вставить в конце каждой строчки, но это, я думаю, можно сделать в ворде. P.S. Извините, если риая тема уже существует, просто я сижу с телефона, и пользоваться поиском весьма затруднительно.

---

← →
Ymen   (2009-12-09 08:25) [2]

Трудно, но выполнимо...

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

---

← →
ArtemSTR   (2009-12-09 08:30) [3]

Ну до этого я и сам бы додумался :), но соль в том, что в файле около 2 миллионов строк, и сами понимаете, что вручную это сделать нереально.

---

← →
ReadLn   (2009-12-09 08:49) [4]

Если файд действительно текстовый

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

---

← →
oleg1963lora   (2009-12-09 08:59) [5]

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.

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

---

← →
ArtemSTR   (2009-12-09 09:05) [6]

Спасибо большое за ответы, буду пробовать.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.012 c