主题：从粘贴板粘贴后并且选中当行应该怎么写啊！

 获取数据这样获取，如果格式还是错的话，你自己手动粘贴吧。

Dim Info As String = ClipBoard.GetText().replace(chr(10) & "        ", "")
Dim reg As new System.Text.RegularExpressions.Regex("(?<=.+:{1} {1}).+")
Dim mc As object = reg.Matches(info)
For i As Integer = 0 To mc.count - 1
    msgbox(mc(i).value)
Next