Работа с файлами, строками

← →
NneRreaLl (2003-12-21 19:03) [0]

Здарова !!!

Как сделать, что-бы из файла который состоит из таких строк -- записать в другой только те строки которые находятся между "hello" ?

ФАЙЛ №_1

апавпыавпкунп
енгекннекнцкнек
екнкнекунекунуекн
енекнекнекнукенекн
"hello" строка1 "hello"
"hello" строка2 "hello"
"hello" строка3 "hello"
"hello" строка4 "hello"
"hello" строка5 "hello"
екнкенунекунекн
екнуекнукенкнк

То етсь должно получиться:

ФАЙЛ №_2
строка1
строка2
строка3
строка4
строка5

← →
Palladin © (2003-12-21 19:08) [1]

Pos, = , if

← →
Anatoly Podgoretsky © (2003-12-21 19:08) [2]

Вчера было обратно.

← →
Думкин © (2003-12-21 19:12) [3]

> [2] Anatoly Podgoretsky © (21.12.03 19:08)

Завтра опять будет.

← →
Anatoly Podgoretsky © (2003-12-21 19:33) [4]

Думаешь это одно и тоже задание?

← →
sniknik © (2003-12-21 19:43) [5]

толи один человек пишет под разными никами. ну не может признатся что не разобрался, или просто готового кода ждал, вот и создает ветку с немного измененным заданием.
толи у преподов такая слабая фантазия всем одно и тоже задание дают... (сессия однако :)

но действительно почему так много веток с одним и тем же? (думаю понятно на этот вопрос отвечать не надо. серьезно во всяком случае :)

Не я думаю ему подсказали как сделать "hello" строка1 "hello", а теперь с него требуют обратную операцию.

А одинаковые наверно потому что из одного института.

даю код на паскале. здесь только принцип. думаю, что лучше
оптимизировать. не проверял, но все должно работать.

var
r,w: TextFile;
s: string;
x: integer;
begin
AssignFile(r,"File1.txt");
AssignFile(w,"File2.txt");
reset(r);
rewrite(w);
while not EOF(r) do
begin
readln(r,s);
if pos("hello",s)>0 then
begin
delete(s,1,5);
x:=pos("hello",s)>0;
if x>0 then
begin
delete(s,x,5);
writeln(s,w);
end;
end;
end;
closefile(r);
closefile(w);
end.

А я думаю -- ему просто нехер делать.
Даже в самой простой книге по Pascal можно посмотреть работу строковых функций. Ведь твой пример и предполагает работу со строками. А запись в файл -- ... понты. Я уже не говорю о FAQ-ах.

------------------------------------------------
Сила мысли поможет тебе ! Только нужно её найти.

Работа с файлами, строками Найти похожие ветки