[求助] 删除 lines 中的空行 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] 删除 lines 中的空行

共有2618人关注过本帖树形打印复制链接主题：[求助] 删除 lines 中的空行

zcgmxf

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：七尾狐帖子：1653 积分：14702 威望：0 精华：0 注册：2014/6/6 8:42:00

[求助] 删除 lines 中的空行 发帖心情

Post By：2021/1/27 10:39:00 [只看该作者]

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

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

苹果

香蕉
桔子

苹果

香蕉
桔子

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：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

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：七尾狐帖子：1653 积分：14702 威望：0 精华：0 注册：2014/6/6 8:42:00

Post By：2021/1/27 11:44:00 [只看该作者]

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

苹果

香蕉
桔子

苹果

香蕉
桔子

[此贴子已经被作者于2021/1/27 11:44:35编辑过]

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：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)

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

主题：[求助] 删除 lines 中的空行