如何在文本文件中判断是否有空格和空格的个数

jstaryang 2010-01-24 08:42:25
如题...
...全文
343 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
justin_wkf 2010-01-25
  • 打赏
  • 举报
回复
经典
柯本 2010-01-24
  • 打赏
  • 举报
回复
[Quote=引用 4 楼 dd_zhouqian 的回复:]
str:string;

length(str)-length(trim(str));
[/Quote]
trim不能去掉中间的空格
所以你的不可用
dd_zhouqian 2010-01-24
  • 打赏
  • 举报
回复
str:string;

length(str)-length(trim(str));
柯本 2010-01-24
  • 打赏
  • 举报
回复
程序没测试,到底还是写错了,上面应该是:
s:=stringreplace(t.txt,' ','',[rfReplaceAll]); //去掉所有空格
柯本 2010-01-24
  • 打赏
  • 举报
回复
不用逐行统计也可以,给你一个不合常理的方法:
t:=tstringlist.creat;
t.loadfromfile('你的文本文件');
s:=stringreplace(t.txt,' ',,[rfReplaceAll]);
c=length(t.txt)-length(s); //空格的个数,为0即无空格
。。。。。
当然你可用tregexpr(正则)来做,要比逐行统计程序上方便些(效率不管了。。。)
kfcoffe 2010-01-24
  • 打赏
  • 举报
回复
逐行统计吧,呵呵。

16,748

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 语言基础/算法/系统设计
社区管理员
  • 语言基础/算法/系统设计社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧