Foxtable(狐表)用户栏目专家坐堂 → 如何删除文本文件中的空白行


  共有4415人关注过本帖树形打印复制链接

主题:如何删除文本文件中的空白行

帅哥哟,离线,有人找我吗?
lanbor
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:431 积分:4325 威望:0 精华:0 注册:2017/3/20 21:08:00
如何删除文本文件中的空白行  发帖心情 Post By:2022/11/9 16:28:00 [只看该作者]

请教专家
当我通过读文本文件到 
strs 变量后!
 Dim strs As String = FileSys.ReadAllText(file)
发现这里面有很多空白行,
我应该如何删除 strs 文件内容中的空白行?
-----例如内容中有如下行-----
aaaaa;
bbbb;

cccc;
ddd;
1314529;

www-aa;
gggg-bb;

----------end-----------
感谢!感谢!

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106097 积分:539590 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/11/9 16:30:00 [只看该作者]

dim ss() as string = strs.replace(vbcr,"").split(vblf)
for each s as string in ss
if s.trim() == "" then
msgbox("空行")
else
msgbox("对不空的行进行处理")
endif
next

 回到顶部