以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  复制EXCEL内有双引号问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=123949)
--  作者：漂亮美眉vszh
--  发布时间：2018/8/27 18:04:00
--  复制EXCEL内有双引号问题
单独的EXCEL中文复制软件内没有问题，包含EXCEL包含中英文时，复制到软件内就会发生错位
图片点击可在新窗口打开查看此主题相关图片如下：123.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：456.png
图片点击可在新窗口打开查看
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:13333.xls
--  作者：有点甜
--  发布时间：2018/8/27 18:28:00
--  

keydown事件，加上下面代码

 

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