怎樣用vb.net讀取本地.txt文件？

imports System.IO

創(chuàng)新互聯(lián)建站長(zhǎng)期為1000多家客戶提供的網(wǎng)站建設(shè)服務(wù)，團(tuán)隊(duì)從業(yè)經(jīng)驗(yàn)10年，關(guān)注不同地域、不同群體，并針對(duì)不同對(duì)象提供差異化的產(chǎn)品和服務(wù)；打造開放共贏平臺(tái)，與合作伙伴共同營(yíng)造健康的互聯(lián)網(wǎng)生態(tài)環(huán)境。為蘄春企業(yè)提供專業(yè)的成都網(wǎng)站建設(shè)、網(wǎng)站制作，蘄春網(wǎng)站改版等技術(shù)服務(wù)。擁有十余年豐富建站經(jīng)驗(yàn)和眾多成功案例,為您定制開發(fā)。

讀取指定文件

'

'讀取指定文本文件

Public Function readtext(ByVal path As String)

If path = "" Then

readtext = "操作失?。?

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

參考這個(gè)吧

'

'vb.net源代碼來自

'

vb.net中怎樣在菜單欄點(diǎn)打開文件來打開D盤中一個(gè)txt文件

import System.IO

用文件流讀

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim open As New OpenFileDialog

open.Filter = "テキスト ファイル (*.txt)|*.txt" _

"|すべてのファイル (*.*)|*.*"

If open.ShowDialog = Windows.Forms.DialogResult.OK Then

TextBox1.Text = open.FileName

Dim file As New FileStream(open.FileName, FileMode.Open, FileAccess.Read)

Dim encoding As Encoding = encoding.GetEncoding(Util.ToString(Me.ComboBox1.SelectedItem))

Dim stream As New StreamReader(file, encoding)

Dim strB As New StringBuilder

While (Not stream.EndOfStream)

strB.AppendLine(stream.ReadLine)

End While

Me.RichTextBox1.Text = strB.ToString

stream.Close()

End If

End Sub

vb.net文件讀取txt

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

2、判斷圖片對(duì)象是否為空代碼。

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

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

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

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

vb.net 如何打開txt文件？

說明：以下代碼在Microsoft Visual Basic 2005 （簡(jiǎn)體中文版）中通過。

創(chuàng)建新項(xiàng)目：

在窗體上添加文本框2個(gè)：TextBox1，TextBox2

TextBox1 -- 用來編輯要寫入的文本文件的內(nèi)容，或顯示打開的文本文件的內(nèi)容

TextBox2 -- 用來輸入要打開或要寫入的文件名（包括盤符，路徑）（例如：c:\123.txt）

在窗體上添加2個(gè)按鈕：Button1，Button2

Button1 -- 寫入文件

Button2 -- 打開文件

代碼如下：

Imports System.IO

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim w As New StreamWriter(TextBox2.Text)

w.Write(TextBox1.Text)

w.Close()

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim r As New StreamReader(TextBox2.Text)

Dim s As String

TextBox1.Text = ""

Do While r.Peek -1 '是否到文件尾

s = r.ReadLine

' MessageBox.Show(r.Peek)

TextBox1.Text = TextBox1.Text s vbCrLf

Loop

r.Close()

End Sub

End Class

補(bǔ)充:你要把讀出的數(shù)據(jù)賦值給一個(gè)變量,只要:聲明一個(gè)變量為數(shù)值類型,然后只要讀取一行就可以了,把這行數(shù)據(jù)經(jīng)過轉(zhuǎn)換成數(shù)值后賦給這個(gè)變量.

VB.NET怎樣打開text文件并顯示到文本框里

文本框通常用來顯示文本字符，以下是用

VB

編寫的打開某

txt

文件，并把文件內(nèi)容顯示在文本框的步驟及代碼：

1、添加必要的組件（文本框、按鈕）

2、設(shè)置屬性：

3、編寫按鈕的響應(yīng)代碼：

vb .net 程序怎么默認(rèn)打開txt記事本文件？

樓下的根本不對(duì)。exe右鍵是沒有“打開方式”的，也沒必要因?yàn)檫@個(gè)問題而還原系統(tǒng)。把exe設(shè)置為直接運(yùn)行，方法：新建一個(gè)txt文件，輸入ftype exefile="%1" %* ，保存，把擴(kuò)展名改為bat，雙擊這個(gè)文件，就好了。

分享題目：vb.net打開text的簡(jiǎn)單介紹
本文網(wǎng)址：http://jinyejixie.com/article42/doohhhc.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供全網(wǎng)營(yíng)銷推廣、、域名注冊(cè)、靜態(tài)網(wǎng)站、網(wǎng)站策劃、網(wǎng)站設(shè)計(jì)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)