جداسازی کلمات با دستور ریجکس Regex

با سلام و سپاس خدمت عزیزان

 

با تکه کد زیر میتوانید حروف و اعداد رو جداسازی کنید.

 

Public Sub getmatch(matn As String) As List
	Dim l As List
	l.Initialize
	Dim reqstr() As String=Regex.Split("#",matn)
	For Each str As String In reqstr
		l.Add(str.Replace("^",""))
	Next
	Return l
End Sub

 
 
نحوه استفاده هم به این شکله

 
 

Dim l As List=getmatch("^one^#1#^two^#2#^three^#3#")
	For Each mm As String In l
		Log("word: "&mm)
	Next