обработка строки текста... Опции

[ROxY]

нее...не получилось..
сейчас вообще выдает file not found

[volvo]

Ты нормально можешь ответить на вопрос: ГДЕ именно происходит ошибка (на каком операторе)? И где у тебя СЕЙЧАС находится файл Input.TXT ?

[ROxY]

input.txt находится в папке с pas. файлом...

[Айра]

нее...не получилось..
сейчас вообще выдает file not found

Значит проверь еще раз, где что находится и как называется (может на букву ошиблась или регистор разный, у меня так бывало ). У меня это работает, правда я проверя на том коде, который ты выложила в посте №5. А тот, что прикреплен, у меня вообще не работает, но сбой происходит где-то дальше, не в чтении..

Сообщение отредактировано: Айра - 19.05.2007 23:25

[Айра]

Вот мой код программы. Проверяла на Input = 'дгвба', Output получился = 'абвгд' - значит работает)) IOresult - специальная функция, позволяющая выполнять файловые операции без сообщений об ошибках.

uses wincrt;
var i,j,m:integer;
    Inp,Out: text;
    st:string;
    c,ch: char;
begin
m:=0;
  st:='';
  assign (Inp,'Input.txt');
  {$I-}
  reset(Inp);
  {$I+}
  if IOResult=0 then
    begin
      while not Eof(Inp) do
        begin
          inc(m);
          read(Inp,Ch);
          st:=st+ch;
        end;
      Close (Inp);
    end;
  writeln('Прочитано из файла: ',st,'');
  assign(Out,'Output.txt');
  {$I-}
  rewrite(Out);
  {$I+}
  if IOResult=0 then
    begin
      for j:=2 to m do
        for i:=m downto j do
          if st[i-1]>st[i] then
            begin
              c:=st[i-1];
              st[i-1]:=st[i];
              st[i]:=c;
            end;
      writeln('Записано в файл: ',st,'');
      write(Out,st);
      close(Out);
    end;
end.

Что непонятно - спрашивай, объясним

[nikita182]

IOresult - специальная функция, позволяющая выполнять файловые операции без сообщений об ошибках.

IOresult возвращает код после операции ввода/вывода
убери директивы компилятора {$I-} и {$I+} и увидишь))


to ROxY: только wincrt замени на crt ))

[Айра]

IOresult возвращает код после операции ввода/вывода
убери директивы компилятора {$I-} и {$I+} и увидишь))

И это тоже
Попробуй оставить директивы, неправильно обозвать)) файл и убрать IOresult. Программа выдаст ошибку, а если оставить условие, то она отработает нормально, просто не получит данные.. Поэтому IOresult в сочетании с директивами и обеспечивает нормальную работу файловых операций. Я это имела ввиду в том посте))

[ROxY]

Айра..
спасибо...
но вот мне нужно ещё чтобы подсчитало количество букв в фразе
допустим: МАМА
А 2
М 2...
вот...

[ROxY]

и ещё у меня проблема с wincrt...
файл wincrt.tpu не найден..

[nikita182]

черт, мои посты игнорируют ((((

to ROxY: только wincrt замени на crt ))

uses crt;
var i,j,m:integer;
    Inp,Out: text;
    st, st1, st2:string;
    c,ch: char;
begin
m:=0;
  st:='';
  assign (Inp,'Input.txt');
  {$I-}
  reset(Inp);
  {$I+}
  if IOResult=0 then
    begin
      while not Eof(Inp) do
        begin
          inc(m);
          read(Inp,Ch);
          st:=st+ch;
        end;
      Close (Inp);
    end;
  writeln('chitka: ',st,'');
  assign(Out,'Output.txt');
  {$I-}
  rewrite(Out);
  {$I+}
  if IOResult=0 then
    begin
      for j:=2 to m do
        for i:=m downto j do
          if st[i-1]>st[i] then
            begin
              c:=st[i-1];
              st[i-1]:=st[i];
              st[i]:=c;
            end;
	  st1 := '';	
	  m := 1;  
	  for i := 1 to length(st) do
        if st[i] <> st[i + 1] then begin	
         str(m, st2);
         st1 := st1 + st[i] + ' - ' + st2 + ' ';
		 m := 1;
        end
        else
         m := m + 1;		

		
      writeln('zapisano: ',st,'');
      writeln(Out,st);
	    write(Out,st1);
      close(Out);
    end;
end.

вроде работает.

[ROxY]

неа..
не совсем работает
записываем слово "СЛОВО" в файл input
в результате получаем
2;>>Aюя
-52-1;-1>-2A-1ю-1я-1
что ЭТО???

[Айра]

не совсем работает

У меня все работает нормально.. Программа выводит в файл "встречаемость" каждой буквы: в - 1 л - 1 о - 2 с - 1 . Может какие-то проблемы с кодировкой самого файла или что-то в этом роде?..

[Айра]

Сейчас попробовала использовать вместо txt файлов doc'и => если так делать, то появляются эти каракули... Ты точно txt используешь, программа сразу работала некрасиво, или как?

Сообщение отредактировано: Айра - 21.05.2007 17:19

[ROxY]

АЙРА... и Nikita182
ребят огромное спасибо!!
Очень помогли... правда!!
...итак
ТЕМА может быть закрыта!