如何让一个字符串（由多个小字符串，中间以逗号分隔开）转换成stringlist类

Posted 2023-05-16

这是我写的，可以达到你要求procedure TForm1.ButSplitClick(Sender: TObject);var Inipos:integer; Endpos:integer; SourceLen:integer; FoundLen:integer; Sourcestr:string; Tempstr:string; Foundstr:string; Mystring:TStrings; Flag:Boolean;begin Flag:=false; Sourcestr:=Trim(Edit1.text); Foundstr:=Trim(Edit2.text); SourceLen:=Length(Sourcestr); FoundLen:=Length(Foundstr); Endpos:=pos(Foundstr,Sourcestr); inipos:=1; try Mystring:=TStringList.Create ; While Endpos<>0 do begin Tempstr:=Copy(Sourcestr,Inipos,(Endpos-Inipos)); Mystring.Add (Tempstr); Sourcestr:=Copy(Sourcestr,Endpos+FoundLen,SourceLen-(Endpos+FoundLen-1)); Endpos:=pos(Foundstr,Sourcestr); Flag:=true; end; if Flag then begin if Sourcestr<>'' then listbox1.Items.Assign (Mystring); end; if Flag then messagedlg('Split Over,Now!',mtinformation,[mbok],0) else messagedlg('Not Split',mtinformation,[mbok],0); finally Mystring.Free ; end;end; 参考技术A var aa,str:string; i,j:integer;beginstr:='239,233,32423,234,234,23424'; j:=1;for i:=1 to length(str) do begin if str[i]='+'then begin aa:=copy(str,j,i-j); combobox1.Items.Add(aa); j:=i+1; end else if i=length(str) then begin aa:=copy(str,j,i-j+1); combobox1.Items.Add(aa); end; end;end; 参考技术B 用TStringList对字符串进行分割。 参考技术C function SplitString(const source,ch:string):tstrings;var temp:string; i:integer;begin result:=tstringlist.Create; temp:=source; i:=pos(ch,source); while i<>0 do begin result.Add(copy(temp,0,i-1)); delete(temp,1,i); i:=pos(ch,temp); end; result.Add(temp);end; 参考技术D 不好意思,上面的+ 号应该改为 , 号

python中，如何将字符串中的多个不等量空格改为改为逗号分隔？

例如"1 2 3 4 5 6 7"，我想改成"1,2,3,4,5,6,7"，在python中如何写代码？谢谢

1、创建python代码，testsplit.py；

2、定义测试字符串，不等量空格分隔的字符串；

str='1 2 3    4 5 6  7'

3、把str中的空格分开，以','进行拼接；

p=','.join(str.split())

print(p)

4、查看运行结果，为‘1,2,3,4,5,6,7’；

参考技术A #假如有个字符串s
>>> s='a b  c d b dd  e'
#看到此字符串。首先，先把s中的空格分开（默认是以空格为分割）
>>> s.split()
#然后再使用【,】分开字符串s
>>> ','.join(s.split())
#最后效果为
>>> p=','.join(s.split())
>>> p
'a,b,c,d,b,dd,e'

参考技术B line = "1 2 3 4 5 6 7"
line = line.replace(" ","")
for i in list(line):
print i+",",

不是最好,没有用到python的长处,汗,基本达到要求本回答被提问者采纳 参考技术C line = line.replace("\s",",")