参考代码
Dim str = ClipBoard.GetText
Dim xmlDoc As New System.XML.XmlDocument
xmlDoc.Loadxml(str)
Dim ndList = xmlDoc.SelectNodes("/订单明细/材料明细/Item")
For i As Integer = 0 To ndList.count - 1
Dim ys As String = ndList(i).Attributes("颜色").value
Dim zl As String = ndList(i).Attributes("重量").value
Dim cd As String = ndList(i).Attributes("长度").value
output.show(ys & " " & zl & " " & cd)
Next