Форум: "Основная";
Текущий архив: 2003.02.17;
Скачать: [xml.tar.bz2];
Вниз
f:file; или типа того Найти похожие ветки
← →
bios (2003-02-05 00:20) [0]привет всем
нужно вставмть запись в файл после определенного слова т.е.
вклинится между словами и добавить свою запись.
подскажите примерчиком господа.
← →
Интересующийся (2003-02-05 03:51) [1]Примерчик писать влом =) смысл: открываешь один файл на чтение, второй (новый) - на запись. Из первого коприуешь во второй, где надо вставляешь... Потом второй переименовываешь в первый =)))
← →
Poirot (2003-02-05 14:37) [2]Addon->>>>
WinAPI -> см. CreateFile и See Also в нём
← →
mate (2003-02-05 15:05) [3]Открываешь файл хоть в тоже мемо и делаешь insert(что, во что, куда). и сохраняешь.
memo1.loadfromfile("1.txt")->insert->memo1.savetofile("1.txt")
← →
bios (2003-02-05 18:52) [4]а если удалить эту запись,опять с одного в другой
копировать.других вариантов нет.примерчик если не влом.
← →
bios (2003-02-06 19:50) [5]запись нужную мне я нашел так
if (pos("program",st)>0) then
но удалить ее не получается
и примеров не могу найти
ну подскажите господа
← →
MBo (2003-02-06 19:59) [6]delete
insert
← →
bios (2003-02-06 23:26) [7]после удаления "program"текст в файл "rrf.txt"не попадает
подскажите
while not Eof(F) do
begin
Readln(F, st);
if pos("program",st)>0 then
begin
Delete(st, 1, Length(st));
s.add(st);
end;
end;
CloseFile(F);
s.savetofile("rrf.txt");
← →
MBo (2003-02-06 23:35) [8]у тебя Delete(st, 1, Length(st));
убирает всю строку
← →
bios (2003-02-06 23:41) [9]так не удаляет но текст дальше не идет
Delete(s,3,1)
← →
MBo (2003-02-06 23:45) [10]S.add вынеси из if-блока
← →
bios (2003-02-06 23:54) [11]вынес ,не идет в файл текст
← →
Palladin (2003-02-07 00:03) [12]ss:="program";
s.clear;
while not eof(f) do
begin
readln(f,st);
if pos(ss,st)>0 then
begin
поработали со строкой;
end
s.add(st);
end;
ну если так не пойдет, то что то ты не правильно делаешь...
← →
bios (2003-02-07 00:15) [13]>Palladin © заработало
но я ни как не могу коректно удалить "program"
то сначала строки уберутся символы то сзаду
← →
MBo (2003-02-07 00:22) [14]pos - функция, значит, кое-что возвращает.
Может, стоит использовать это значение?
← →
Palladin (2003-02-07 00:22) [15]ss:="program";
s.clear;
while not eof(f) do
begin
readln(f,st);
if pos(ss,st)>0 then
begin
delete(st,pos(ss,st),length(ss));
end
s.add(st);
end;
← →
bios (2003-02-07 00:32) [16]спасибо ребята а то я вокруг да около теперь не забуду эту
delete
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.02.17;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.008 c
