Чтение файла по строкам

@Nikfel · Регистрация: 30.05.2009

Author24 — интернет-сервис помощи студентам

Никак не могу понять как прочитать файл по строкам?

Единственное что смог придумать это обработка всего текста для получения нужной строки:

Delphi

function stroka(strSText:string; intID:integer):string;
var strD:string;
i,d,k:integer;
begin
i:=pos(#13#10,strSText);
d:=0;k:=1;
strD:=strSText;
if i<>0 then if intID=1 then result:=Copy(strSText,1,i-1);
while i<>0 do begin
  inc(k);
  strD:=Copy(strD,i+2,Length(strD)-i);
  d:=d+i+2;
  i:=pos(#13#10,strD);
  if i<>0 then begin
    if k=intID then result:=copy(strD,1,i-1);
  end else begin
    if k=intID then result:=copy(strD,1,length(strD));
  end;
end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
Caption:=stroka('stroka1'+#13#10+'stroka2'+#13#10+'stroka3'+#13#10+'stroka4',3);
end;

Может можно как-то проще это сделать? Заранее спасибо.

@Jazon_deenAlt · 25.06.2009, 17:14

Delphi

var
 F: TextFile;
 S: string;
begin
AssignFile(F, 'ТУТ ПОЛНЫЙ ПУТЬ К ФАЙЛУ!!! ИЛИ ПРОСТО ИМЯ ФАЙЛА ЕСЛИ ОН НАХОДИТСА В ПАПКЕ С ИСПОЛНИТЕЛЬНЫМ ФАЙЛОМ');
 Reset(F);
 while not Eof(F) do
 begin
 Readln(F, S);
 ShowMessage(S);
 end;
 CloseFile(F);
end;

попробуйте таким макаром) если будут вопросы задавайте не стесняйтесь

@Somebody · 25.06.2009, 18:58

Просто имя файл не если в одной папке с исполняемым (исполнительный файл, кто он?) файлом, а если в текущей папке.

@KljaGsa · 29.06.2009, 22:52

Сообщение от Somebody

исполнительный файл, кто он?

Проще говоря, скомпилированный экзешник

@anasteysha925 · 27.05.2020, 01:27

Здравствуйте, вопросик - а файл таблицы эксель, можно вставлять?

@northener · 27.05.2020, 01:38

Можно. Но ничего хорошего из этого не выйдет.

@anasteysha925 · 27.05.2020, 01:40

Сообщение от northener

Можно. Но ничего хорошего из этого не выйдет.

А как тогда сделать чтобы оно считывало данные нормально из таблицы?

@northener · 27.05.2020, 01:44

Не по теме:

Оно? Это которое из одноименного романа Стивена Кинга?

@D1973 · 27.05.2020, 09:26

Сообщение от anasteysha925

чтобы оно считывало данные нормально из таблицы?

1. Не лезть в древнюю чужую тему со своими проблемами. Есть вопрос - создавайте собственную тему.
2. Хоть на чуть-чуть включить мозги и воспользоваться поиском по форуму. Тут этот несчастный Эксель жуется по 100 раз на дню...

@Somebody 2835 / 1644 / 254 Регистрация: 03.12.2007 Сообщений: 4,222
	25.06.2009, 18:58	3
	Просто имя файл не если в одной папке с исполняемым (исполнительный файл, кто он?) файлом, а если в текущей папке. 0

@KljaGsa 0 / 0 / 0 Регистрация: 28.06.2009 Сообщений: 8
	29.06.2009, 22:52	4
	Сообщение от Somebody исполнительный файл, кто он? Проще говоря, скомпилированный экзешник 0

@anasteysha925 0 / 0 / 0 Регистрация: 16.05.2020 Сообщений: 27
	27.05.2020, 01:27	5
	Здравствуйте, вопросик - а файл таблицы эксель, можно вставлять? 0

@northener пофигист широкого профиля 4733 / 3167 / 859 Регистрация: 15.07.2013 Сообщений: 18,252
	27.05.2020, 01:38	6
	Можно. Но ничего хорошего из этого не выйдет. 0

@anasteysha925 0 / 0 / 0 Регистрация: 16.05.2020 Сообщений: 27
	27.05.2020, 01:40	7
	Сообщение от northener Можно. Но ничего хорошего из этого не выйдет. А как тогда сделать чтобы оно считывало данные нормально из таблицы? 0

@northener
	27.05.2020, 01:44 #8
	Не по теме: Оно? Это которое из одноименного романа Стивена Кинга? 0

@D1973 Модератор 9261 / 6039 / 2379 Регистрация: 21.01.2014 Сообщений: 25,803 Записей в блоге: 3
	27.05.2020, 09:26	9
	Сообщение от anasteysha925 чтобы оно считывало данные нормально из таблицы? 1. Не лезть в древнюю чужую тему со своими проблемами. Есть вопрос - создавайте собственную тему. 2. Хоть на чуть-чуть включить мозги и воспользоваться поиском по форуму. Тут этот несчастный Эксель жуется по 100 раз на дню... 0

Чтение файла по строкам

Решение