[ناجي إبراهيم]

السلام عليكم...

إذا كان النص دائماً بنفس الصيغة (أي كلمة name يليها الاسم ثم كلمة pass يليها الرقم) فاكتب الإجراء التالي في بداية تعريف الـ Class:

كود :

Private Sub ExtractData(ByRef AText As String, ByRef AName As String, ByRef APass As String)
    AText = AText.Trim
    If AText = "" Then
        AName = ""
        APass = ""
    Else
        Dim PassPos As Integer = AText.ToUpper().IndexOf("PASS")
        If PassPos = -1 Then
            AName = AText.Substring(4)
            APass = ""
        Else
            AName = AText.Substring(4, PassPos - 4)
            APass = AText.Substring(PassPos + 4)
        End If
    End If
End Sub

ثم قم باستدعاء الإجراء بالشكل التالي (المثال يفترض أن النص الأصلي موجود في TextBox1 و سيضع الاسم في TextBox2 و الرقم في TextBox3):

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim MyText As String = TextBox1.Text
    Dim TheName, ThePass As String

    ExtractData(MyText, TheName, ThePass)
    TextBox2.Text = TheName
    TextBox3.Text = ThePass
End Sub

نرجو الاستفادة و السلام.