说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

如何分别取得字符串中空格前和空格后的数据呢?如‘dfds df fds'分为dfds df fds.

编辑:说三道四文库 发布时间:2018-01-22 08:32
HTML文档下载 WORD文档下载 PDF文档下载
谢谢
Function ExtractStr(index:integer;Allstr:string):string;
var
    strlist:tstringlist;
begin
    strlist:=tstringlist.Create;
    strlist.CommaText:=Allstr;
    if index>=strlist.count then
    begin
        result:='';
        exit;
    end;
    try
        result:=strlist.Strings[index-1];
    except
        result:='';
    end;
    strlist.Destroy;
end;
1.空格码是#10
2.用li_pos:=Pos(#10,as_input);找出位置
3 用MidStr函数可以取出所要的字符了。
如:
 li_pos:=Pos(#10,'dfds dffds');
 Fstr:=MidStr('dfds dffds',1,li_pos-1);
 Bstr:=MidStr('dfds dffds',li_pos+1,StrLen('dfds dffds')-li_pos);
我以前用的的方法:
ss :Tstringlist;

s := 'dfds df fds wer qwer qwer';
s := trim(s);
while length(s) > 0 do
begin
  ss.add(copy(s,1,pos(' ',s)));
  s := copy(s,pos(' ',s),length(s));
end;
先例:
var 
  one,two,three,strtmp: string;    
  intPos: integer;
begin
  strtmp := edit.text;

  intPos := pos(' ', strtmp);
  one := copy(strtmp, 1, intPos - 1);
  strtmp := copy(strtmp, intPos + 2, 255);

  intPos := pos(' ', strtmp);
  two := copy(strtmp, 1, intPos - 1);
  strtmp := copy(strtmp, intPos + 2, 255);

  three := copy(strtmp,intPos+2,255);
end;
同意DainelLee(¥$£ 吃肉的菜鸟 £$¥) 所说的方法
DainelLee(¥$£ 吃肉的菜鸟 £$¥) 的方法比较灵活。
DainelLee(¥$£ 吃肉的菜鸟 £$¥) 
这个方法好。
云计算智能交通行业论坛:李德毅院士谈智能车 多家知名企业分享应用实践 我伙呆!CRM生死对手微软及Salesforce或将联手 阿里巴巴曾鸣:数据时代来临 OpenStack企业应用之路技术培训:虚机迁移、HA、VDI、跨Hypervisor管理 云计算技术背后的那些天才程序员:KVM之父Avi Kivity 散分了,关于OS问题?? 发布自己的书籍FTP,欢迎大家光顾! 喜欢上了女友的朋友 请支招 自定义控件的事件,定义之后在使用时总是回传数据,不管有没有响应代码... 什么是字节码?什么是机械码? 我作为一个网站项目的中介人,我找到一个技术员,打算带她见客户 请教高手:关于两个网页交互的问题 调用存储过程insert记录时出错,帮我看一看。 WEB服务器控件怎么只实现客户端的事件响应啊? ... 求寓意好,写起来好看,读起来好听的英文名字,别忘了 有寓意美好的英文名字吗? --I didn't think you coul 我是双子座的女生,我想要一个英文名,要美好的寓意, the boss ordered that the 我想要一个开头最好是s,好听,寓意好的英文名哦,麻 It is hard for them _____ Our task is_____the work hundred of和hundreds of的区别 纽约华埠便衣警察扮匪调查抢劫案吓坏金叙总统称叙会议日期未定 联合国特使将奥巴马健保网面临感恩节大限 逾期恐将韩国人战殁者遗属要求靖国神社取消合祀美国财政僵局刚解 共和党就医改法案再\"飞鱼\"宁泽涛打破亚洲纪录 张培佩顿与众名宿正式入选NBA名人堂 科摔跤回归奥运会正式比赛项目 连续改革又是一年新生报到季 如何让宝宝开心上利物浦铁卫或需休战十周 恐无缘参加剩武道仙门重生之逆光飞翔征仙我的二次元人生浪子江湖鲁布格深谷湖旅游兴义清真寺旅游礐石塔山景区旅游老妈宫旅游南澳总兵府旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘