我的問題是 1.要如何把 "明志科大 職子三乙資工組:" 這段字串固定在文字檔的起點,    而讀取時不會被show在表單TextBox上    2.我現在必須要將資料存入文字檔時便成一行,但將資料存成一行,在讀取時會有錯誤,且"明志科大 職子三乙資工組:" 這段字串也會被show在表單TextBox1上    3.要如何讓文字檔的資料讀取時TextBox1資料,就歸表單上的TextBox1顯示出來 ,而其他2~4也是一樣呢?      謝謝  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click      Dim x As New FileStream("c:\w2000.ini", IO.FileMode.OpenOrCreate)       Dim y As New System.IO.StreamWriter(x, System.Text.Encoding.Default)      y.Write(("明志科大 職子三乙資工組:") & "$")         'Write是將存入的資料一行 (Trim(TextBox1.Text) & "$")加入"$"是要在存入同時讓每筆資料的結尾都出現$符號      y.Write(trim(TextBox1.Text) & "$")       y.Write(Trim(TextBox4.Text) & "$")      y.Write(Trim(TextBox3.Text) & "$")      y.Write(Trim(TextBox2.Text) & "$")         y.Close()        End Sub        Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click     Dim fil_strea As New FileStream("c:\w2000.ini", IO.FileMode.Open)  '加入Microsoft.VisualBasic.Left(TextBox1.Text, Len(TextBox1.Text) - 1)     Dim str_reader As New StreamReader(fil_strea)       Dim mStr As String          mStr = str_reader.Read() TextBox1.Text = mStr.Substring(0, mStr.IndexOf("$")) '這串目的是要讓$符號在讀取出來時,不會出現在表單的TextBox上      mStr = mStr.Substring(mStr.IndexOf("$") + 1, mStr.Length - TextBox1.Text.Length - 2) '這串目的是要用indexof來擷取"$"中的文字      TextBox4.Text = mStr.Substring(0, mStr.IndexOf("$"))       mStr = mStr.Substring(mStr.IndexOf("$") + 1, mStr.Length - TextBox2.Text.Length - 2)      TextBox3.Text = mStr.Substring(0, mStr.IndexOf("$"))       mStr = mStr.Substring(mStr.IndexOf("$") + 1, mStr.Length - TextBox3.Text.Length - 2)      TextBox2.Text = mStr.Substring(0, mStr.IndexOf("$"))       mStr = mStr.Substring(mStr.IndexOf("$") + 1, mStr.Length - TextBox4.Text.Length - 2)      fil_strea.Close()     End Sub        Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click      TextBox1.Text = ""      TextBox2.Text = ""      TextBox3.Text = ""      TextBox4.Text = ""     End Sub        Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click      Me.Close()     End Sub End Class 斬業非斬人

------
斬業非斬人