Imports System.Text.RegularExpressions Dim ValStr As String ValStr = "0=1,1=4,2=3,3=2,4=7" Dim pattern As String = "([0-9]+)(?=\,)|([0-9]+$)" Dim re As New Regex(pattern) Dim mc As MatchCollection Dim mcArr() As Object Dim ValArr() As Double mc = re.Matches(ValStr) ReDim mcArr(mc.Count-1) mc.CopyTo(mcArr,0)
mc = re.Matches(ValStr) ReDim mcArr(mc.Count-1) mc.CopyTo(mcArr,0) ValArr = mcArr.Select(Function(m) Double.Parse(m.ToString())).ToArray()
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)