VB.NET請問關於 indexof的問題 |
尚未結案
|
brian660215
一般會員 發表:2 回覆:0 積分:0 註冊:2004-11-25 發送簡訊給我 |
我的問題是
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
斬業非斬人
------
斬業非斬人 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |