[anes]

(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") 


الله يجازيك الف خير اخي
شكرا لك