Форум программистов, компьютерный форум, киберфорум
Delphi
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/9: Рейтинг темы: голосов - 9, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 21.10.2008
Сообщений: 42
1

Копирование текста в *.txt из другого *.txt

19.10.2010, 10:35. Показов 1889. Ответов 8
Метки нет (Все метки)

Как вставить текст в файл из другого текстового файла?
(автоматически)
и как вставить текст в файл из Memo-поля и сохранить?
Подскажите пожалуйста.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.10.2010, 10:35
Ответы с готовыми решениями:

Заменить кусок текста в .txt текстом из другого .txt
Мужики, привет! Такая проблема, имею .txt файл на ~200к строк. Вся структура имеет вот такой вот...

Копирование частей текста из .txt в .txt
Имеется текстовый файл вида: # <N> ;..... # <S> ;... # <Su> ;... # <Sp> ;... # <K> ;......

Дополнить .txt файл из другого .txt файла недостающими данными
Доброго времени суток. Подскажите как осуществить такую операцию с текстовым файлом. К...

Поиск данных в n-количестве *.txt документов и копирование их в один .txt документ
Здравствуйте форумчане!Прошу вашего совета/помощи! в локальном каталоге C:\In (переменная InTxt)...

8
2 / 2 / 3
Регистрация: 09.07.2008
Сообщений: 422
19.10.2010, 10:41 2
1. Читаешь оба файла в строку (или массив строк), вставляешь первую строку во вторую в нужном месте (или заменяешь весь текст), записываешь вторую строку в ее файл... О какой автоматике тут речь? Ручками, ручками...

2. Memo1.SaveToFile( _filename_ );
0
0 / 0 / 0
Регистрация: 21.10.2008
Сообщений: 42
19.10.2010, 11:24  [ТС] 3
Сам алгоритм ясен. А какой оператор для чтения из файла и записи в него? И если можно example

2. Memo1.SaveToFile( _filename_ );
0
2 / 2 / 3
Регистрация: 09.07.2008
Сообщений: 422
19.10.2010, 12:02 4
Маленький пример:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var 
  f   : textfile; // ссылка на файл
  buf : string;   // буфер для файла
  tmp : string;   // буфер для строки
begin
  buf := ''
  AssignFile(f,'input_file.txt'); // связываем ссылку с файлом
  Reset(f); // открываем файл на чтение
  while (not Eof(f)) do // пока не найден конец файла...
  begin
    Readln(f, tmp);  // ...читаем строку...
    buf := buf + tmp; // ...и добавляем ее в буфер
  end;
  CloseFile(f); // закрываем файл
  AssignFile(f, 'output_file.txt'); // связываем ссылку со 2-м файлом
  Rewrite(f); // создаем новый файл с тем же именем
  Writeln(f, buf); // сливаем в него весь буфер
  CloseFile(f); // закрываем файл
end;
0
2 / 2 / 3
Регистрация: 09.07.2008
Сообщений: 422
19.10.2010, 12:07 5
Правда, если у тебя первый файл был многострочным, то второй будет одной строкой. Надо либо добавлять при чтении символы переноса в буфер (например: buf := buf + tmp + chr(13), либо читать файл в массив строк. Посмотри Help по работе с сылочным типом PChar.
0
0 / 0 / 0
Регистрация: 21.10.2008
Сообщений: 42
19.10.2010, 12:25  [ТС] 6
Щас попробую.
0
0 / 0 / 0
Регистрация: 21.10.2008
Сообщений: 42
19.10.2010, 12:45  [ТС] 7
Спасибо тебе большое всё работает ), я только сделал построчный ввод в файл:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var  f,g  : textfile; 
tmp : string;  
procedure TForm1.Button1Click(Sender: TObject);
begin
AssignFile(f,'c:file1.txt');
AssignFile(g, 'c:file2.txt');
Reset(f);
Rewrite(g);
while (not Eof(f)) do
begin  Readln(f, tmp);
Writeln(g, tmp);
end;
CloseFile(f);
CloseFile(g);
end;
И ещё просьба подскажи хороших книжек по Делфям, а то мне всякое попадается неконкретное чтиво
0
2 / 2 / 3
Регистрация: 09.07.2008
Сообщений: 422
19.10.2010, 14:10 8
Нормального чтива по Дельфи я так и не нашел - возможно его посто нет в природе. Больше всего полезной инфы лежит в нете
0
1 / 1 / 1
Регистрация: 26.08.2010
Сообщений: 133
19.10.2010, 21:25 9
Вот моя подборка книг:

http://dynamic.nm.ru/books.dhtml

Особенно обратите внимание на:
Д.Баккнелл. 'Фундаментальные алгоритмы и структуры данных в Delphi'
Имхо, должна быть настольной у любого программиста.

А вообще пролистай пару листов форума назад - была подобная тема, там много ссылок.
0
19.10.2010, 21:25
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.10.2010, 21:25

Копирование данных из одного файла txt в другой файл txt
Помогите, пожалуйста, создать bat файл, который бы из одного документа, например, 1.txt копировал...

Нужно заменить строку в файле text.txt словами из другого файла words.txt
Допустим в файле words.txt есть какие-то слова ,например : #один,#два,#три. И есть файл...

Поиск значения в txt файле по значению из другого txt
Добрый день. Подскажите пожалуйста как осуществить поиск значения в txt файле по значению из...

Поиск слова (метки) в T.txt и копирование его и\или последующих слов (символов) в R.txt
День добрый. У меня проблемка в написании батника. Не получается командой FOR в текстовом файле...

Копирование определенных строк с одного .txt на другой *.txt
Ребзи помогите пожалуйста. Задача такая, есть текстовой файл с множ-во строк. Нужно вытащить оттуда...

Копирование текста из doc-файла в txt-файл
как с помощью бат файла скопировать текст с файла (.doc) в другой файл (.txt) и наоборот, если так...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
9
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru