(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 


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

اي ملف تكست بجوار البرنامج مثلا 

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

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

اي ملف تكست بجوار البرنامج مثلا 

مافي اي اشكالية يمكنك تطبيق الكود واستبدال كلمة Textbox1.text بمحتوى الملف النصي.

إقتباس :المحتوى ليس ثابت اخي Wink

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

إقتباس :المحتوى ليس ثابت اخي Wink

ادري اخي كنت اقصد تكتب كود يقرا المسار ويخزن النص بمتغير هكذا اقصد

شوف التعديل

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(My.Computer.FileSystem.ReadAllText("file.txt"))
        If ma.Success Then
            TextBox2.Text = ma.Value
        End If
    End Sub
End Class 


PHP كود :

My.Computer.FileSystem.ReadAllText("file.txt")