Ну и что здесь неправильного? - Форум на исходниках

WWW.ИСХОДНИКИ.РУ cpp.sources.ru

java.sources.ru web.sources.ru soft.sources.ru

jdbc.sources.ru asp.sources.ru api.sources.ru

  Форум на исходниках
  Pascal
  Ну и что здесь неправильного?
СПРОСИТЬ  ОТВЕТИТЬ
профайл | регистрация | faq

Автор Тема:   Ну и что здесь неправильного?

wwwspb опубликован 09-01-2002 13:21 MSK
Program HTML;
var src : text;
var dest : text;
var stroka : string;
var posres: byte;
var x: integer;
Begin
assign(src, 'index1.htm');
reset(src);
assign(dest, 'newfile.htm');
rewrite(dest);
repeat
readln(src,stroka);
posres:=pos('code', stroka);
if (posres <> 0) then
Begin
x:=x+1;
writeln(x, ' Enter string');
readln(stroka);
writeln(dest,stroka);
writeln('Written!');
End
else
Begin
x:=x+1;
writeln (x,' There is no code in this string!');
writeln(dest,stroka);
End;
until (stroka = '');
writeln(dest,stroka);
readln;
End.
В итоге создается пустой файл...
NOPIK опубликован 09-01-2002 13:56 MSK
А компилятор-то какой?
С чего начинается Х?
Valery Votintsev опубликован 09-01-2002 17:10 MSK
Выходной файл за тебя кто закрывать будет?
В конце программы вставь:
close(dest);
7in опубликован 10-01-2002 21:34 MSK
Не понял, для чего эта прога, но ИМХО здесь надо не...
repeat
////////
until (stroka='');
...а...
While not SeekEof(Src) do
Begin
///////
End;
Это первое, а второе - файлы закрыть (Close(Src) тоже лучше сделать)
СПРОСИТЬ  ОТВЕТИТЬ
Перейти:

E-mail | WWW.ИСХОДНИКИ.RU

Powered by: Ultimate Bulletin Board, Freeware Version 5.10a
Purchase our Licensed Version- which adds many more features!
© Infopop Corporation (formerly Madrona Park, Inc.), 1998 - 2000.

Автор	Тема: Ну и что здесь неправильного?
wwwspb	опубликован 09-01-2002 13:21 MSK Program HTML; var src : text; var dest : text; var stroka : string; var posres: byte; var x: integer; Begin assign(src, 'index1.htm'); reset(src); assign(dest, 'newfile.htm'); rewrite(dest); repeat readln(src,stroka); posres:=pos('code', stroka); if (posres <> 0) then Begin x:=x+1; writeln(x, ' Enter string'); readln(stroka); writeln(dest,stroka); writeln('Written!'); End else Begin x:=x+1; writeln (x,' There is no code in this string!'); writeln(dest,stroka); End; until (stroka = ''); writeln(dest,stroka); readln; End. В итоге создается пустой файл...
NOPIK	опубликован 09-01-2002 13:56 MSK А компилятор-то какой? С чего начинается Х?
Valery Votintsev	опубликован 09-01-2002 17:10 MSK Выходной файл за тебя кто закрывать будет? В конце программы вставь: close(dest);
7in	опубликован 10-01-2002 21:34 MSK Не понял, для чего эта прога, но ИМХО здесь надо не... repeat //////// until (stroka=''); ...а... While not SeekEof(Src) do Begin /////// End; Это первое, а второе - файлы закрыть (Close(Src) тоже лучше сделать)