Delphi的分割字符串或提取字符串?
得到一个字符串变量S,格式像这样:S=‘123,456,789’怎么把S分割成变量X和Y,让X=‘456’Y='789'...
得到一个字符串变量S,格式像这样:S=‘123,456,789’
怎么把S分割成变量X和Y,让 X=‘456’ Y='789' 展开
怎么把S分割成变量X和Y,让 X=‘456’ Y='789' 展开
展开全部
很简单
var
ss: Tstringlist;
然后在程序中
ss := tstringlist.Create;
ExtractStrings([','], [' '], pchar(S), ss);
然后你需要的字符就会被分割到ss.Strings[0]至ss.Strings[ ss.Count - 1]之间的数组中,再怎么放入x和y不用写了吧。
var
ss: Tstringlist;
然后在程序中
ss := tstringlist.Create;
ExtractStrings([','], [' '], pchar(S), ss);
然后你需要的字符就会被分割到ss.Strings[0]至ss.Strings[ ss.Count - 1]之间的数组中,再怎么放入x和y不用写了吧。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
你试试吧。
var
strData:TStrings;
i:integer;
S,X,Y:string;
begin
S:='123,456,789'
strData:=TStringList.Create;
strData.CommaText:=S;
X=strData[1];
Y=strData[2];
//==================
showmessage(X+' / '+Y);
end;
var
strData:TStrings;
i:integer;
S,X,Y:string;
begin
S:='123,456,789'
strData:=TStringList.Create;
strData.CommaText:=S;
X=strData[1];
Y=strData[2];
//==================
showmessage(X+' / '+Y);
end;
追问
X=strData[1];
这句出现错误
追答
X:=strData[1];
Y:=strData[2];
(我手写的没:::::::)
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
直接用copy函数不就结了?
var x,y:string;
x:=copy(s,4,3);
y:=copy(s,9,3);
var x,y:string;
x:=copy(s,4,3);
y:=copy(s,9,3);
追问
S是变量,有时会是'1,13,123'
追答
是以","为分界的吧,那就改成这样:
var p:integer;
x,y:string;
p:=pos(s,',');//取,位置
s:=copy(s,p+1,length(s)-p);//干掉第一个,前的
p:=pos(s,','); //取剩下的,前的
x:=copy(s,1,p-1);
s:=copy(s,p+1,length(s)-p);//再干掉,前的
y:=s;
思路就是这样子了,你最好写一个函数,这样子就可以随便分离字串中带特定字串分隔的东西了
对了,随便敲的代码,你修改一下吧,反正需要的是思路
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询