Помощь - Поиск - Пользователи - Календарь
Полная версия: Работа с файлами
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
@^WARlock^@
Помогите решить.

Нужно написать прогу, которая считывает из заданного текстового файла слова и записывает в новый текстовый файл только те из них, которые начинаются с указанной буквы.
volvo
Ну, и КАК это называется? Ведь практически эта же задача решена как пример работы с файлами в
FAQ: Файлы
@^WARlock^@
Как связать файлы я и сам знаю, а вот серидину что-то ни как ...... .

Код

uses crt;
var
n,i:integer;
f,f1:text;
a,b:string;
begin clrscr;
assign (f,'c:\1.txt');
reset(f);
assign (f1,'c:\2.txt');
rewrite(f1);
read(f,a);

.........

write(f1,b);
readln;
close(f);
close(f1);
end.
Bokul
uses crt;
const st=' ,.:?!';
var f1,f2:text; i:integer; ch:char; path1,path2,temp,word:string;
begin
clrscr;
writeln('Enter letter');
readln(ch);
writeln('Enter path to the source file');
readln(path1);
writeln('Enter path to the new file');
readln(path2);
assign(f1,path1);
reset(f1);
assign(f2,path2);
rewrite(f2);
temp:='';
while not(eof(f1)) do
begin
readln(f1,temp);
for i:=1 to length(temp) do
if pos(temp[i],st)=0 then
word:=word+temp[i]
else
begin
if word[1]=ch then
begin
write(f2,word+' ');
write(word+' ');
end;
word:='';
end;
end;
close(f1);
close(f2);
readln;
end.
volvo
Цитата(@^WARlock^@ @ 9.08.2006 2:37)
Как связать файлы я и сам знаю, а вот серидину что-то ни как ...... .
А ссылку на "середину" я тебе и привел... Учись читать посты ДО КОНЦА и находить то, что там написано.
@^WARlock^@
Программа работает вот в таком виде:

Код
uses crt;
var
f:text;
a,n:string;
k,i:integer;
begin clrscr;
writeln('Vvedite stroku: ');
readln(n);
write('Vvedite bukvu: ');
readln(a);
n:=n+' ';
while length(n)>0 do
begin
i:=pos(' ',n);
if n[1]=a then
k:=k+1;
delete(n,1,i);
end;
writeln;
writeln('iscomih slov: ',k);
readln;
end.



А вот в преобразованном виде ниже, для моего случая. Она пишет, что 'iscomih slov: 0'

Код
uses crt;
var
f1,f2:text;
a,n:string;
c:char;
k,i:integer;
begin clrscr;
write('Vvedite bukvu: ');
readln(a);
assign (f1,'c:\1.txt');
reset(f1);
assign (f2,'c:\2.txt');
rewrite(f2);
read(f1,a);
n:=n+' ';
while length(n)>0 do
begin
i:=pos(' ',n);
if n[1]=a then
k:=k+1;
delete(n,1,i);
write(f2,'Iskomix slov: ',k);
end;
close(f1);
close(f2);
end.

klem4
Цитата
Нужно написать прогу, которая считывает из заданного текстового файла слова и записывает в новый текстовый файл только те из них, которые начинаются с указанной буквы.


Чувствуется это надогло

Если в исходном файле на одной строке одно слово, то вот :

function CopyOnValue(var _in, _out : Text; value : char) : integer;
var
s : string;
count : integer;
begin
count := 0;
while (not(EOF(_in))) do begin
readln(_in, s);
if s[1] = value then begin
writeln(_out, s);
inc(count);
end;
end;
CopyOnValue := count;
end;


_in и _out должны быть открыты для чтения и записи сооветственно.
SiNaC0m
У меня похожая задача:"Нужно ввести данные в файл и если в строке есть цифры, то удвоить их".
У меня получилось сделать, только вот одна проблема: нужно, что бы цифра удваивалась подряд(например: была
строка "фыв1ф" - стала"фыв11ф"), а у меня получается, что цифра добавляется в конец строки...
Подскажите как добиться нужного результата:
Код
uses wincrt;
var a,b : text;
    s,s1 : string;
    i : integer;
begin
assign(a,'c:\a.txt');
rewrite(a);
readln(s);
write(a,s);
close(a);
assign(b,'c:\b.txt');
reset(a);
rewrite(b);
while not eof(a) do
  begin
    read(a,s);
   for i:=1 to length(s) do
    begin
     if s[i]='1' then
    s1:=s+s[i]+s1;

    end;
  end;
   write(b,s1);
  close(a);
  close(b);

end.
volvo
Цитата(Koma @ 18.09.2006 8:48)
У меня похожая задача:
Думаешь, ответ будет другим? Ответ тоже похож:
Цитата(Правила Раздела)
3. Прежде чем задавать вопрос, см. "FAQ",если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!


Уже решали:
Строки: Удвоение букв в словах
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.