ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Программирование [игнор отключен] [закрыт для гостей] / Pascal (перекодировка текстового файла)
6 сообщений из 6, страница 1 из 1
Pascal (перекодировка текстового файла)
    #32962074
Dra
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dra
Участник
Здравствуйте. Подскажите, как разработать программу перекодировки текстового файла, заменив в нем все заглавные буквы строчными.
...
Рейтинг: 0 / 0
16.03.2005, 01:57
| Ответить | Цитировать | Написать  
Pascal (перекодировка текстового файла)
    #32962161
topa1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
topa1
Гость
В чем проблемма?
Читаешь файл в память некими блоками, блок разбираешь по символьно и после изменения пишешь на диск
...
Рейтинг: 0 / 0
16.03.2005, 08:38
| Ответить | Цитировать | Написать  
Pascal (перекодировка текстового файла)
    #32962287
AIM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AIM
Участник
Код: plaintext
1.
2.
3.
4.
5.
var s: TStringList;
s := TStringList.Create;
s.LoadFromFile('C:\x.txt');
s.Text := LowerCase(s.Text);
s.SaveToFile('C:\x.txt');
s.Free;
...
Рейтинг: 0 / 0
16.03.2005, 09:42
| Ответить | Цитировать | Написать  
Pascal (перекодировка текстового файла)
    #32963278
Фотография VidmakCase
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VidmakCase
Участник
AIM
Код: plaintext
1.
2.
3.
4.
5.
var s: TStringList;
s := TStringList.Create;
s.LoadFromFile('C:\x.txt');
s.Text := LowerCase(s.Text);
s.SaveToFile('C:\x.txt');
s.Free;


Ги... Так просили же Паскаль.. Или я не понял тчо -то?
Када в Школе просят поменять две переменных местасми, имеется ввиду ИМХО
не
Код: plaintext
1.
swap(a,b)
Вспоминается чге то читал, как прогрмаист на Делфи решает задачу как поймать Лева в пустыне: что-то типа такого "Ищет компонент ПойматьЛеваВПустыне"
topa1
В чем проблемма?
... блок разбираешь по символьно и после изменения пишешь на диск
Что касается изменения:
Я бы делал так (если задача а-ля Препод дал):
Проверял весли код символа больше чем код последней маленькой Буквы онимал бы длинну алвфавита. Как я помню символы в ASCII идут примерно так:
a b c ..... x y z A B C..
Ну только учесть что есть еще кирилица :]
В Фаронове помнится мне примерчик есть. Но кам как-то с Case of... Некрасиво совсем, хотя может и правильно
...
Рейтинг: 0 / 0
16.03.2005, 13:38
| Ответить | Цитировать | Написать  
Pascal (перекодировка текстового файла)
    #32964959
AIM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AIM
Участник
VidmakCase AIM
Код: plaintext
1.
2.
3.
4.
5.
var s: TStringList;
s := TStringList.Create;
s.LoadFromFile('C:\x.txt');
s.Text := LowerCase(s.Text);
s.SaveToFile('C:\x.txt');
s.Free;


Ги... Так просили же Паскаль.. Или я не понял тчо -то?


Кто скажет, что это Си, пусть кинет в меня камень.
...
Рейтинг: 0 / 0
17.03.2005, 09:37
| Ответить | Цитировать | Написать  
Pascal (перекодировка текстового файла)
    #32965086
Фотография VidmakCase
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VidmakCase
Участник
AIM VidmakCase AIM
Код: plaintext
1.
2.
3.
4.
5.
var s: TStringList;
s := TStringList.Create;
s.LoadFromFile('C:\x.txt');
s.Text := LowerCase(s.Text);
s.SaveToFile('C:\x.txt');
s.Free;


Ги... Так просили же Паскаль.. Или я не понял тчо -то?


Кто скажет, что это Си, пусть кинет в меня камень.
см. Мою мессагу дальше. Я и не говорил, что это си. Возможно немного не так выразился. Повторю свою идею: Када просят написать сортировку, это же не подразумевает исполльзования там какого-то
Код: plaintext
1.
SortArray(FArray);
...
Рейтинг: 0 / 0
17.03.2005, 10:25
| Ответить | Цитировать | Написать  
6 сообщений из 6, страница 1 из 1
Форумы / Программирование [игнор отключен] [закрыт для гостей] / Pascal (перекодировка текстового файла)
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]