Dim s1 As String = "苹果9g,香蕉9g,西瓜6g,葡萄6g"
Dim s2 As String = "橘子9g,苹果6g,芒果6g,西瓜9g"
Dim p As String = "[\u4e00-\u9fa5]"
Dim str As String = ""
For Each s As String In s1.Split(",")
Dim g As String = System.Text.RegularExpressions.Regex.Replace(s , p , "")
Dim n As String = s.Replace(g, "")
If s2.Contains(n) Then
For Each m As String In s2.Split(",")
If m.Contains(n) Then
Dim g2 As String = System.Text.RegularExpressions.Regex.Replace(m , p , "")
Dim k1 As String = Val(g)
Dim k2 As String = Val(g2)
If k1 <> k2 Then
str = str & "," & n & IIf(k1 > k2, "少", "多") & Math.Abs(k1 - k2) & "克"
End If
End If
Next
End If
Next
str = str.Trim(",")
Output.Show(str)
加好友 
发短信
Post By：2022/6/29 9:38:00 [只看该作者]
