|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
05.10.2009, 18:09 | #1 |
Форумчанин
Регистрация: 23.07.2009
Сообщений: 185
|
Чтение фалов как текстовых
Добрый день!
Как прочитать любой файл как текстовый? |
05.10.2009, 18:21 | #2 |
читер
Форумчанин
Регистрация: 05.10.2009
Сообщений: 150
|
Код:
$me = $me == $me ? $me : $me;
|
05.10.2009, 18:54 | #3 |
Форумчанин
Регистрация: 23.07.2009
Сообщений: 185
|
Спасибо, я это хотел узнать.
Еще такой вопрос, можно ли загрузить в TextFile не весть файл, а первые 6 байт? |
05.10.2009, 21:02 | #4 |
Пользователь
Регистрация: 13.06.2009
Сообщений: 21
|
...
Думаю тут проще всего просто почитать 6 байт в сиволах, и сделать цыкл до этого числа.
|
05.10.2009, 21:14 | #5 |
Экспериментатор
Форумчанин
Регистрация: 16.04.2008
Сообщений: 218
|
В TextFile ничего не загружается. Эта переменная содержит идентификатор файла. А загрузить первые сколько_угодно байт можно в переменную. Для загрузки первых 6 байт проще всего объявить переменную типа string[6] и читать с помощью процедуры read. Вопросы?
Для создания сложных вещей не нужны сложные интерфейсы. (с) Линус Торвальдс
|
05.10.2009, 21:22 | #6 |
Участник клубаДжуниор
Регистрация: 23.08.2008
Сообщений: 1,616
|
program Project1;
var f:textfile; s,r:string; i:integer; begin assign(f,'C:\input.txt'); reset(f); read(f,s); for i:=1 to 6 do r:=r+s[i]; writeln(r); readln(s); end.
pushl $0x18E3DF6B
call ICQ |
05.10.2009, 22:05 | #7 |
Экспериментатор
Форумчанин
Регистрация: 16.04.2008
Сообщений: 218
|
r:=copy(r, 1, 6);
Для создания сложных вещей не нужны сложные интерфейсы. (с) Линус Торвальдс
|
05.10.2009, 22:07 | #8 |
Форумчанин
Регистрация: 23.07.2009
Сообщений: 185
|
Спасибо всем.
Вот есть Код:
В чем проблема? |
05.10.2009, 22:24 | #9 |
Экспериментатор
Форумчанин
Регистрация: 16.04.2008
Сообщений: 218
|
Было бы неплохо написать в этом месте код, выводящий на экран SearchRec.Name. Наверняка FindFirst находит файл '.' или '..'. Не знаю что это, но это есть.
Для создания сложных вещей не нужны сложные интерфейсы. (с) Линус Торвальдс
Последний раз редактировалось Олвин; 05.10.2009 в 22:26. |
05.10.2009, 22:25 | #10 | |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
в том, что вы как файл пытаетесь открыть папки (они же директории), а это недопустимо...
Код:
надо использовать или f : file; Reset(f,1); BlockRead(f, Buf, 6) или TFileStream ... Цитата:
папка (директория) с именем '..' это специальный элемент файловой системы для ссылки на вышестоящую папку... Последний раз редактировалось Serge_Bliznykov; 05.10.2009 в 22:29. |
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как сохранить форматирование текстовых данных? | Simone-si | Microsoft Office Excel | 5 | 17.09.2009 22:17 |
Сопоставление 2х фалов в exel | Kaddy | Microsoft Office Excel | 1 | 26.03.2009 19:29 |
qip - передача фалов... | Altera | Софт | 9 | 30.12.2008 18:23 |
как загрузить в ListBox несколько текстовых файлов? | One.Love | Общие вопросы Delphi | 5 | 14.01.2008 11:54 |
Как посчитать сумму строк во всех текстовых файлах? | qwestor | PHP | 8 | 30.12.2007 16:02 |