如何把一篇文章的字符根据指定的中英文标点符号分割? 比如:中文标点符号为(,。;?!) 英文标点符号为(,.;?! )我只会根据单个标点符号来进行分割,如何能根据这些列出的标点符号把一篇文章分成N段字符呢? 谢谢 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 你先把整篇文章转为WideString,然后判断WideString[i]是否为上面关键字(关键字也要转为WideString),是前面的做为一段,不是继续下一个依次类推关注更好的方法 做一个循环不停的用pos函数查找,找到了就copy前一段出来,后一段继续查找,直到找不到为止 s:= '麻,烦一。点就,全写下.来'; s:= stringreplace(s,',',','+#13,[rfReplaceAll]); s:= stringreplace(s,'。','。'+#13,[rfReplaceAll]); showmessage(s); 求教 FastReport 使用的问题,谢谢 所有控件遍历 DELPHI 9.1 有BUG 求教:怎样在edit框内获得选择的路径? 急。。。怎样取得当前表的主键字段的名称? 读取小数的问题 关于DBGrid的问题,谢谢 为什么没有COUNT列呢? 有关隐藏进程的问题 对用delphi实现电子表格控件感兴趣的同志请进! 哪位仁兄知道如何从一个byte类型的数中分别取出其高4位和低4位啊? AdoQuery访问Access的问题(left join)
然后判断WideString[i]是否为上面关键字(关键字也要转为WideString),
是前面的做为一段,不是继续下一个依次类推关注更好的方法
不停的用pos函数查找,找到了就copy前一段出来,后一段继续查找,直到找不到为止
s:= '麻,烦一。点就,全写下.来';
s:= stringreplace(s,',',','+#13,[rfReplaceAll]);
s:= stringreplace(s,'。','。'+#13,[rfReplaceAll]);
showmessage(s);