PDA

View Full Version : کار با Regx



aleas2
شنبه 28 مرداد 1391, 15:48 عصر
دوستان میخوام داخل text1 هر چی کد بصورت

name=delete_comments(.*?)type=checkbox
هسته بریزه تو list2 ولی این کد فقط اولی رو میریزه چکار کنم که هرچی هسته بریزه تو list2؟


Dim Regx As New RegExp
Regx.IgnoreCase = True
Regx.MultiLine = True
Dim targetinputname As String
List2.Clear
Regx.Pattern = " name=delete_comments(.*?)type=checkbox"
Set Machs = Regx.Execute(text1.Text)
For Each Mach In Machs
List2.AddItem Mach.Value
Next

aleas2
شنبه 28 مرداد 1391, 16:38 عصر
خودم تونستم به این روش انجام دادم ممنون(گفتم بذارم شاید بدرد کسی دگه خورد)

List2.Clear
Regx.Pattern = " name=delete_comments(.*?)type=checkbox"
Set Machs = Regx.Execute(text1.Text)
Do While Regx.Test(text1) = True
Set Machs = Regx.Execute(text1.Text)
For Each Mach In Machs
List2.AddItem Trim(Mach.Value)
text1 = Regx.Replace(text1, " ")
Next
Loop

m.4.r.m
شنبه 28 مرداد 1391, 16:51 عصر
مبارکه انشالله بیشتر هم بتونی