以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助] 删除 lines 中的空行  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=160270)
--  作者：zcgmxf
--  发布时间：2021/1/27 10:39:00
--  [求助] 删除 lines 中的空行

老师，如何删除lines 中的空行？谢谢！

 

Dim lst As New List(of String)
lst.Add("苹果" & vbcrlf)
lst.Add("香蕉")
lst.Add("桔子")
DataTables("表A").DataRows(0).Lines("第一列") = lst

 

 

苹果

 

香蕉
桔子

 

苹果

香蕉
桔子
--  作者：有点蓝
--  发布时间：2021/1/27 10:59:00
--  
dim s as string = "苹果" & vbcrlf

Dim lst As New List(of String)
lst.Add(s.replace(vbcr,"").replace(vblf,""))
--  作者：zcgmxf
--  发布时间：2021/1/27 11:44:00
--  

老师，是已经有了空行怎么删除？谢谢！

 

 

苹果

 

香蕉
桔子

 

苹果

香蕉
桔子

[此贴子已经被作者于2021/1/27 11:44:35编辑过]
--  作者：有点蓝
--  发布时间：2021/1/27 11:51:00
--  
Dim lst As List(of String) = DataTables("表A").DataRows(0).Lines("第一列")
Dim lst2 As New List(of String)
for each s as string in lst
if s > "" then lsta.add(s)
next

DataTables("表A").DataRows(0).Lines("第一列") = lst2