一般來講asp.net的服務(wù)器運行應(yīng)用所用的賬號只有對應(yīng)用所在目錄(放網(wǎng)頁的目錄)的訪問權(quán)限,你可以把文件存儲在應(yīng)用所在目錄或者子目錄試試。
創(chuàng)新互聯(lián)公司堅持“要么做到,要么別承諾”的工作理念,服務(wù)領(lǐng)域包括:網(wǎng)站建設(shè)、成都做網(wǎng)站、企業(yè)官網(wǎng)、英文網(wǎng)站、手機端網(wǎng)站、網(wǎng)站推廣等服務(wù),滿足客戶于互聯(lián)網(wǎng)時代的紅安網(wǎng)站設(shè)計、移動媒體設(shè)計的需求,幫助企業(yè)找到有效的互聯(lián)網(wǎng)解決方案。努力成為您成熟可靠的網(wǎng)絡(luò)建設(shè)合作伙伴!
My.Computer.FileSystem.WriteAllText(Server.MapPath("") “\" Now.toString("yyyyMMdd") ".txt", "URL:XXXXXX查詢完成,匹配成功!" vbCrLf, true, System.Text.Encoding.Default)
?。?IfboolThenMessageBox.Show(數(shù)據(jù)已寫入)ElseMessageBox.Show(寫入數(shù)據(jù)時出錯)EndIfEndSub'FilePath為文件路徑'Str要寫入的內(nèi)容PublicFunctionwirte(ByValFilePathAsString,ByValStrAsString)AsBooleanDimsrAsStreamReaderDimswAsStreamWriterTrysr=NewStreamReader(FilePath)DimoldStrAsString=sr.ReadToEnd()sr.Close()sw=NewStreamWriter(FilePath)'判斷以前的文本是否有記錄IfoldStr.Length0Then'寫入以前的數(shù)據(jù)sw.WriteLine(oldStr)EndIf'在文件尾部添加新的內(nèi)容sw.Write(Str)sw.Close()ReturnTrueCatchexAsExceptionReturnFalseFinallyIfsrIsNotNothingThensr.Close()EndIfIfswIsNotNothingThensw.Close()EndIfEndTryEndFunctionEndClass
.net應(yīng)該提供了此類函數(shù)。如C#就有File.AppendAllText(filename,string)用于追加內(nèi)容,F(xiàn)ile.ReadAllLine(filename)用于讀取多行。
如果想繼續(xù)編輯之前的文檔,在TXT文件尾部繼續(xù)添加文本,那么還需要在函數(shù)后邊加個參數(shù)。
VB 代碼
方法1:
? Dim?sw?As?StreamWriter =?New?StreamWriter("C:\temp\test.txt")
? sw.Write("abc"? vbCrLf)
sw.Close()
Dim?sw2?As?StreamWriter =?New?StreamWriter("C:\temp\test.txt",?True)
sw2.Write("456"? vbCrLf)
sw2.Close()
方法2:
? My.Computer.FileSystem.WriteAllText("test.txt",?"This is test Text",?True)
方法3:
? System.IO.File.AppendAllText("c:\temp\test.txt",?"this is extra test file")
詳見:“網(wǎng)頁鏈接”?
寫入: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
軟糖來告訴你吧。
VB.net中讀寫文件主要使用System.IO命名空間。
① 使用 File.ReadAllText 讀取
Dim s As String = System.IO.File.ReadAllText("C:\a.txt")
② 使用 StreamReader 讀取,注意編碼格式和寫入的編碼保持一致。
Dim sr As StreamReader = New StreamReader("C:\a.txt", System.Text.Encoding.UTF8)
Dim s As String = sr.ReadToEnd()
sr.Close()
③ 使用 File.WriteAllText 寫入,會覆蓋同名的文件。
Dim 要寫的內(nèi)容 As String = ""
File.WriteAllText(文件路徑, 要寫的內(nèi)容, System.Text.Encoding.UTF8)
④ 使用 StreamWriter 寫入。
Dim sw As System.IO.StreamWriter = New System.IO.StreamWriter("C:\a.txt", False, System.Text.Encoding.UTF8)
sw.WriteLine(TextTB.Text)
sw.Close()
⑤ 使用 StreamWriter 追加寫入。
將上面代碼的第二個參數(shù)False改為True。
◆ 滿意請采納,謝謝 ◆
網(wǎng)頁標(biāo)題:vb.net文件續(xù)寫的簡單介紹
當(dāng)前地址:http://chinadenli.net/article46/dodidhg.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供網(wǎng)站營銷、動態(tài)網(wǎng)站、網(wǎng)站收錄、小程序開發(fā)、品牌網(wǎng)站建設(shè)、搜索引擎優(yōu)化
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)