關於文字檔內的資料讀取 |
尚未結案
|
brian660215
一般會員 發表:2 回覆:0 積分:0 註冊:2004-11-25 發送簡訊給我 |
下面這一行是文字檔內的資料
明志科大 職子三乙資工組:$TextBox1$TextBox2$TextBox3$TextBox4$ 下面是我的問題 1.下面時是用IndexOf 的方法,來去讀取文字檔內("$") 中間的資料,,這裡的目的是要讓資料讀取時按照 TextBox1資料,就歸表單上的TextBox1顯示出來 ,而其他2~4也是一樣 ,但是在mStr = str_reader.ReadLine() , 這一行若用ReadLine(),表單上的TextBox1顯示會讀出一整行的資料, 但改用Read執行時又會出錯,想請問各位大大要如何才能做到呢 ? 謝謝 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim x As New FileStream("c:\wg2003.ini", IO.FileMode.OpenOrCreate)
Dim y As New System.IO.StreamWriter(x, System.Text.Encoding.Default)
y.Write(("明志科大 職子三乙資工組:" ) & "$")
' 將"明志科大 職子三乙資工組:" 這段字串固定在文字檔的起點,
' y.Write(是要讓表單上的TextBox1~4的資料都能存入文子檔
' Write是將存入的資料都集中到第一行
' 尾端加入 "$" 是要在存入同時讓每筆資料的結尾都出現$符號
y.Write(trim(TextBox1.Text) & "$")
y.Write(Trim(TextBox2.Text) & "$")
y.Write(Trim(TextBox3.Text) & "$")
y.Write(Trim(TextBox4.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:\wg2003.ini", IO.FileMode.Open)
Dim str_reader As New StreamReader(fil_strea)
'這裡目的是要讓$符號在讀取出來時,不會出現在表單的TextBox上
' 讀取時TextBox1資料,就歸表單上的TextBox1顯示出來 ,而其他2~4也是一樣
Dim mStr As String mStr = str_reader.ReadLine()
TextBox1.Text = mStr.Substring(15, mStr.IndexOf("$") - 1)
mStr = mStr.Substring(mStr.IndexOf("$") + 1, mStr.Length - TextBox1.Text.Length - 2)
TextBox4.Text = mStr.Substring(0, mStr.IndexOf("$")) '- 1)
mStr = mStr.Substring(mStr.IndexOf("$") + 1, mStr.Length - TextBox2.Text.Length - 2)
TextBox3.Text = mStr.Substring(0, mStr.IndexOf("$")) '- 1)
mStr = mStr.Substring(mStr.IndexOf("$") + 1, mStr.Length - TextBox3.Text.Length - 2)
TextBox2.Text = mStr.Substring(0, mStr.IndexOf("$")) '- 1)
mStr = mStr.Substring(mStr.IndexOf("$") + 1, mStr.Length - TextBox4.Text.Length - 2)
fil_strea.Close()
End Sub 《》》 斬業非斬人
------
斬業非斬人 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |