共6 条记录, 每页显示 10 条, 页签: [1]

标题：老师们看看这个问题换行符vbcrlf 和chr(10) & chr(13)

1楼

mr725 发表于：2010/11/22 17:42:00

通过代码将剪贴板上的内容粘贴到表中，为何换行符 vbcrlf 和 chr(10) & chr(13) 两个结果不一样，怎么解释呢？

请耐心点看完：（中间我点击了一次还原按钮）

图片点击可在新窗口打开查看此主题相关图片如下：paste+.gif

附上代码，大家可以测试一下。。。。

Dim s As String = "aaaaaa 15000" & vbcrlf & "bbbbbb 10000" & _
vbcrlf & "cccccc 10000" & vbcrlf & "dddddd 5000"
ClipBoard.SetText(s)
CurrentTable.Select(0,0)
CurrentTable.focus
'Application.DoEvents
Syscmd.Edit.Paste()
Application.DoEvents
output.show(CurrentTable.rows(1)("第一列"))
output.show(CurrentTable.rows(2)("第一列"))
output.show(CurrentTable.rows(3)("第一列"))

2楼

bohe 发表于：2010/11/22 19:45:00

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

我这结果不一样，怎么回事？

而且全贴在第一列

[此贴子已经被作者于2010-11-22 19:45:11编辑过]

3楼

狐狸爸爸 发表于：2010/11/22 20:57:00

vbcrlf应该是chr(13) + chr(10)，和chr(10) +chr(13)顺序不同

[此贴子已经被作者于2010-11-22 20:57:56编辑过]

4楼

czy 发表于：2010/11/22 21:06:00

估计老六只取回车符来，现在可这样

因数据贴到论坛时会自动将tab换成空格，所以改成下面这样方便大家测试。

Dim s As String = "aaaaaa" & vbTab & "15000" & vbCr & "bbbbbb" & vbTab & "10000" & _
vbCr & "cccccc" & vbTab & "10000" & vbCr & "dddddd" & vbTab & "5000"
ClipBoard.SetText(s)
CurrentTable.EditPaste()

5楼

mr725 发表于：2010/11/22 22:29:00

其实，用 vbcrlf 后粘贴的数据都在单元格中，将行高拉大些就可以看到了，就是第一个单元格不设置行高也可以看到，而它下面的三个格子不知道多了什么，非要拉开行距才可以看到，郁闷之。。。

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

哈哈：这个 vbTab 、vbCr不错···

[此贴子已经被作者于2010-11-22 22:31:53编辑过]

6楼

狐狸爸爸 发表于：2010/11/23 7:45:00

呵呵，那是因为前面多了个vblf，也就是空行，所以你要拉高点。

我改改，自动去掉vblf算了

共6 条记录, 每页显示 10 条, 页签: [1]

标题：老师们看看这个问题 换行符vbcrlf 和chr(10) & chr(13)

标题：老师们看看这个问题换行符vbcrlf 和chr(10) & chr(13)