[YazanOtoum]

السلام عليكم

اخواني انا استخدم الكود الاتي في استخراج strings معينه في Array strings 

كود :

Dim eachprocess As String() = msg(1).Split("ProSplit")
                        For i = 0 To eachprocess.Length - 2
                            MsgBox(eachprocess(i))

Next

و المتغير

كود :

msg(1)

عبارة ايضا عن String Array

وكذلك 

كود :

eachprocess

مثلا كان في msg هذه الاسماء

كود :

YazanProSplitOtoumProSplit

حاولت في كودي ان يستخرج منها الاتي 

Yazan

Otoum

ويظهر كل واحده على حدى في MsgBox

ولكن فقط ظهرت الاولى صحيحة و الثانية لا

ما السبب وما الحل وشكرااا

[الطالب]

سلام

كود :

Dim s = System.Text.RegularExpressions.Regex.Matches(msg(1), "(\P{Lu}+)|(\p{Lu}+\P{Lu}*)")
For Each w In s
    MsgBox(w.value)
Next

موفقين