只要指定寫入文件的編碼就行了,很簡單的。
創(chuàng)新互聯(lián)專注于企業(yè)營銷型網(wǎng)站、網(wǎng)站重做改版、黎川網(wǎng)站定制設(shè)計、自適應(yīng)品牌網(wǎng)站建設(shè)、H5建站、商城建設(shè)、集團(tuán)公司官網(wǎng)建設(shè)、成都外貿(mào)網(wǎng)站建設(shè)公司、高端網(wǎng)站制作、響應(yīng)式網(wǎng)頁設(shè)計等建站業(yè)務(wù),價格優(yōu)惠性價比高,為黎川等各大城市提供網(wǎng)站開發(fā)制作服務(wù)。
Dim vSW As New IO.StreamWriter("C:\Test.txt", False, System.Text.Encoding.Unicode)
vSW.Write("這是unicode編碼的文本")
vSW.Close()
Private Sub Command1_Click()
'寫文件示例
Dim strFileName As String '文件名
Dim lngHandle As Long '句柄
Dim strWrite As String '要寫入的文本內(nèi)容
strFileName = App.Path "\a.txt"
''''''''App.Path "\a.txt"相對路徑
''"c:\w.txt"絕對路徑
lngHandle = FreeFile() '取得句柄
'準(zhǔn)備要寫入的內(nèi)容
strWrite = Text1.Text '或者 strWrite = "這些文字將被寫入文件。"
'For后面的參數(shù)表示以何種方式打開文件,Input是讀取,Output是覆蓋寫入,Append是追加寫入
''''''append是每次在文件末尾寫入,不刪除其它已經(jīng)存在的文件.如果換成output則刪除其它文件后再寫入
''''''print#1,text1.text ''''''如果print換成write則寫進(jìn)txt中后自動加雙引號
Open strFileName For Output As lngHandle '打開文件
Print #lngHandle, strWrite '寫入文本
Close lngHandle '關(guān)閉文件
End Sub
Private Sub Command2_Click()
'讀文件示例
Dim strFileName As String '文件名
Dim lngHandle As Long '文件句柄
Dim strAll As String '所讀取的文本文件的所有內(nèi)容
Dim strLine As String '在循環(huán)中存放每行的內(nèi)容
strFileName = App.Path "\a.txt"
'獲得文件的句柄
lngHandle = FreeFile()
'For后面的參數(shù)表示以何種方式打開文件,Input是讀取,Output是覆蓋寫入,Append是追加寫入
Open strFileName For Input As lngHandle
'循環(huán)直到文件尾
Do While Not EOF(lngHandle)
'每次讀取一行存放在strLine變量中
Line Input #lngHandle, strLine
'每次讀取都把所讀到的內(nèi)容連接到strAll變量,由于Line Input去掉了換行符,所以這里補上
strAllstrAll = strAll strLine vbCrLf
Loop
'顯示得到的全部分內(nèi)容
MsgBox strAll
End Sub
Private Sub Command1_Click()
Open App.Path "\a.txt" For Output As #1
Print #1, Text1.Text '這里可以是數(shù)據(jù)本身也可以是目標(biāo)控件的屬性
Close #1 '關(guān)閉打開的文件
End Sub
'For后面的參數(shù)表示以何種方式打開文件,Input是讀取,Output是覆蓋寫入,Append是追加寫入
append是每次在文件末尾寫入,不刪除其它已經(jīng)存在的文件.如果換成output則刪除其它文件后再寫入 print#1,text1.text 如果print換成write則寫進(jìn)txt中后自動加雙引號,以上就是數(shù)據(jù)保存為VB.NET TXT文件的代碼。
按你說的方式,需要用到鉤子
建議你用File類進(jìn)行操作,保存為TXT文件
祝好運,望采納
寫入:Dim sr As New IO.StreamWriter(Application.StartupPath "/寫入的文本.txt")
sr.WriteLine("寫入的內(nèi)容") sr.Close()讀?。篒f (File.Exists(Application.StartupPath "/msg.txt")) Then
Dim fm As New IO.FileStream(Application.StartupPath "/讀取的文本.txt", FileMode.Open)
Dim sr As IO.StreamReader = New IO.StreamReader(fm)
Do While sr.Peek() = 0
TextBox1.Text = sr.ReadLine() (讀取文本到文本框)
Loop end if
寫入讀出文本的操作會嗎?
刪除文件的操作會不?
如果以上2個會的話,直接有個文件list顯示對應(yīng)文件,然后獲取對應(yīng)文件路徑再刪除就好了。若還不知道,我再給你具體程序。
Public Class Form1
Private Sub 寫入文件_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 寫入文件.Click
FileOpen(1, "D:\一行文件.txt", OpenMode.Output) ' Open file for output.
WriteLine(1, "想只保留文件為一行 那你就寫一行好了") ' Print blank line to file.
FileClose(1) ' Close file.
End Sub
Private Sub 讀取文件_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 讀取文件.Click
Dim TextLine As String
FileOpen(1, "D:\一行文件.txt", OpenMode.Input) ' Open file for output.
TextLine = LineInput(1) '讀取一行就了
MsgBox(TextLine)
FileClose(1)
End Sub
End Class
最簡單的方法 還有很多方法 自己研究吧親 希望能幫到你