[anes]

(04-05-18, 10:29 PM)سعود كتب :

PHP كود :

Imports System.Text.RegularExpressions
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim str As String = """vb4arb"".*?\."
        Dim reg As New Regex(str, RegexOptions.IgnoreCase)
        Dim ma As Match = reg.Match(TextBox1.Text)
        If ma.Success Then
            TextBox2.Text = ma.Value
        End If
    End Sub
End Class 


اخي الكريم انا اقصد جلب من ملف تكست
اي ملف تكست بجوار البرنامج مثلا