Dim wrthtml As StreamWriter wrthtml = File.CreateText(Server.MapPath("html\xx.ini")) wrthtml = New StreamWriter(Server.MapPath("html\xx.ini"), False, System.Text.Encoding.GetEncoding("GB2312")) Dim strhtml As String strhtml=TextBox1.Text.Tostring & vbcrlf & TextBox2.Text.Tostring & vbcrlf & TextBox3.Text.Tostring wrthtml.WriteLine(strhtml) wrthtml.Close()这个可以写入
Dim readtxt As StreamReader Dim readcount As String readtxt = File.OpenText(Server.MapPath("html\xx.ini")) readcount = readtxt.ReadLine() TextBox1.Text = "" While readcount <> Nothing TextBox1.Text &= readcount & vbCrLf readcount = readtxt.ReadLine End While readtxt.Close() 这是读出
wrthtml = New StreamWriter(Server.MapPath("html\xx.ini"), False, System.Text.Encoding.GetEncoding("GB2312"))
Dim strhtml As String
strhtml=TextBox1.Text.Tostring & vbcrlf & TextBox2.Text.Tostring & vbcrlf & TextBox3.Text.Tostring
wrthtml.WriteLine(strhtml)
wrthtml.Close()这个可以写入
Dim readcount As String readtxt = File.OpenText(Server.MapPath("html\xx.ini")) readcount = readtxt.ReadLine() TextBox1.Text = ""
While readcount <> Nothing
TextBox1.Text &= readcount & vbCrLf
readcount = readtxt.ReadLine
End While
readtxt.Close()
这是读出