18.08.2019, 17:55 | #1 (permalink) |
Новичок
Регистрация: 18.08.2019
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Cчитать файл
Помогите пожалуйста. |
18.08.2019, 17:55 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Эти ссылки помогут вам в решении проблемы Скачиваю файл с Интернета (любого браузера), файл данный автоматически сразу удаляетс Как скачать от сюда MP3 файл? Хочу скчать 5-ый сверху файл. Pascal ABC: File23. Дан файл вещественных чисел, создать файл целых чисел Скачала торрент файл - Office 2003 (файл ISO). Потом скачала UltraISO Portabile. Скачала торрент файл - Office 2003 (файл ISO). |
19.08.2019, 08:20 | #2 (permalink) | |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,797
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
Сколько угодно символов в одну строковую переменную не уместится, там ограничение по количеству символов, не более 256. Задачу можно решить при помощи дополнительного результирующего файла.
Вот вам некоторые команды в помощь: Цитата:
__________________
Убить всех человеков! |
|
19.08.2019, 08:29 | #3 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Тут другое интересно. Ладно, ограничимся 256-ю символами, не суть. А вот как перегнать файл в строку, обойдя служебные символы конца строки (заменив их пробелами), и можно ли это в принципе? Вчера весь вечер пытался — не сумел. Стыдно чертовски, прям под землю провалиться! Есть идеи? |
|
19.08.2019, 08:50 | #4 (permalink) |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,797
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
Команда ветвления вам в помощь, конец строки EOLn он же CHR(13), конец файла EOF
__________________
Убить всех человеков! |
19.08.2019, 08:56 | #5 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
19.08.2019, 10:24 | #6 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Во зар-раза, нашёл-таки способ!
Код:
Var f:Text; S,S1:String; i:Integer; Begin Assign(f,'ttt.txt'); Reset(f); S:=''; Repeat Readln(f,S1); for i:=1 to Length(S1) do S:=S+S1[i]; if Not(EoF(f)) then S:=S+' '; Until EoF(f); Close(f); Writeln(S); ReadLn End. Строка: |
19.08.2019, 10:28 | #7 (permalink) |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,797
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
Идея такая:
Заводим цикл с условием выхода Not(Eof); Читаем строку командой ReadLN(f,s); Посимвольно записываем эту строку в результирующий файл. Тем самым избавляемся от проблемы обработки символа конца строки. ПыСы: почти что то же самое в вашем решении, опоздал я маленько
__________________
Убить всех человеков! |
19.08.2019, 10:32 | #9 (permalink) |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,797
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
Да я и не пытался, куда уж мне
__________________
Убить всех человеков! |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|