[浏览完整版]
标题：怎样去掉备注列中多行文本中的空行？
1楼
mr725 发表于：2010/9/20 23:37:00
就是图中的意思：
此主题相关图片如下：未命名.jpg
2楼
czy 发表于：2010/9/21 0:49:00Replace不能替换回车换行符，我没找到方法。
3楼
czy 发表于：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编辑过]
4楼
czy 发表于：2010/9/21 1:32:00我晕，执行后没换行，所以看起来似乎没起作用。
5楼
狐狸爸爸 发表于：2010/9/21 9:03:00我测试有效啊
6楼
mr725 发表于：2010/9/21 10:06:00以下是引用狐狸爸爸在2010-9-21 9:03:00的发言：
我测试有效啊
我测试有效啊
我这里怎么没有效果呢？
此主题相关图片如下：未命名.jpg
7楼
狐狸爸爸 发表于：2010/9/21 10:27:00| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目85.table |
8楼
mr725 发表于：2010/9/21 10:48:00
哈哈··· 你的这个也不完美::::::::::::: 注意：第一列中的第一行：空， bbbb 和 cccc 之间空两行！结果如下：
此主题相关图片如下：未命名-.jpg
9楼
狐狸爸爸 发表于：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
10楼
mr725 发表于：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