vb點虐 怎樣讀取文件

imports System.IO

讓客戶滿意是我們工作的目標，不斷超越客戶的期望值來自于我們對這個行業(yè)的熱愛。我們立志把好的技術(shù)通過有效、簡單的方式提供給客戶，將通過不懈努力成為客戶在信息化領(lǐng)域值得信任、有價值的長期合作伙伴，公司提供的服務(wù)項目有：空間域名、虛擬空間、營銷軟件、網(wǎng)站建設(shè)、源城網(wǎng)站維護、網(wǎng)站推廣。

讀取指定文件

'

'讀取指定文本文件

Public Function readtext(ByVal path As String)

If path = "" Then

readtext = "數(shù)渣操作失敗！"

Exit Function

End If

Try

If File.Exists(path) = True Then

Dim fs As New FileStream(path, FileMode.Open)

Dim sr As New StreamReader(fs)

Dim str As String

str = sr.ReadToEnd.ToString

sr.Close()

fs.Close()

readtext = str

Else

readtext = "操作失敗！"

End If

Catch ex As Exception

readtext = "操作失敗！"

End Try

End Function

'向指定文件寫入數(shù)據(jù)

Public Function writetext(ByVal path As String, ByVal opi As Integer, ByVal msg As String)

If path = ""歷畢慧 Then

writetext = "操作肢答失敗！"

Exit Function

End If

Dim op As FileMode

Select Case opi

Case 1

op = FileMode.Append

Case 2

op = FileMode.Create

Case Else

op = FileMode.Create

End Select

Try

If File.Exists(path) = True Then

Dim fs As New FileStream(path, op)

Dim sr As New StreamWriter(fs)

sr.WriteLine(msg)

sr.Close()

fs.Close()

writetext = "操作完成！"

Else

writetext = "操作失敗！"

End If

Catch ex As Exception

writetext = "操作失敗！"

End Try

End Function

VB.NET讀寫文本文件方法

工作需要 我需要使用對文本文件進行讀寫操作 編程需要完成如下工作

把程序執(zhí)行錯誤追加到錯誤日志中

使巧巧讀書網(wǎng)的編輯能夠讀取錯誤日志

記得以前使用vb 的時候 對文本文件的操作挺麻煩的 特別是在寫文件的時候 需要區(qū)分什么順序文件 隨機文件 很教材都專門針對文本文件的讀寫開辟了一個章節(jié)來講解 夠麻煩的了 現(xiàn)在使用 net讀寫文本文件 因為時間倉促 沒來得及細看MSDN 同時受到 的思路影響 把問題復(fù)雜化了 在追加記錄到文本文件尾部的時候就寫不下去了 后來仔細看了一下MSDN中例子 問題終于得到了解決

好了下面進入正題 分別把中對文本文件進行讀和寫的通用操作做個示例 免得后來新手多走彎路

我們這里是對文件流進行操作 所以模塊前面要加上

Imports System IO

寫操作

使用System IO的StreamWriter 下面是代碼

Dim strFilePath As String = SaveFileDialog FileName

Dim sw As StreamWriter = New StreamWriter（strFilePath True） true是指以羨族追加的方式打開指定文件

For i = To j

temp = i ToString

sw WriteLine（temp）

sw Flush（）

Next

sw Close（）

sw = Nothing

首先要說明的是構(gòu)造函數(shù)new

Public Sub New（path append Encoding）

path 要打開文件的完整路徑 如果文件不存在則自動建立一個新的文件

append 缺省值為false 指示是否以追加方式打開指定文件 false——如果存在path指定的文件 則覆蓋原文件 否則建立一個新畝枯文件 true——如果存在path指定的文件 則打開該文件 以追加數(shù)據(jù)的方式在文尾寫數(shù)據(jù) 否則建立兄耐弊一個新文件

Encoding 缺省值為System Text Encoding Default 即使用系統(tǒng)缺省的編碼 指示以什么樣的編碼寫文件

WriterLine（str） 在文本中添加一個新行 同時在行尾加上回車換行符

讀操作

Dim line As String

Dim sr As StreamReader = New StreamReader（strPath System Text Encoding Default）

Do While sr Peek（）

line = sr ReadLine（）

Loop

sr Close（）

sr = Nothing

構(gòu)造函數(shù)new

Public Sub New（Path Encoding）

path 要打開文件的完整路徑 如果文件拋出一個錯誤

Encoding 缺省值為System Text Encoding Default 即使用系統(tǒng)缺省的編碼 指示以什么樣的編碼讀文件

lishixinzhi/Article/program/net/201311/11973

vb點虐 二進制怎么讀取文件？

一、二進制文件讀寫

1、寫二進制戚歷數(shù)據(jù)到指定目錄

==將barray字節(jié)數(shù)組中的數(shù)據(jù)創(chuàng)建在strFilename目早碰錄文件下，存儲格式為二進制，F(xiàn)alse表示不添加，直接覆蓋創(chuàng)建。

2、從指定路徑下讀取二進制數(shù)據(jù)到數(shù)組

==將目錄中的文件讀取到barry字節(jié)數(shù)組中，即讀取二進制文件。

二、字符文件的讀寫

1、 將txtFile控件中的字符寫到高睜搜srtFileName指定目錄,以創(chuàng)建方式。

2、從srtFileName目錄中的文件讀取到txtFile控件

VB點虐 讀取文本文件？

1、實現(xiàn)上傳按鈕方法代碼或祥。

2、判斷圖片對象是否為空代碼。

3、返埋取得數(shù)據(jù)庫字段 dt.Rows(0)("Pic")方法代碼。

4、字節(jié)數(shù)組轉(zhuǎn)換為Image類型方法代碼。

5、處理SQL中漏團螞操作Image類型方法代碼。

6、實現(xiàn)的上傳結(jié)果。

標題名稱：vb點虐 讀資源文件 vb添加資源文件
當前路徑：http://www.chinadenli.net/article0/ddpcgio.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供定制開發(fā)、云服務(wù)器、外貿(mào)網(wǎng)站建設(shè)、服務(wù)器托管、網(wǎng)站排名、App設(shè)計

廣告

聲明：本網(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)