主题：数据简化

Dim Multi As String = "2000*1200*1050*950"
Dim Values() As String
Values = Multi.split("*")
For Index As Integer = 0 To Values.Length - 1
    Output.Show("规格:" & Values(0))
    Output.Show("桶径:" & Values(1))
    Output.Show("内宽:" & Values(2))
    Output.Show("轴孔:" & Values(3))
Next

  命令窗口测试