主题：[求助]粘贴数据如何保持格式

参考代码

'''
Dim str As String = ClipBoard.GetText
For Each s As String In str.split(chr(13))
    msgbox(s)
    Dim ary = s.split("。")
    msgbox(ary(0))
    msgbox(ary(1))
    msgbox(ary(2))
Next

1、拷贝这段代码到你的命令窗口

'''
Dim str As String = ClipBoard.GetText
For Each s As String In str.split(chr(13))
    msgbox(s)
    Dim ary = s.split("。")
    msgbox(ary(0))
    msgbox(ary(1))
    msgbox(ary(2))
Next

2、拷贝一下下面的数据，然后执行上面的代码，即可