怎样去掉备注列中多行文本中的空行？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 怎样去掉备注列中多行文本中的空行？

共有12399人关注过本帖树形打印复制链接主题：怎样去掉备注列中多行文本中的空行？

mr725

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

加好友

发短信

等级：MVP荣誉狐帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00

怎样去掉备注列中多行文本中的空行？ 发帖心情

Post By：2010/9/20 23:37:00 [显示全部帖子]

就是图中的意思：

图片点击可在新窗口打开查看此主题相关图片如下：未命名.jpg

mr725

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

加好友

发短信

等级：MVP荣誉狐帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00

Post By：2010/9/21 10:06:00 [显示全部帖子]

以下是引用狐狸爸爸在2010-9-21 9:03:00的发言：
我测试有效啊

我这里怎么没有效果呢？

此主题相关图片如下：未命名.jpg

mr725

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

加好友

发短信

等级：MVP荣誉狐帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00

Post By：2010/9/21 10:48:00 [显示全部帖子]

以下是引用狐狸爸爸在2010-9-21 10:27:00的发言：

下载信息 [文件大小：300.0 KB 下载次数：0]
点击浏览该文件:管理项目85.table

哈哈··· 你的这个也不完美::::::::::::: 注意：第一列中的第一行：空， bbbb 和 cccc 之间空两行！结果如下：

此主题相关图片如下：未命名-.jpg

mr725

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

加好友

发短信

等级：MVP荣誉狐帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00

Post By：2010/9/21 11:39:00 [显示全部帖子]

以下是引用狐狸爸爸在2010-9-21 11:22:00的发言：

这样完美：

Dim s As String = Tables("表A").Current("第一列")

s = s.Replace(vbCrLf & vbCrLf,vbCrLf )

Loop While s.Indexof(vbCrLf & vbCrLf) >=0

Tables("表A").Current("第二列") = s

还是有空行：

此主题相关图片如下：未命名+.jpg

mr725

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

加好友

发短信

等级：MVP荣誉狐帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00

Post By：2010/9/21 12:09:00 [显示全部帖子]

以下是引用blackzhu在2010-9-21 12:04:00的发言：
我两个都测试有效.

打开备注列的窗口看看就知道了，第一行是空行。

mr725

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

加好友

发短信

等级：MVP荣誉狐帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00

Post By：2010/9/21 12:30:00 [显示全部帖子]

以下是引用czy在2010-9-21 12:23:00的发言：
Dim s As String = Tables("表A").Current("第一列")
Tables("表A").Current("第二列") = s.Replace(vbCrLf & vbCrLf,vbCrLf ).Trim(vbCrLf & vbCrLf)

c版：还是有空行：

此主题相关图片如下：未命名+e.jpg

mr725

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

加好友

发短信

等级：MVP荣誉狐帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00

Post By：2010/9/21 12:48:00 [显示全部帖子]

谢谢啊～看来还是用循环更好，因为不知道备注型列中会有多少行。。。图片点击可在新窗口打开查看

mr725

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

加好友

发短信

等级：MVP荣誉狐帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00

Post By：2010/9/21 16:13:00 [显示全部帖子]

以下是引用狐狸爸爸在2010-9-21 11:22:00的发言：

这样完美：

Dim s As String = Tables("表A").Current("第一列")

s = s.Replace(vbCrLf & vbCrLf,vbCrLf )

Loop While s.Indexof(vbCrLf & vbCrLf) >=0

Tables("表A").Current("第二列") = s

您上面的就差一点才完美··

这样循环ok ：

Dim s As String = Tables("表A").Current("第一列")
Do
s = s.Replace(vbCrLf & vbCrLf,vbCrLf).trim()
Loop While s.Indexof(vbCrLf & vbCrLf) > 0
Tables("表A").Current("第二列") = s

下一主题 >> << 上一主题

主题：怎样去掉备注列中多行文本中的空行？