字符串格式化和取出问题！ （在线等＋高分）！！！！！(300分)

S

socat

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-04

• #1

问题是：取出一个字符串中的子字符串！<br>举例： 一个字符串'123,456,asede,iejkid,ocpke,skkdie,dkfied,opwi3d,' 字符串没有规律！中间是以 ',' 分开的！ 我如何取出每个子字符串（也就是每个 ',' 前的字符串！）<br><br> 呵呵 小弟愚笨！ 希望高手能给个现成的例子！ 谢了！<br>如果分不够 可以另开贴给分！

 

Z

zengguocai

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-04

• #2

给个思路吧<br>save,str:string<br> str:=字符串;<br> &nbsp; if pos( ',',str)=0 then<br> &nbsp; &nbsp; &nbsp; 输出strmax并退出;<br> &nbsp; while pos(',',strmax)&lt;&gt;0 do &nbsp;<br> &nbsp; &nbsp;begin &nbsp;<br> &nbsp; &nbsp;save:=copy(str,0,length(pos(',',str))); &nbsp; 得到第一个逗号前面的字符串<br> &nbsp; &nbsp; &nbsp; strmax:=copy(str,length(save),length(str)); &nbsp; <br> &nbsp; &nbsp; if pos(',',str)=0 then<br> &nbsp; &nbsp; &nbsp; 输出str并退出;<br> <br> &nbsp; &nbsp;end;

 

S

socat

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-04

• #3

呵呵 谢了！ 明白了！ 问题解决了！

 

S

socat

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-04

• #4

我用的一个比较笨的办法解决的！ RightStr(Str, Pos(',', Str) - 1) 然后把减去这个字符串和',' 直到没有',' 然后把剩余字符串直接取出 直到str为空<br><br>呵呵 你的方法相对来说优秀很多！ 谢了！

 

S

socat

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-04

• #5

两个办法都调试不过去！ <br>谁来帮帮我

 

S

socat

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-04

• #6

而且数据中包含汉字！！！

 

S

socat

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-04

• #7

只要解决这个问题 另外开贴送分！！！

 

H

hityou

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-04

• #8

楼主看看tstringlist的方法<br>声明tt为tstringlist<br>tt。commatext='123,456,asede,iejkid,ocpke,skkdie,dkfied,opwi3d,'<br>这时候的tt就是你想要的结果，tt[0]＝'123'，tt[1]='456'...

 

S

socat

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-05

• #9

我试试! 谢了! 如果通过另开贴给分