5,392
社区成员
发帖
与我相关
我的任务
分享如何用delphi6实现自动删除某文本文件中的部分内容？--具体请看内容
如：有一文件名为：1.txt
内容如下：
dlfjjfldslfjdsfjfjjjjjjjjjjjjjjjjjjjkfjdljfldsfldsl
设我有一个form 上有一个button1，请问如何实现点击button1后，1.txt内的jjjjjjjjjjjjjjjjjjj会自动删除，并保存？
内容如下：
dlfjjfldslfjdsfjfjjjjjjjjjjjjjjjjjjjkfjdljfldsfldsl
设我有一个form 上有一个button1，请问如何实现点击button1后，1.txt内的jjjjjjjjjjjjjjjjjjj会自动删除，并保存？
...全文
请发表友善的回复…
发表回复
jacky_hou 2004-06-29
- 打赏
- 举报
帮你顶下
才子鸣 2004-06-27
- 打赏
- 举报
up
arhatcsdn 2004-06-27
- 打赏
- 举报
收藏先，回去试试看
johnzhangbit 2004-06-27
- 打赏
- 举报
这个错误和我写的代码无关和这个问题都无关，你可以做单步调试，看看那儿出了问题。
wind321 2004-06-25
- 打赏
- 举报
用delete(s,i,c);也不行啊，报错啊：constant object can't not be passed as var
parameter
怎么办？？问题还未曾解决啊？
parameter
怎么办？？问题还未曾解决啊？
wind321 2004-06-24
- 打赏
- 举报
怎么找？？怎么删啊，用什么函数啊？？
wind321 2004-06-24
- 打赏
- 举报
哦，是用delete()啊，谢谢了，我试试看。
johnzhangbit 2004-06-24
- 打赏
- 举报
这样的话只要把 lxpbuaa(桂枝香在故国晚秋) 兄的代码稍做修改就可以了。
var
F: TStrings;
i,c:integer;
s:string;
begin
F := TStringList.Create;
F.LoadFromFile('c:\1.txt');
i:=pos('aaa',f.text)+3;
c:=pos('bbb',f.text)-i;
s:=f.text;
delete(s,i,c);
f.text:=s;
F.SaveToFile('c:\1.txt');
F.Free;
end;
var
F: TStrings;
i,c:integer;
s:string;
begin
F := TStringList.Create;
F.LoadFromFile('c:\1.txt');
i:=pos('aaa',f.text)+3;
c:=pos('bbb',f.text)-i;
s:=f.text;
delete(s,i,c);
f.text:=s;
F.SaveToFile('c:\1.txt');
F.Free;
end;
wind321 2004-06-24
- 打赏
- 举报
怎么没人回贴了！！！！
No_1gogo 2004-06-23
- 打赏
- 举报
那就先找到AAA这个标识符的位置啊，再把后面的删掉不就好了
wind321 2004-06-23
- 打赏
- 举报
这样吧，换个说法，在文本1.txt中
fkkfkdsljfdkfsjfldsjfls AAA fdjfldkslfjlsfj BBB fdsfdfas AAA dsfsdf dfs DDD dfsaf
AAA,BBB,CCC,DDD为标识符，如何实现把只AAA后的内容删去？
fkkfkdsljfdkfsjfldsjfls AAA fdjfldkslfjlsfj BBB fdsfdfas AAA dsfsdf dfs DDD dfsaf
AAA,BBB,CCC,DDD为标识符，如何实现把只AAA后的内容删去？
wind321 2004-06-23
- 打赏
- 举报
这样不行，若是
kkkk-----klfjdlsjflkdjf
kkkk---oiejfldsjafl
kkkk----sjfldsfjdfjdsjflfjdfdhgdalgfd很多行时，要把kkkk后的都删了，你怎么办（你事先不知道kkkk后有什么字符串的）？
kkkk-----klfjdlsjflkdjf
kkkk---oiejfldsjafl
kkkk----sjfldsfjdfjdsjflfjdfdhgdalgfd很多行时，要把kkkk后的都删了，你怎么办（你事先不知道kkkk后有什么字符串的）？
vavyboyleon 2004-06-23
- 打赏
- 举报
首先同意楼上的的楼上的，其次我想问一下，你的要求就只有这个嘛？没有这么简单吧？
ghchen 2004-06-23
- 打赏
- 举报
同意楼上的
lxpbuaa 2004-06-23
- 打赏
- 举报
var
F: TStrings;
begin
F := TStringList.Create;
F.LoadFromFile('c:\1.txt');
F.Text := StringReplace('jjjjjjjjjjjjjjjjjjj', F.Text, []);
F.SaveToFile('c:\1.txt');
F.Free;
end;
————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————
F: TStrings;
begin
F := TStringList.Create;
F.LoadFromFile('c:\1.txt');
F.Text := StringReplace('jjjjjjjjjjjjjjjjjjj', F.Text, []);
F.SaveToFile('c:\1.txt');
F.Free;
end;
————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————
