vb.net讀txt的簡單介紹

vb.net文件讀取txt

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

為天水等地區用戶提供了全套網頁設計制作服務，及天水網站建設行業解決方案。主營業務為網站設計、做網站、天水網站設計，以傳統方式定制建設網站，并提供域名空間備案等一條龍服務，秉承以專業、用心的態度為用戶提供真誠的服務。我們深信只要達到每一位用戶的要求，就會得到認可，從而選擇與我們長期合作。這樣，我們也可以走得更遠！

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

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

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

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

6、實現的上傳結果。

vb.net讀寫txt文件的問題

這個用讀寫TXT的話比較繁瑣，建議題主使用讀寫INI的方式，參考：

'聲明INI配置文件讀寫API函數

Private?Declare?Function?GetPrivateProfileString?Lib?"kernel32"?Alias?"GetPrivateProfileStringA"?(ByVal?lpApplicationName?As?String,?ByVal?lpKeyName?As?String,?ByVal?lpDefault?As?String,?ByVal?lpReturnedString?As?String,?ByVal?nSize?As?Int32,?ByVal?lpFileName?As?String)?As?Int32

Private?Declare?Function?WritePrivateProfileString?Lib?"kernel32"?Alias?"WritePrivateProfileStringA"?(ByVal?lpApplicationName?As?String,?ByVal?lpKeyName?As?String,?ByVal?lpString?As?String,?ByVal?lpFileName?As?String)?As?Int32

'定義讀取配置文件函數

Public?Function?GetINI(ByVal?Section?As?String,?ByVal?AppName?As?String,?ByVal?lpDefault?As?String,?ByVal?FileName?As?String)?As?String

Dim?Str?As?String?=?LSet(Str,?256)

GetPrivateProfileString(Section,?AppName,?lpDefault,?Str,?Len(Str),?FileName)

Return?Microsoft.VisualBasic.Left(Str,?InStr(Str,?Chr(0))?-?1)

End?Function

'定義寫入配置文件函數

Public?Function?WriteINI(ByVal?Section?As?String,?ByVal?AppName?As?String,?ByVal?lpDefault?As?String,?ByVal?FileName?As?String)?As?Long

WriteINI?=?WritePrivateProfileString(Section,?AppName,?lpDefault,?FileName)

End?Function

'定義INI文件位置

Dim?path?As?String

path?=?"C:\t861239263.ini"?'假設是這個文件

那么讀取的時候：

TextBox1.Text?=?GetINI("main","v1","",?path)

TextBox2.Text?=?GetINI("main","v2","",?path)

TextBox3.Text?=?GetINI("main","v3","",?path)

寫入的時候：

WriteINI("main","v1",?TextBox1.Text,?path)

WriteINI("main","v2",?TextBox2.Text,?path)

WriteINI("main","v3",?TextBox3.Text,?path)

【附】INI文件的格式，范例：

[main]

v1=133233

v2=132387

v3=322333

[aaa]

abc=1

bcd=2

[bbb]

ni=wo

wo=ta

VB.NET讀取TXT文件數據保存為數組

VB.NET編程讀取txt文本文檔中的數據，并把數據保存為數組，代碼如下：

'寫配件文件

Private?Sub?saveIni(ByVal?filePath?As?String,?ByVal?str?As?String)

Dim?sw?As?StreamWriter?=?New?StreamWriter(filePath,?True)?'true是指以追加的方式打開指定文件

sw.WriteLine(str)

sw.Flush()

sw.Close()

sw?=?Nothing

End?Sub

'讀配件文件

Private?Function?readIni(ByVal?filePath?As?String)

Dim?iniDt?As?New?DataTable

iniDt.Columns.Add("text")

iniDt.Columns.Add("value")

Try

Dim?sr?As?StreamReader?=?New?StreamReader(filePath,?System.Text.Encoding.Default)

Dim?line?As?String?=?""

While?Not?sr.EndOfStream

Dim?str?=?sr.ReadLine()'讀取當前行

iniDt.Rows.Add(New?String()?{

str(0),

str(1)

})

End?While

sr.Close()

sr?=?Nothing

Catch?ex?As?Exception

End?Try

Return?iniDt

End?Function

VB.net 如果讀取txt數據(或十進制dat數據)

vb.net雖也有input語句，但一次只能讀取到一個變量中，可以用TextFieldParser類代替，但似乎沒以前的方便。不過比以前的更靈活。寫入文件Write還是可以用，在Microsoft.VisualBasic.FileIO中。

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

Dim?fileName?As?String?=?"E:\User?Documents\Master\My?Documents\電子閱讀\股票\table2.csv"

Using?Recrods?As?New?Microsoft.VisualBasic.FileIO.TextFieldParser(fileName)?'建立TextFieldParser對象

'MyReader.TextFieldType?=?FieldType.Delimited

Recrods.SetDelimiters(",")?'把字段分隔符設置為","

Dim?curRow()?As?String

Do?Until?Recrods.EndOfData

curRow?=?Recrods.ReadFields()?'讀取記錄行，返回字符串數組，所以不同字段類型需要自己轉換。

Debug.Print(Join(curRow,?vbTab))

Loop

End?Using

End?Sub

如何用vb.net編寫讀取txt內容的代碼？

窗體上添加2個文本框，設置成多行，2個按鈕，在文本框1里隨便輸入若干文字，可以多行，單擊按鈕1，保存到文件。然后單擊按鈕2，把剛才寫入的文件讀到文本框2里。

代碼如下：

'寫文本文件

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

'創建(寫入)一個文本文件

Dim MyStream As New System.IO.FileStream(Application.StartupPath "\Ssk.txt", System.IO.FileMode.Create)

Dim MyWriter As New System.IO.StreamWriter(MyStream, System.Text.Encoding.Default)

MyWriter.WriteLine(TextBox1.Text)

MyWriter.Flush()

MyWriter.Close()

MyStream.Close()

End Sub

'讀文本文件

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

'讀取一個文本文件

Dim MyReader As New System.IO.StreamReader(Application.StartupPath "\Ssk.txt", System.Text.Encoding.UTF8)

TextBox2.Text = MyReader.ReadToEnd()

MyReader.Close()

End Sub

氣斜射入水或其他介質，折射光線與入射光線法線在

VB.net窗體設計中，如何讀取.txt文件中的數據？

1、新建一個標準的VB EXE工程，只有一個Form，Form上有兩個按鈕：Command1和Command2。

2、雙擊Command1添加如下代碼

Private Sub Command1_Click()

Dim strFile? ? ?As String

Dim intFile? ? ?As Integer

Dim strData? ? ?As String

strFile = "c:\學生成績.txt"

intFile = FreeFile

Open strFile For Input As intFile

strData = StrConv(InputB(FileLen(strFile), intFile), vbUnicode)

Debug.Print strData

Close intFile

End Sub

3、按F8開始單步調試代碼，點擊Command1，進入單步調試功能，

4、多次按下F8或直接按下F5運行完成，就完成了讀取文本文件內容并輸出到立即窗口。

網頁名稱：vb.net讀txt的簡單介紹
標題來源：http://m.kartarina.com/article42/dodsiec.html

成都網站建設公司_創新互聯，為您提供品牌網站建設、企業建站、品牌網站設計、關鍵詞優化、定制網站、網站改版

廣告

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