Работа с файлами Опции

[@^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^@]

Программа работает вот в таком виде:

Код

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]

У меня похожая задача:

Думаешь, ответ будет другим? Ответ тоже похож:

3. Прежде чем задавать вопрос, см. "FAQ",если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!

Уже решали:
Строки: Удвоение букв в словах