21.12.2010, 18:08 | #1 (permalink) |
Новичок
Регистрация: 21.12.2010
Сообщений: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Работа с файлами
Создать текстовый файл, прочитать созданный файл и получить новый файл Переписать в новый файл строки, удалив из них все русские буквы нижнего регистра. Заранее спасибо! |
21.12.2010, 18:08 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Могу порекомендовать вам схожие топики Паскаль, работа с файлами Работа с файлами на Паскале |
22.12.2010, 19:53 | #5 (permalink) |
Новичок
Регистрация: 21.12.2010
Сообщений: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Ну у меня чтото такое получается ток не работает(
program lb8; uses crt; Var f,t:text; s:string; i,j:integer; st:array[1..10] of string; Begin clrscr; assign(f,'input.txt'); reset(f); assign(t,'output.txt'); rewrite(t); while not eof(f) do Begin readln(f,s); if i:=0224 to 0255 then delete; write(t,s[i]); writeln(t); End; close(f); close(t); End. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
22.12.2010, 21:17 | #6 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Ну еще бы! А это, простите, на каком языке:
if i:=0224 to 0255 then delete; ? Я таких языков программирования, извините, не знаю. Сейчас я выложу свое решение Вашей задачи, но перед этим хочу мысленно послать все ненормативные проклятия авторам задачи и преподам. Черт побери, и далась им эта кириллица! Неужели нельзя было латиницей ограничиться? Теперь я вынужден представлять два варианта программы. Для кодировки DOS: Код:
program lb8; Var f,t:text; Ch:Char; Begin assign(f,'input.txt'); reset(f); assign(t,'output.txt'); rewrite(t); Repeat Read(f,Ch); If (Ord(Ch)<160) or (Ord(Ch)>239) or ((Ord(Ch)>175) and (Ord(Ch)<224)) then Write(t,Ch); Until EoF(f); close(f); close(t); End. Код:
program lb8; Var f,t:text; Ch:Char; Begin assign(f,'D:\input.txt'); reset(f); assign(t,'D:\output.txt'); rewrite(t); Repeat Read(f,Ch); If (Ord(Ch)<224) or (Ord(Ch)>255) then Write(t,Ch); Until EoF(f); close(f); close(t); End. |
22.12.2010, 21:46 | #7 (permalink) |
Новичок
Регистрация: 21.12.2010
Сообщений: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Спасибо огромное!
А вот это я написал "if i:=0224 to 0255 then delete; " от безысходности просто не чего от том как убрать буквы нижнего регистра в лекциях и в интернете я не нашел ну и пришлось сочинять=)) |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|