Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Программирование [игнор отключен] [закрыт для гостей] / Pascal (перекодировка текстового файла) / 6 сообщений из 6, страница 1 из 1
16.03.2005, 01:57
    #32962074
Dra
Dra
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pascal (перекодировка текстового файла)
Здравствуйте. Подскажите, как разработать программу перекодировки текстового файла, заменив в нем все заглавные буквы строчными.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.03.2005, 08:38
    #32962161
topa1
topa1
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pascal (перекодировка текстового файла)
В чем проблемма?
Читаешь файл в память некими блоками, блок разбираешь по символьно и после изменения пишешь на диск
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.03.2005, 09:42
    #32962287
AIM
AIM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pascal (перекодировка текстового файла)
Код: 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, 13:38
    #32963278
VidmakCase
VidmakCase
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pascal (перекодировка текстового файла)
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
| Ответить | Цитировать | Написать  
17.03.2005, 09:37
    #32964959
AIM
AIM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pascal (перекодировка текстового файла)
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, 10:25
    #32965086
VidmakCase
VidmakCase
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pascal (перекодировка текстового файла)
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
| Ответить | Цитировать | Написать  
Форумы / Программирование [игнор отключен] [закрыт для гостей] / Pascal (перекодировка текстового файла) / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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