怎么用memo中的内容替换文本文件里的文字!

visualc2002 2003-08-20 03:50:12
我现在想做一个delphi程序,想实现再memo里的内容区替换网页中的内容,就是做一个更新网页的工具,能帮我一下么?说说思路,简要的代码,能有现成参考就更好了!谢谢!!!
...全文
41 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
lxpbuaa 2003-08-20
  • 打赏
  • 举报
回复
var
Strs: TStrings;
S,FileName: String;
begin
FileName := 'c:\mama.txt';
Strs := TStringList.Create;
Strs.LoadFromFile(FileName);
S := Strs.Text;
S := StringReplace(S, '你好', Memo1.Linds.Text, [rfReplaceAll, rfIgnoreCase]);
Strs.Text := S;
Strs.SaveToFile(FileName);
Strs.Free;
end;

————————————————————————————————————
宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风。
————————————————————————————————————
visualc2002 2003-08-20
  • 打赏
  • 举报
回复
不是得,我想这些都用delphi完成,
我是想把*。html转化成文本,相当于用delphi修改* .text文件的部分内容,也就是先查找到*.TEXT里相应的字(例如在记事本里查找“你好”这两个字,再用MEMO中的文本吧这两个字替换掉),再用MEMO中文本替换他,到一行结束时,在加入一个HTML换行符就行了,我在把带HTML的文本转化成*.HTML不就可以了么?
jpyc 2003-08-20
  • 打赏
  • 举报
回复
直接打开并修改。HTML文件也可以呀!刚试过,没问题。
lxpbuaa 2003-08-20
  • 打赏
  • 举报
回复
使用函数:
function StringReplace(const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string;

————————————————————————————————————
宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风。
————————————————————————————————————
visualc2002 2003-08-20
  • 打赏
  • 举报
回复
我是想把html转化成文本,相当于用delphi修改* .text文件的部分内容,也就是先查找到*.TEXT里相应的字(例如在记事本里查找“你好”这两个字,再用MEMO中的文本吧这两个字替换掉),再用MEMO中文本替换他
visualc2002 2003-08-20
  • 打赏
  • 举报
回复
替换函数,怎么用啊!能举个例子么?
shjanen 2003-08-20
  • 打赏
  • 举报
回复
可以把页面的信息以文本信息的形势读出后再用替换函数进行替换
lxpbuaa 2003-08-20
  • 打赏
  • 举报
回复
Memo1.Lines.SaveToFile();

————————————————————————————————————
宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风。
————————————————————————————————————

5,388

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧