[顯示] [隱藏]

Imports System.Io
Module Module1
    Sub Main()
        Dim dataFile As New StreamReader("c:\students.txt", System.Text.Encoding.Default)
        Dim stickerFile As New StreamWriter("c:\sticker.txt", False, System.Text.Encoding.Default)
        Dim str1 As String() = Nothing
        Dim line1 As String
        Dim sp As String
        Do While dataFile.Peek <> -1
            line1 = dataFile.ReadLine()
            str1 = Split(line1, ",")
            stickerFile.WriteLine("寄件人　：　")
            stickerFile.WriteLine("郵遞區號:　")
            stickerFile.WriteLine("地址:　　　")
            stickerFile.WriteLine()
            stickerFile.WriteLine()
            stickerFile.WriteLine()
            sp = "                  "
            stickerFile.WriteLine(sp & "收件人: " & str1(5))
            stickerFile.WriteLine(sp & "電話　: " & str1(6))
            stickerFile.WriteLine(sp & "地址　: " & str1(4))
            stickerFile.WriteLine("-------------------------------")
            Console.WriteLine("列印 " & str1(1))
        Loop
        dataFile.Close()
        stickerFile.Close()
        Console.WriteLine("郵寄標籤列印完成.存入檔案 c:\sticker.txt")
        Console.WriteLine("請按任意鍵結束!")
        Console.ReadLine()
    End Sub
要怎麼把他改成標題只印一次其他就都資料還有我想要讓資料在標題下面
就是標題 標題
       資料1 資料1
       資料2 資料2
ps:哪一段是連續列印資料的程式
麻煩知道的大大幫個忙謝謝

Dim dataFile As New StreamReader("c:\students.txt", System.Text.Encoding.Default)
        Dim stickerFile As New StreamWriter("c:\sticker.txt", False, System.Text.Encoding.Default)
        Dim str1 As String() = Nothing
        Dim line1 As String
        Dim sp As String

        stickerFile.WriteLine("寄件人       郵遞區號        地址        收件人      電話        地址        列印")
        stickerFile.WriteLine("=================================================================================")
        Do While dataFile.Peek <> -1
            line1 = dataFile.ReadLine()
            str1 = Split(line1, ",")
            stickerFile.WriteLine(str1(1) + "    " + str1(2) + "    " + str1(3) + "    " + str1(4) + "    " + str1(5) + "    " + str1(6) + "    " + str1(1))
        Loop
        dataFile.Close()
        stickerFile.Close()
        Console.WriteLine("郵寄標籤列印完成.存入檔案 c:\sticker.txt")
        Console.WriteLine("請按任意鍵結束!")
        Console.ReadLine()