以下是引用sxdoc在2012-10-25 11:03:00的发言：
Dim
Multi As String = "党参10克，当归10克，茯苓10克，白术10克，干姜6克，甘草3克"
Dim Values() as String
Values = Multi.split("，")
For Index As Integer = 0 To Values.Length - 1
Output.Show(Values(Index))
Next
党参10克
当归10克
茯苓10克
白术10克
干姜6克
甘草3克
能分成两列就可以了
那还用写代码？手工就可以了！
这样：
Dim Multi As String = "党参10克,当归10克,茯苓10克,白术10克,干姜6克,甘草3克"
Dim Values() As String
Values = Multi.split(",")
Dim s,s1 As String
For Index As Integer = 0 To Values.Length - 1
s = Values(Index)
If s.Length = 4
s = s.Insert(2," ")
End If
s1 = s1 & s & " "
If Index > 0
If Index Mod 2 = 1
Output.Show(s1)
s1 = Nothing
End If
End If
Next
加好友 
发短信
Post By：2012/10/25 11:00:00 [显示全部帖子]
此主题相关图片如下：12345.jpg