Page 1 of 1

สอบถามเรื่อง vb.net ต้องการจะสร้าง header ที่ line 0 ใน file.txt

Posted: Fri Oct 30, 2015 10:09 am
by cheapache
ผมอยากเขียน header แค่บรรทัดเดียวที่ line 0 ใน file .txt ครับ
ซึ่งโค๊ดที่ผมเขียนเป็นแบบนี้

Code: Select all

 Dim colum1, colum2, colum3, colum4 As String
                        colum1 = txtTime
                        colum2 = DataArray(1)
                        colum3 = DataArray(2)

                        If Temp > Maxt And Temp < Mint Then
                            colum4 = "OFF"

                        End If
                        Dim header As String = ("Time            Temp.   Humidity")
                        Dim filename As String = "" & FN & "" & txtDate & ".txt"
                        Dim writer As System.IO.StreamWriter = New StreamWriter(filename, True)
                        writer.WriteLine(header)
                        writer.WriteLine(colum1 & "      " & colum2 & "      " & colum3 & "      " & colum4)
                        writer.Close()
และผลออกมาเป็นแบบตามรูปที่แนบไว้นะครับ มันขึ้น header ให้ทุกบรรทัด ไม่ทราบว่าจะต้องแก้โค๊ดยังไงให้ขึ้น header ที่ line 0
รบกวนด้วยครับ

Re: สอบถามเรื่อง vb.net ต้องการจะสร้าง header ที่ line 0 ใน file.txt

Posted: Fri Oct 30, 2015 7:08 pm
by snasui
:D หากเป็นการเขียนซ้ำเข้าไปในไฟล์เดิมก็ต้องตรวจสอบก่อนว่าไฟล์นั้นมีข้อมูลอยู่แล้วหรือไม่ หากมีแล้วจะต้องไม่เขียน Header ซ้ำ แต่หากไม่มีให้เขียน Header ด้วย เช่นนี้ครับ

Re: สอบถามเรื่อง vb.net ต้องการจะสร้าง header ที่ line 0 ใน file.txt

Posted: Fri Oct 30, 2015 11:44 pm
by cheapache
โอเคครับ จะลองแก้ไขดูครับ
ขอบคุณมากครับอาจารย์

Re: สอบถามเรื่อง vb.net ต้องการจะสร้าง header ที่ line 0 ใน file.txt

Posted: Wed Jul 06, 2016 2:32 pm
by profess79
เดาว่า

Code: Select all

Dim colum1, colum2, colum3, colum4 As String
colum1 = txtTime
colum2 = DataArray(1)
colum3 = DataArray(2)

If Temp > Maxt And Temp < Mint Then
    colum4 = "OFF"
End If
Dim header As String = ("Time            Temp.   Humidity")
Dim filename As String = "" & FN & "" & txtDate & ".txt"
Dim writer As System.IO.StreamWriter = New StreamWriter(filename, True)
writer.WriteLine(header)
writer.WriteLine(colum1 & "      " & colum2 & "      " & colum3 & "      " & colum4)
writer.Close()
อยู่ใน loop อะไรซักอย่าง

ให้เอาบรรทัด

Code: Select all

writer.WriteLine(header)
มาไว้ก่อนเข้า loop ครับ