字符串操作，寻求最快的操作效率(100)

A

analyst

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-04-25

• #1

在一个文本文件中有如下格式的数据："小王","男",25如何写一个字符串函数分别取出"小王"， "男"，25 这三个字段的值？就是逗号作为分隔符

 

L

leader47

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-04-25

• #2

var sl:Tstringlist; sl.Delimiter := ','; sl.DelimitedText := 你的文本数据; for i:=0 to sl.count-1 do begin ...... end;ok ??

 

Z

zkktom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-04-25

• #3

建议你直接把“,”换成制表符或者空格 就可以直接导入数据库了！如果是有规律的化！

 

P

Passion

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-04-25

• #4

ExtractStrings函数。

 

北

北京男人

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-04-26

• #5

procedure TForm1.Button1Click(Sender: TObject);var N: integer; s, sTmp: string;begin sTmp:= ''; s:= '"小王","男",25'; s:= s + ','; for N:= 1 to length(s) do begin if s[N] <> ',' then sTmp:= sTmp + s[N] else begin ShowMessage(sTmp); sTmp:= ''; end; end;end;

 

A

analyst

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-04-27

• #6

多人接受答案了。