- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 怎样去掉备注列中多行文本中的空行？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=8237)
-- 发布时间：2010/9/20 23:37:00
-- 怎样去掉备注列中多行文本中的空行？
就是图中的意思：
此主题相关图片如下：未命名.jpg
-- 发布时间：2010/9/21 0:49:00
--
Replace不能替换回车换行符，我没找到方法。
-- 发布时间：2010/9/21 1:29:00
--
彻底晕了，新打开一个文件居然又可以了。
Dim s As String = Tables("表A").Current("第一列")
Tables("表A").Current("第二列") = s.Replace(chr(13) & chr(10) & chr(13) & chr(10),chr(13) & chr(10))
或
Dim s As String = Tables("表A").Current("第一列")
Tables("表A").Current("第二列") = s.Replace(vbCrLf & vbCrLf,vbCrLf )
[此贴子已经被作者于2010-9-21 1:30:25编辑过]
-- 发布时间：2010/9/21 1:32:00
--
我晕，执行后没换行，所以看起来似乎没起作用。
-- 发布时间：2010/9/21 9:03:00
--
我测试有效啊
-- 发布时间：2010/9/21 10:06:00
--
以下是引用狐狸爸爸在2010-9-21 9:03:00的发言：
我测试有效啊
我测试有效啊
我这里怎么没有效果呢？
此主题相关图片如下：未命名.jpg
-- 发布时间：2010/9/21 10:27:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目85.table |
-- 发布时间：2010/9/21 10:48:00
--
哈哈··· 你的这个也不完美::::::::::::: 注意：第一列中的第一行：空， bbbb 和 cccc 之间空两行！结果如下：
此主题相关图片如下：未命名-.jpg
-- 发布时间：2010/9/21 11:22:00
--
这样完美：
Dim s As String = Tables("表A").Current("第一列")
Do
s = s.Replace(vbCrLf & vbCrLf,vbCrLf )
Loop While s.Indexof(vbCrLf & vbCrLf) >=0
Tables("表A").Current("第二列") = s
-- 发布时间：2010/9/21 11:39:00
--
以下是引用狐狸爸爸在2010-9-21 11:22:00的发言：
这样完美：
Dim s As String = Tables("表A").Current("第一列")
Do
s = s.Replace(vbCrLf & vbCrLf,vbCrLf )
Loop While s.Indexof(vbCrLf & vbCrLf) >=0
Tables("表A").Current("第二列") = s
还是有空行：
此主题相关图片如下：未命名+.jpg