задачка с текстовым файлом..

[AlenkaM]

pos () - это функция для поиска подстроки (шаблона) в строке

Её общий вид: pos (шаблон: String, строка: String): Byte

[AlenkaM]

pos () - это функция для поиска подстроки (шаблона) в строке.

Её общий вид: pos (шаблон: String, строка: String): Byte

[Fed0r]

program lab1;
uses crt;
var
c:char;
f:text;
begin
clrscr;
assign(f, 'E:\123.dat');
reset(f);
writeln('Ishodnik:');
while not eof(f) do
begin
read(f,c);
write(c);
end;
close(f);
readkey
end.

вот. эт вывод текста из файла =) как мне твой кусочек под свой подстроить? =)

[AlenkaM]

Я вот по первому твоему сообщению не поняла: максимальный размер строки 70 или 700 символов?

[Fed0r]

длина строки максимум 70.
700 это максимальное кол-во символов в тексте =)

[AlenkaM]

Может, лучше перейдём в аську или скайп?

[AlenkaM]

Если длина строки 70 символов, то она поместится в String. Если я всё правльно поняла, то решение примерно такое:

while not eof (f) do
begin
readln (f, str);
writeln (str); {выводишь исходную строку на экран}
readln (s); {вводишь нужную подстроку}
n:= pos (s,str);
for i:= n to length (s)+n-1 do
str[i]:= upCase (str[i]);
writeln (str); {выводишь преобразованную строку на экран}
end;

[Fed0r]

Сообщение от AlenkaM

Может, лучше перейдём в аську или скайп?

в асю тебе уже два раза писал. там тишина(
ща в скайп зайду