Текстовый файл - Общие вопросы Delphi

zalum · 28.05.2009, 08:55

Подскажите пожалуйста. Имеется текстовый файл такого вида
#Начало1
Текст11
Текст12
....
#Конец

#Начало2
Текстт21
Текст22
....
#Конец

#Начало3
Текстт31
Текст32
....
#Конец
Мне нужно перебрать эти строки и каждый кусок текста, начинающийся #Начало и кончающийся #Конец скопировать в переменную или в мемо.

Stilet · 28.05.2009, 08:59

Ну так в чем траблы?:

Код:

while not eof(файл) do begin
 readln(s);
 if s='#Начало1' then str:='' else
  if s='#Конец' then str:='' else
   str:=str+s;
end;

Файл только сам открой и подумай чего с str делать

zalum · 28.05.2009, 09:12

Спасибо, то что надо, только #Началоидет с индексом #Начало1,#Начало2, причем эти числа могут быть любыми.

Stilet · 28.05.2009, 09:46

Код:

 if copy(s,1,7)='#Начало1' then

zalum · 28.05.2009, 11:07

Благодарствую, Stilet!

28.05.2009, 08:55	#1
zalum Пользователь Регистрация: 16.02.2009 Сообщений: 12	Текстовый файл Подскажите пожалуйста. Имеется текстовый файл такого вида #Начало1 Текст11 Текст12 .... #Конец #Начало2 Текстт21 Текст22 .... #Конец #Начало3 Текстт31 Текст32 .... #Конец Мне нужно перебрать эти строки и каждый кусок текста, начинающийся #Начало и кончающийся #Конец скопировать в переменную или в мемо.

28.05.2009, 08:59	#2
Stilet Белик Виталий :) Старожил Регистрация: 23.07.2007 Сообщений: 57,097	Ну так в чем траблы?: Код: `while not eof(файл) do begin readln(s); if s='#Начало1' then str:='' else if s='#Конец' then str:='' else str:=str+s; end;` Файл только сам открой и подумай чего с str делать I'm learning to live...

28.05.2009, 09:46	#4
Stilet Белик Виталий :) Старожил Регистрация: 23.07.2007 Сообщений: 57,097	Код: `if copy(s,1,7)='#Начало1' then` I'm learning to live...

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
как текстовый файл в формате word 2007 переделать в файл в формате	ZAY JULIA	Microsoft Office Word	13	09.06.2010 19:43
Текстовый файл	virtuhay266	Общие вопросы Delphi	20	28.05.2009 16:54
Текстовый файл	Mashul'ka	Помощь студентам	2	22.05.2009 00:07
Текстовый файл.	Mashul'ka	Помощь студентам	1	14.05.2009 18:22
Текстовый файл в текстовый массив	Kimimaru	Общие вопросы C/C++	1	02.12.2007 11:55

28.05.2009, 09:12	#3
zalum Пользователь Регистрация: 16.02.2009 Сообщений: 12	Спасибо, то что надо, только #Началоидет с индексом #Начало1,#Начало2, причем эти числа могут быть любыми.

28.05.2009, 11:07	#5
zalum Пользователь Регистрация: 16.02.2009 Сообщений: 12	Благодарствую, Stilet!