急急急!高分求源码：如何查找文本文件内容，并按要求替换后重新保存

Question

查找PICKMI中，在MO-04中取MO，将100-000-410100替换为1MO-000-410100
不要求导入到数据库执行，直接通过文本方式如何实现，先谢谢各位了!
"GL","XXR","06/24/2003","017:20:41","2","C","PICKMI","PICKM","C","","S","D","100-000-410100","100-000-140101",6000000,"000000","MO-04","001","M","00-0001","2","11-0001","I","02-","","生产订单提料","生产订单","",""
"GL","XXR","06/24/2003","017:20:42","2","C","PICKMI","PICKM","C","","S","D","100-000-410100","100-000-140101",2000000,"000000","MO-04","001","M","00-0001","2","11-0002","I","02-","","生产订单提料","生产订单","",""
"GL","XXR","06/24/2003","017:24:01","2","C","MORVMR","MORV","C","","S","D","100-000-146100","100-000-410100",8100000,"000000","MO-04","001","M","2","2","00-0001","R","","","生产订单完工入库/退库","00-0001","",""
"GL","XXR","06/24/2003","017:25:23","2","C","MORVMX","MORV","C","","S","D","100-000-410100","100-000-146100",4050000,"000000","MO-04","001","M","1","2","00-0001","X","","","生产订单完工入库/退库","00-0001","",""

Answer 1

f1,f2:File;
s:string;
..
while not eof do
begin
readln(s,f1);
stringreplace(s,'100-000-410100','100-000-410100',[]);
writeln(s,f2);
end;

Answer 2

sorry,是s:=stringreplace(s,'100-000-410100','100-000-410100',[]);

Answer 3

var
  F1, F2: TextFile;
  S:string;
begin
  if OpenDialog1.Execute then begin
    AssignFile(F1, OpenDialog1.Filename);
    Reset(F1);
    if SaveDialog1.Execute then begin
      AssignFile(F2, SaveDialog1.Filename);
      Rewrite(F2);
      while not Eof(F1) do
      begin
        ReadLn(F1, s);
        s:=stringreplace(s,'100-000-410100','1MO-000-410100',[]);
        WriteLn(F2, S);
      end;
      CloseFile(F2);
    end;
    CloseFile(F1);
  end;
end;

Answer 4

sigh，其实1楼都写成这样了，还要我写源代码，楼主似乎太懒点了吧......

Answer 5

各位好。可能我的意思没有说清楚。在文件的第7列是我要查找的关键字。比方说‘PICKMI，MORVMR，MORVMX’，PICK是生产领料单，MORV是生产入库单，我需要将属于PICKMI的关键字查询出来后，将17列取两位字符(即是‘MO-04’取两位，不一定是‘MO’)，将13列的100-000-410100替换为1MO-000-410100。而MORVMR或MORVMX打头的关键字我们不需要替换。麻烦各位帮我看一下吧。小弟不胜感激。

Answer 6

有点晕，你可以用pos函数来判断一下','的位置，从而得到是第几个字段，然后再操作