[anes]

السلام عليكم
سؤالي هو عن كود يجلب سطر معين من ملف تكست

مثال لدينا التكست بكس به هذا المحتوى

كود :

jOTliNWMzMWVmZjg0NjA13"vb4arb"3NyIsImV4cCI6MTQ2NTk1OTM0NX0.uFn3hiz8CIup8iHko34YqNB-LBWth

اريد جلب المحتوى من كلمة  vb4arb  الى النقطة
اتمنى ان يكون السؤال واضح
وشكرا

[سعود]

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 


[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 


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

[سعود]

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

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

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

[anes]

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

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

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

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

المحتوى ليس ثابت اخي

[سعود]

إقتباس :المحتوى ليس ثابت اخي 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") 


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


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