جدا کردن دو کلمه از فایل txt

[Rain_Saeid]

سلام و درود
دوستان عزیز ی فایل متنی txt متغیری هست که هر سری نوشته های داخلش عوض میشه
این فایل متنی با / به دو حرف یا کلمه جداسازی شده

بنده میخوام با برنامه این فایل متنی رو بخونم
سپس دوتا متغیر یا textbox باشه که این دو کلمه که با / جدا سازی شده رو بصورت جدا گانه توی متغیر یا textbox قرار بده

فایل متنی که هست مثلا به این صورت هست :

hi/hwtf
یا
hoid/mead
یا
hy/ds

ممنون میشم راهنمایی بفرمایید

[gilsoft]

سلام و درود
دوستان عزیز ی فایل متنی txt متغیری هست که هر سری نوشته های داخلش عوض میشه
این فایل متنی با / به دو حرف یا کلمه جداسازی شده

بنده میخوام با برنامه این فایل متنی رو بخونم
سپس دوتا متغیر یا textbox باشه که این دو کلمه که با / جدا سازی شده رو بصورت جدا گانه توی متغیر یا textbox قرار بده

فایل متنی که هست مثلا به این صورت هست :

hi/hwtf
یا
hoid/mead
یا
hy/ds

ممنون میشم راهنمایی بفرمایید

سلام دوست عزیز

اینم کد جداسازی:

Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click

    Dim Filename As String = Application.StartupPath & "\slash.txt"

    Using sr As New StreamReader(Filename, System.Text.Encoding.UTF8)

        Dim line As String

        Dim FindStr As String = ""

        Dim words As String() = {}

        Do While sr.Peek >= 0

            line = sr.ReadLine

            Dim pos As Integer = line.IndexOf("/"c)

            If pos > 0 Then

                Dim n1 As Integer = InStrRev(line, " "c, pos)

                Dim n2 As Integer = line.IndexOf(" "c, pos)

                If n2 > 0 Then

                    FindStr = line.Substring(n1, (n2 - n1))

                Else

                    FindStr = line.Substring(n1).Trim

                End If

                If FindStr.Length > 0 Then

                    words = FindStr.Split("/"c)

                Else

                    words = {}

                End If

            End If

            If words.Length > 1 Then

                TextBox1.Text = words(0)

                TextBox2.Text = words(1)

                Console.WriteLine("{0} , {1}", words(0), words(1))

            End If

        Loop

    End Using

End Sub

موفق باشید .....

[Rain_Saeid]

با تشکر

با همین دستور جلو رفتم، ولی خروجی که میخوام نمایش بده
خروجی میشه : system.string[]

خودم هم روش کار کرده بودم ، همین خروجی رو میداد، ممنون میشم روش خروجی گرفتن رو هم برام بنویسید

[336699]

سلام

از این کد استفاده کن

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim bekhoon As New System.IO.StreamReader(Application.StartupPath & "\file.txt", True)

        While bekhoon.Peek > -1

            Dim khoondam() As String = bekhoon.ReadLine.Split("/")

            TextBox1.Text = khoondam(0)

            TextBox2.Text = khoondam(1)

        End While

        bekhoon.Close()

    End Sub

[Rain_Saeid]

سلام

از این کد استفاده کن

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim bekhoon As New System.IO.StreamReader(Application.StartupPath & "\file.txt", True)

        While bekhoon.Peek > -1

            Dim khoondam() As String = bekhoon.ReadLine.Split("/")

            TextBox1.Text = khoondam(0)

            TextBox2.Text = khoondam(1)

        End While

        bekhoon.Close()

    End Sub

کد بسیار ساده و مفیدی بود و کارم راه افتاد .. خیلی ممنون

gilsoft استاد دست شما هم دردنکنه تشکر

[gilsoft]

با تشکر

با همین دستور جلو رفتم، ولی خروجی که میخوام نمایش بده
خروجی میشه : system.string[]

خودم هم روش کار کرده بودم ، همین خروجی رو میداد، ممنون میشم روش خروجی گرفتن رو هم برام بنویسید

سلام مجدد

من این قطعه کد رو از جایی کپی نگرفتم .. تستش کردم و درست کار می‌کنه

نمیدونم مشکل شما چیه ؟

[Rain_Saeid]

سلام مجدد
من این قطعه کد رو از جایی کپی نگرفتم .. تستش کردم و درست کار می‌کنه
نمیدونم مشکل شما چیه ؟

استاد من نتونستم از دستور شما خروجی بگیرم
بنده جسارت نمیکنم بگم دستور شما اشتباهه
فقط نتونستم خورجی بگیرم ازش