文本文件替换问题

joann 2003-10-19 10:07:00
文本文件如下:
name customer
......
张三 人民厂
李四 群众厂
张三 团结公司
.....
如何将'团结公司'改为王五的客户
即:王五 团结公司
...全文
26 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
lyjlee 2003-10-19
  • 打赏
  • 举报
回复
如果name和customer段之间的分隔符是vbtab,则可以用如下代码实现:

Open "location.txt" For Output As #1
Do Until EOF(1)
Line Input #1, iString
arr = Split(iString,vbtab)
str1 = arr(0)
str2 = arr(1)
if str2="团结公司" then
str1="王五"
print #1,str1&vbtab&str2
end if
Loop
huojiehai 2003-10-19
  • 打赏
  • 举报
回复
var
SL: TStringlist;
lp: integer;
begin
SL := TStringlist.create;
sl.loadfromfile('d:\aa.txet');
for lp := 0 to sl.count - 1 do
begin
if Pos(' 团结公司', sl[lp]) > 0 then
begin
sl[lp] := '王五 ' + '团结公司'';
break;
end;
end;
sl.savetofile('d:\aa.txet');
Sl.free;
end;
joann 2003-10-19
  • 打赏
  • 举报
回复
空格
zhoutian618 2003-10-19
  • 打赏
  • 举报
回复
name和customer段之间的分隔符是什么?

5,379

社区成员

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

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