Printable View
سلام و درود
دوستان عزیز ی فایل متنی txt متغیری هست که هر سری نوشته های داخلش عوض میشه
این فایل متنی با / به دو حرف یا کلمه جداسازی شده
بنده میخوام با برنامه این فایل متنی رو بخونم
سپس دوتا متغیر یا textbox باشه که این دو کلمه که با / جدا سازی شده رو بصورت جدا گانه توی متغیر یا textbox قرار بده
فایل متنی که هست مثلا به این صورت هست :
hi/hwtf
یا
hoid/mead
یا
hy/ds
ممنون میشم راهنمایی بفرمایید
سلام دوست عزیزنقل قول:
نوشته شده توسط Rain_Saeid
اینم کد جداسازی:
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
موفق باشید .....
با تشکر
با همین دستور جلو رفتم، ولی خروجی که میخوام نمایش بده
خروجی میشه : system.string[]
خودم هم روش کار کرده بودم ، همین خروجی رو میداد، ممنون میشم روش خروجی گرفتن رو هم برام بنویسید
سلام
از این کد استفاده کن
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
کد بسیار ساده و مفیدی بود و کارم راه افتاد .. خیلی ممنوننقل قول:
نوشته شده توسط 336699
gilsoft استاد دست شما هم دردنکنه تشکر
سلام مجددنقل قول:
نوشته شده توسط Rain_Saeid
من این قطعه کد رو از جایی کپی نگرفتم .. تستش کردم و درست کار می‌کنه :متفکر:
نمیدونم مشکل شما چیه ؟
استاد من نتونستم از دستور شما خروجی بگیرمنقل قول:
نوشته شده توسط gilsoft
بنده جسارت نمیکنم بگم دستور شما اشتباهه
فقط نتونستم خورجی بگیرم ازش