建站
咨詢
售后
建站咨詢
新聞中心
vb.net 中如何進(jìn)行文件的讀寫(xiě)
一般來(lái)講asp.net的服務(wù)器運(yùn)行應(yīng)用所用的賬號(hào)只有對(duì)應(yīng)用所在目錄(放網(wǎng)頁(yè)的目錄)的訪問(wèn)權(quán)限，你可以把文件存儲(chǔ)在應(yīng)用所在目錄或者子目錄試試。
專注于為中小企業(yè)提供網(wǎng)站設(shè)計(jì)、成都網(wǎng)站設(shè)計(jì)服務(wù),電腦端+手機(jī)端+微信端的三站合一,更高效的管理,為中小企業(yè)新會(huì)免費(fèi)做網(wǎng)站提供優(yōu)質(zhì)的服務(wù)。我們立足成都，凝聚了一批互聯(lián)網(wǎng)行業(yè)人才，有力地推動(dòng)了成百上千家企業(yè)的穩(wěn)健成長(zhǎng)，幫助中小企業(yè)通過(guò)網(wǎng)站建設(shè)實(shí)現(xiàn)規(guī)模擴(kuò)充和轉(zhuǎn)變。
My.Computer.FileSystem.WriteAllText(Server.MapPath("") “\" Now.toString("yyyyMMdd") ".txt", "URL：XXXXXX查詢完成，匹配成功！" vbCrLf, true, System.Text.Encoding.Default)
VB/VB.net 如果實(shí)現(xiàn)對(duì)Excel單元格中內(nèi)容的批量替換功能（懸賞可加）
試一下 ：
Private Sub Command1_Click()
Dim xlApp As Object
Dim xlBook As Object
Dim xlSheet As Object
Dim r, i, arr, j
If Dir("c:\temp.xls") = "" Or Dir("c:\cfg.txt") = "" Then Unload Me
Set xlApp = CreateObject("Excel.Application")
Open "c:\cfg.txt" For Input As #1
arr = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbNewLine)
Close #1
Set xlBook = xlApp.Workbooks.Open("c:\temp.xls")
Set xlSheet = xlBook.Worksheets
For i = 1 To xlSheet(1).[g65536].End(-4162).Row
For j = 0 To UBound(arr)
If xlSheet(1).range("g" i) = Split(arr(j), "|")(0) Then xlSheet(1).range("g" i) = Split(arr(j), "|")(1)
Next
Next
xlApp.DisplayAlerts = False
xlBook.Save
xlBook.Close
xlApp.Quit
MsgBox "Saved"
End Sub
vb.net二進(jìn)制怎么讀取文件？
一、二進(jìn)制文件讀寫(xiě)
1、寫(xiě)二進(jìn)制數(shù)據(jù)到指定目錄
==將barray字節(jié)數(shù)組中的數(shù)據(jù)創(chuàng)建在strFilename目錄文件下，存儲(chǔ)格式為二進(jìn)制，F(xiàn)alse表示不添加，直接覆蓋創(chuàng)建。
2、從指定路徑下讀取二進(jìn)制數(shù)據(jù)到數(shù)組
==將目錄中的文件讀取到barry字節(jié)數(shù)組中，即讀取二進(jìn)制文件。
二、字符文件的讀寫(xiě)
1、 將txtFile控件中的字符寫(xiě)到srtFileName指定目錄,以創(chuàng)建方式。
2、從srtFileName目錄中的文件讀取到txtFile控件
vb.net中，讀取和寫(xiě)入文件
寫(xiě)入：Dim sr As New IO.StreamWriter(Application.StartupPath "/寫(xiě)入的文本.txt")
sr.WriteLine("寫(xiě)入的內(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
請(qǐng)教在VB.net中如何將數(shù)據(jù)寫(xiě)入txt文件、再?gòu)膖xt文件讀出？
軟糖來(lái)告訴你吧。
VB.net中讀寫(xiě)文件主要使用System.IO命名空間。
① 使用 File.ReadAllText 讀取
Dim s As String = System.IO.File.ReadAllText("C:\a.txt")
② 使用 StreamReader 讀取，注意編碼格式和寫(xiě)入的編碼保持一致。
Dim sr As StreamReader = New StreamReader("C:\a.txt", System.Text.Encoding.UTF8)
Dim s As String = sr.ReadToEnd()
sr.Close()
③ 使用 File.WriteAllText 寫(xiě)入，會(huì)覆蓋同名的文件。
Dim 要寫(xiě)的內(nèi)容 As String = ""
File.WriteAllText(文件路徑, 要寫(xiě)的內(nèi)容, System.Text.Encoding.UTF8)
④ 使用 StreamWriter 寫(xiě)入。
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 追加寫(xiě)入。
將上面代碼的第二個(gè)參數(shù)False改為T(mén)rue。
◆ 滿意請(qǐng)采納，謝謝 ◆
網(wǎng)站欄目：vb.net讀寫(xiě)cfg,VBNET教程
文章鏈接：http://www.dlmjj.cn/article/hoeopo.html
