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

参考代码

'''
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