Помощь - Поиск - Пользователи - Календарь
Полная версия: Считать файл Txt в переменную.
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
ast
Как считать содержимое файла txt в строковую переменную?
klem4
var
f : text;
s : string;
...
while not(eof(f)) do begin
readln(f,s);
writeln(s);
end;


+ FAQ Файлы
ast
var s: string;
t: text;
s: string;

begin
readln(s);
assign(t,s);
reset(t);

while not eof(t) do
begin
readln(t,c);
end;
writeln( c);
end.


В этом случае выводится последняя строка файла. Как загнать весь текст в одну 'с' и как быть в случае длины строки >255?

М
Пользуемся тегами CODE !
klem4

FreeMan
Слушай. Хоч сказку про волшебный тег, который оформляет код?
Насчёт вопроса - никак. Можно сделать массив char. А потом читать побайтно.
klem4
ast,Внимательно посмотри на мой код и найди одно отличие ... и ты поймешь как сделать чтобы выводилась не только последня строка но и все остальные ...
volvo
To: FreeMan
PChar куда делся? Вроде же был такой тип? blum.gif
FreeMan
To: volvo
Действительно, думаю куда он делся. Не учёл. С меня можно 1 с рейтинга снять. Всё равно она халявная smile.gif
ast
как использовать этот тип Pchar? Можно пример
volvo
uses strings;
var
f: text;
s: string;
len: word;
ps, ss: PChar;

begin
assign(f, 'test.txt');
reset(f);

len := 0; { Посмотрим, сколько символов в файле }
while not eof(f) do begin
readln(f, s); { Читаем обычную строку }
inc(len, length(s)) { Считаем ... }
end;

WriteLn('Length = ', len); { Убеждаемся, что файл длиннее 255 символов }

{ И начинаем читать в PChar }
reset(f);
ps := ''; { Для начала - пустая строка }
while not eof(f) do begin
readln(f, s); { Читаем обычную строку }

s := s + #0; { Конвертируем в дополнительный PChar }
ss := @s[1];

strcat(ps, ss); { Добавляем к основной строке }
end;
close(f);
{ И работаем с PChar с помощью процедур и функций из модуля Strings }

end.

Как видишь, ничего сложного ... rolleyes.gif

Тестировалось с этим файлом:
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.