vb點虐 怎么從文本文檔中讀取一行數據，將文本輸出到控制臺？

以下示例一次從文件中讀取一行，然后將每行文本打印到控制臺。

創新互聯是專業的城中網站建設公司，城中接單;提供網站建設、網站制作,網頁設計,網站設計,建網站,PHP網站建設等專業做網站服務;采用PHP框架,可快速的進行城中網站開發網頁制作和功能擴展;專業做搜索引擎喜愛的網站,專業的做網站團隊,希望更多企業前來合作!

Sub ReadTextLinesFromFile()

Dim file As New System.IO.StreamReader("c:test.txt")

Dim oneLine As String

oneLine = file.ReadLine()

While (oneLine "")

Console.WriteLine(oneLine)

oneLine = file.ReadLine()

End While

file.Close()

End Sub

VB.NET讀寫文本文件方法

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

把程序執行錯誤追加到錯誤日志中

使巧巧讀書網的編輯能夠讀取錯誤日志

記得以前使用vb 的時候 對文本文件的操作挺麻煩的 特別是在寫文件的時候 需要區分什么順序文件 隨機文件 很教材都專門針對文本文件的讀寫開辟了一個章節來講解 夠麻煩的了 現在使用 net讀寫文本文件 因為時間倉促 沒來得及細看MSDN 同時受到 的思路影響 把問題復雜化了 在追加記錄到文本文件尾部的時候就寫不下去了 后來仔細看了一下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

首先要說明的是構造函數new

Public Sub New（path append Encoding）

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

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

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

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

構造函數new

Public Sub New（Path Encoding）

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

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

lishixinzhi/Article/program/net/201311/11973

VB點虐 讀取文本文件？

1、實現上傳按鈕方法代碼。

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

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

4、字節數組轉換為Image類型方法代碼。

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

6、實現的上傳結果。

分享標題：vb點虐 文本行讀取 vb讀取文本框數據
網頁網址：http://vcdvsql.cn/article42/ddeihhc.html

成都網站建設公司_創新互聯，為您提供品牌網站建設、面包屑導航、搜索引擎優化、ChatGPT、網站導航、網站營銷

廣告

聲明：本網站發布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創新互聯