处理数据的问题...

Question

我有个.TXT文件有以下内容.
MO-030123D000041RM0101OG5050
MO-030123D000041RM0101OG5050
MO-030123D000041RM0101OG5050
MO-030123D000041RM0101OG5050
MO-030123D000041RM0101OG5050
MO-030123D000041RM0101OG5050
MO-030123D000041RM0101OG5050
我想把这个TXT文件用DELPHI语言实现字段与字段之间划逗号分隔符...再存储到另一个TXT文件里.
如MO-030123,D000041,R,M,01,01,O,G,50,50
  MO-030123,D000041,R,M,01,01,O,G,50,50
  MO-030123,D000041,R,M,01,01,O,G,50,50
   .....怎么实现.............

Answer 1

MO-030123D000041RM0101OG5050 这串字符按什么来划分字段的?  是按每个字段的字符数目还是什么?

Answer 2

写一个函数来转化一行；
用COPY和FORMAT函数来实现；

Answer 3

function ChangeOneLine(tmp:String):String;
begin
  result:=format('%s,%s,%s,%s,%s,%s,%s,%s,%s',[copy(tmp,1,9),copy(tmp,10,7),...]);
end;
呵呵，不过看来也不是什么好办法，很罗嗦；

Answer 4

你这只是改一条记录的吧,,还有我怎么把他新生成一个TXT文件呢..

Answer 5

Source := TStringList.Create;
Result := TStringList.Create;
Source.LoadFromFile('你的老文件');
for i:=0 to Source.Count-1 do
  Result.Add(ChangeOneLine(Source[i])); //调用上面的函数Result.SaveToFile('你的新文件');

Answer 6

必须给出划分每个字段条件，然后根据FORMAT函数！就可以了！