Форум: "Основная";
Текущий архив: 2004.01.05;
Скачать: [xml.tar.bz2];
ВнизРабота с файлами, строками Найти похожие ветки
← →
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]толи один человек пишет под разными никами. ну не может признатся что не разобрался, или просто готового кода ждал, вот и создает ветку с немного измененным заданием.
толи у преподов такая слабая фантазия всем одно и тоже задание дают... (сессия однако :)
но действительно почему так много веток с одним и тем же? (думаю понятно на этот вопрос отвечать не надо. серьезно во всяком случае :)
← →
Anatoly Podgoretsky (2003-12-21 19:50) [6]Не я думаю ему подсказали как сделать "hello" строка1 "hello", а теперь с него требуют обратную операцию.
А одинаковые наверно потому что из одного института.
← →
CYBERWOLF (2003-12-21 20:56) [7]даю код на паскале. здесь только принцип. думаю, что лучше
оптимизировать. не проверял, но все должно работать.
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.
← →
MAC (2003-12-21 21:46) [8]А я думаю -- ему просто нехер делать.
Даже в самой простой книге по Pascal можно посмотреть работу строковых функций. Ведь твой пример и предполагает работу со строками. А запись в файл -- ... понты. Я уже не говорю о FAQ-ах.
------------------------------------------------
Сила мысли поможет тебе ! Только нужно её найти.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.01.05;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.01 c