- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 从exlce或DOC复制带换行符的字符，如果把换行符删除，多行成一行粘贴？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=121845)
-- 发布时间：2018/7/13 19:04:00
-- 从exlce或DOC复制带换行符的字符，如果把换行符删除，多行成一行粘贴？
If e.control = True AndAlso e.keycode = keys.v Then
\'执行代码
Dim str As String = ClipBoard.GetText
Dim nstr As String = ""
Dim tempstr As String = ""
Dim flag As Boolean = False
For i As Integer = 0 To str.length - 1
If str(i) = """" Then
If i = 0 OrElse str(i-1) = chr(9) OrElse str(i-1) = chr(10) Then \'开始
flag = True
ElseIf i = str.length-1 OrElse str(i+1) = chr(9) OrElse str(i+1) = chr(13) Then \'结束
tempstr = tempstr.Replace(chr(13), "")
nstr &= tempstr
tempstr = ""
flag = False
End If
End If
If flag = True Then
tempstr &= str(i)
Else
nstr &= str(i)
End If
Next
ClipBoard.SetText(nstr)
End If
用了上面的代码 ，粘贴时，能粘贴 进去，但换行还是换行；
如EXLCE或WORD的一个单元格：
行1
行2
我希望粘贴进FT的单元 格为：行1行2
-- 发布时间：2018/7/13 19:17:00
--
str(i) = """"
str(i-1)
str(i+1)
在上面代码 中，分别是什么意思 呢？
-- 发布时间：2018/7/13 20:30:00
--
If e.control = True AndAlso e.keycode = keys.v Then
Dim str As String = ClipBoard.GetText
str = str.Replace(chr(9), "").Replace(chr(10), "").Replace(chr(13), "")
ClipBoard.SetText(str)
End If
-- 发布时间：2018/7/13 21:25:00
--
不行呢？这3行，同时复制 ，粘贴不行。第2行单独复制，粘贴也不行
此主题相关图片如下：aaa.png
-- 发布时间：2018/7/13 21:36:00
--
我测试没有问题。上实例说明
-- 发布时间：2018/7/13 21:51:00
--
上面代码 是：第3-5合成一行；
我需要 ，3还第3行；只是第4行，的下箭头，删除 就行了。
此主题相关图片如下：bb.png
此主题相关图片如下：bb.png只替换char(10)也不行；
[此贴子已经被作者于2018/7/13 22:01:11编辑过]
-- 发布时间：2018/7/13 22:14:00
--
测试没有问题。10和13都要替换