请问如何将含几种分隔符的文本文件记录导出其他数据库?(50分)

M

mong

Unregistered / Unconfirmed
GUEST, unregistred user!
文本格式如下:
[开始]
^字段1 ^字段2 '字段3 #字段4 ^字段5 。。。
^aaa ^bbb'100#2002/08/05^ccc....
该文本含有^,',#等三种分隔符,请问如何读取?
 
我把你的字符串转换成以回车#13#10分隔的了,剩下的你自己做吧
procedure TForm1.Button1Click(Sender: TObject);
var
l_Str : string;
begin
l_Str:='^aaa ^bbb''100#2002/08/05^ccc';
l_Str := StringReplace(l_Str, '^', #13#10, [rfReplaceAll]);
l_Str := StringReplace(l_Str, '''', #13#10, [rfReplaceAll]);
l_Str := StringReplace(l_Str, '#', #13#10, [rfReplaceAll]);
Label1.Caption := l_Str;
end;
 
接受答案了.
 

Similar threads

顶部