Imports System
Imports System.Text.RegularExpressions
Public Class Test
Public Shared Sub Main()
Dim s As String = "10,000kg crane,21"
s = Regex.Replace(s, ",(?=.*?,)", "")
System.Console.WriteLine(s)
End Sub
End Class
SW1wb3J0cyBTeXN0ZW0KSW1wb3J0cyBTeXN0ZW0uVGV4dC5SZWd1bGFyRXhwcmVzc2lvbnMKClB1YmxpYyBDbGFzcyBUZXN0CiAgIFB1YmxpYyBTaGFyZWQgU3ViIE1haW4oKSAKICAgICAgIERpbSBzIEFzIFN0cmluZyA9ICIxMCwwMDBrZyBjcmFuZSwyMSIKICAgICAgIHMgPSBSZWdleC5SZXBsYWNlKHMsICIsKD89Lio/LCkiLCAiIikKICAgICAgIFN5c3RlbS5Db25zb2xlLldyaXRlTGluZShzKQogICBFbmQgU3ViCkVuZCBDbGFzcw==