جدا کردن کلمات از جمله

[mehdi.m 158]

سلام خدمت دوستان
یه همچین مقداری :

^one^#1#^two^#2#^three^#3#

 میخوام کلمات و اعداد رو بریزم توی یه لیست بعد بریزمش توی ریسایکلر ویو.
اضافه کردنش به ریسایکلر رو بلدم.
چطور باید جداشون کرد و ریخت توی لیست؟

اگه کدی بدین ممنون میشم!

[محمدرضا شاهپیری 5,620]

اگه خروجیتون همیشه به همین شکله با تابع زیر میتونید عددا و کلمات رو داخل یه لیست داشته باشین.

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