Home Webboard ArticlesKnowledges  

ผู้เขียน หัวข้อ: สอบถามเรื่อง vb.net ครับ/Read text file to Array  (อ่าน 1559 ครั้ง)

0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

Chanoknun

  • บุคคลทั่วไป
สวัสดีครับผม ขอสอบถามหน่อยครับ  :cry:
ผมต้องการจะอ่านข้อความจาก text file(.txt) มาแสดงใน textbox แบบเป็น Array น่ะครับ สามารถเลือกบรรทัดที่จะนำมาแสดงได้

โดย ข้อความใน text file(.txt) จะมีประมานนี้ครับ

Save As,D:\Work\Project
Location,R_305_1
TEMP_MAX,26.00
TEMP_MIN,20.00
HUMI_MAX,70
HUMI_MIN,40


ถ้าค่ามากกว่า 0 จะ Error : Index was outside the bounds of the array. ทันทีครับ
รบกวนผู้รู้ด้วยครับ ขอบคุณมากครับ



Chanoknun

  • บุคคลทั่วไป
Re: สอบถามเรื่อง vb.net ครับ/Read text file to Array
« ตอบกลับ #1 เมื่อ: 19, ตุลาคม 2015, 09:38:14 PM »
Imports System.IO
Public Class Form1
    Dim F As StreamReader
    Dim DataArray() As String
    Dim Row() As String
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        F = New System.IO.StreamReader("D:\Work\Project_PTT\data.txt")
        DataArray = Split(F.ReadLine, ",")
        F.Close()
        Row = DataArray(1).Split(vbNewLine)
        ListBox1.Items.Add(Row(0))

    End Sub
End Class

Chanoknun

  • บุคคลทั่วไป
Re: สอบถามเรื่อง vb.net ครับ/Read text file to Array
« ตอบกลับ #2 เมื่อ: 19, ตุลาคม 2015, 11:28:38 PM »
เขียนได้เรียบร้อยละครับ

Imports System.IO
Public Class Form1
    Dim F As StreamReader
    Dim DataArray() As String
    Dim Row() As String
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        F = New System.IO.StreamReader("D:\Work\Project_PTT\data.txt")
        Row = Split(F.ReadToEnd, vbNewLine)
        F.Close()

        DataArray = Row(0).Split(",")
        TextBox1.Text = DataArray(1)

        DataArray = Row(1).Split(",")
        ListBox1.Items.Add(DataArray(1))

        DataArray = Row(2).Split(",")
        ListBox1.Items.Add(DataArray(1))


        DataArray = Row(3).Split(",")
        ListBox1.Items.Add(DataArray(1))


        DataArray = Row(4).Split(",")
        ListBox1.Items.Add(DataArray(1))


        DataArray = Row(5).Split(",")
        ListBox1.Items.Add(DataArray(1))


    End Sub
End Class

 

Sitemap 1 2 3 4 5 6 7 8 9 10 
Back to top