vb怎麼讀取文件

❶ 請問VB中如何讀取txt文件的數據

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

❷ vb.net二進制怎麼讀取文件

一、二進制文件讀寫

1、寫二進制數據到指定目錄

❸ vb中怎麼讀取excel文件

1、調用Excel對象打開EXCEL文件後，讀取文件內容x0dx0a***************************************x0dx0a在VB中要想調用Excel，需要打開VB編程環境「工程」菜單中的「引用」項目，並選取項目中的「MicrosoftExcel 11.0 object library」項。由於你的Excel版本不同，所以這個選項的版本號也是不同的。x0dx0a x0dx0a因為EXCEL是以層次結構組織對象的，其對象模型中含有許多不同的對象元素。x0dx0a第一層：Application對象，即Excel本身；x0dx0a第二層：workbooks對象集，指Excel的工作簿文件x0dx0a第三層：worksheets對象集，表示的是Excel的一個工作表；x0dx0a第四層：Cells和Range對象，指向Excel工作表中的單元格。x0dx0a新建立一個VB的工程，先放一個button，名稱為Excel_Out。先定義好各層：x0dx0aDim xlapp As Excel.Application 'Excel對象x0dx0aDim xlbook As Excel.Workbook '工作簿x0dx0aDim xlsheet As Excel.Worksheet '工作表x0dx0a我們打算做的是：打開/新建一個excel，在其中對某工作表的一些單元格修改其值，然後另存為test.xls文件。x0dx0aPrivate Sub Excel_Out_Click()x0dx0a Dimi, j As Integerx0dx0a Setxlapp = CreateObject("Excel.Application") '創建EXCEL對象x0dx0a 'Set xlbook = xlapp.Workbooks.Open(App.Path& "\test.xls")'打開已經存在的test.xls工件簿文件x0dx0a Setxlbook = xlapp.Workbooks.Add '新建EXCEL工件簿文件x0dx0a 'xlbook.RunAutoMacros (xlAutoOpen) '運行EXCEL啟動宏x0dx0a 'xlbook.RunAutoMacros (xlAutoClose) '運行EXCEL關閉宏x0dx0axlapp.Visible = True '設置EXCEL對象可見（或不可見）x0dx0a Setxlsheet = xlbook.Worksheets(1) '設置活動工作表'
''~~~當前工作簿的第一頁,這里也可以換成「表名」x0dx0a x0dx0a'下面就是簡單的在一些單元格內寫入數字x0dx0a Fori = 7 To 15x0dx0a For j = 1 To 10x0dx0axlsheet.Cells(i, j) = j '當前工作簿第一頁的第I行第J列x0dx0a Next jx0dx0a Nextix0dx0a Withxlsheet '設置邊框為是實線x0dx0a .Range(.Cells(7, 1), .Cells(28, 29)).Borders.LineStyle = xlContinuousx0dx0a EndWithx0dx0a '引用當前工作簿的第二頁x0dx0a Setxlsheet = xlapp.Application.Worksheets(2)x0dx0axlsheet.Cells(7, 2) = 2008 '在第二頁的第7行第2列寫入2008x0dx0axlsheet.SaveAsApp.Path&"\test.xls" '按指定文件名存檔x0dx0a 'Setxlbook = xlapp.Application.Workbooks.Add '新建一空白工作簿x0dx0axlapp.Quit '結束EXCEL對象'xlapp.Workbooks.Closex0dx0a Setxlapp = Nothing '釋放xlApp對象x0dx0aEnd Subx0dx0a這樣，我們就可以簡單的對excel文件進行操作了。下面再放一些我從網上查到的資料吧，還挺有用的：x0dx0a 1．創建Excel對象x0dx0aeole=CREATEOBJECT(′Excel.application′) x0dx0a 2．添加新工作簿x0dx0aeole.Workbooks.addx0dx0a 3．設置第3個工作表為激活工作表x0dx0aeole.Worksheets(〃sheet3〃).Activate x0dx0a 4．打開指定工作簿x0dx0aeole.Workbooks.Open(〃c:\temp\ll.xls〃) x0dx0a 5．顯示Excel窗口x0dx0aeole.visible=.t. x0dx0a 6．更改Excel標題欄x0dx0aeole.Caption=〃VB應用程序調用Microsoft Excel〃x0dx0a 7．給單元格賦值x0dx0aeole.cells(1,4).value=XM(XM為資料庫欄位名) x0dx0a 8．設置指定列的寬度(單位：字元個數) x0dx0aeole.ActiveSheet.Columns(1).ColumnWidth=5 x0dx0a 9．設置指定行的高度(單位：磅) x0dx0aeole.ActiveSheet.Rows(1).RowHeight=1/0.035 x0dx0a (設定行高為1厘米，1磅=0.035厘米) x0dx0a 10．在第18行之前插入分頁符x0dx0aeole.Worksheets(〃Sheet1〃).Rows(18).PageBreak=1 x0dx0a 11．在第4列之前刪除分頁符x0dx0aeole.ActiveSheet.Columns(4).PageBreak=0 x0dx0a 12．指定邊框線寬度(Borders參數如下) x0dx0aole.ActiveSheet.Range(〃b3:d3〃).Borders(2).Weight=3 x0dx0a 13．設置四個邊框線條的類型x0dx0aeole.ActiveSheet.Range(〃b3:d3〃).Borders(2).LineStyle=1 x0dx0a (其中Borders參數：1－左、2－右、3－頂、4－底、5－斜、6－斜/；LineStyle值：1與7－細實、2－細虛、4－點虛、9－雙細實線) x0dx0a 14．設置頁眉x0dx0aeole.ActiveSheet.PageSetup.CenterHeader=〃報表1〃x0dx0a 15．設置頁腳x0dx0aeole.ActiveSheet.PageSetup.CenterFooter=〃第＆P頁〃x0dx0a 16．設置頁眉到頂端邊距為2厘米x0dx0aeole.ActiveSheet.PageSetup.HeaderMargin=2/0.035 x0dx0a 17．設置頁腳到底邊距為3厘米x0dx0aeole.ActiveSheet.PageSetup.FooterMargin=3/0.035 x0dx0a 18．設置頂邊距為2厘米x0dx0aeole.ActiveSheet.PageSetup.TopMargin=2/0.035 x0dx0a 19．設置底邊距為4厘米x0dx0aeole.ActiveSheet.PageSetup.BottomMargin=4/0.035 x0dx0a 20．設置左邊距為2厘米x0dx0aveole.ActiveSheet.PageSetup.LeftMargin=2/0.035 x0dx0a 21．設置右邊距為2厘米x0dx0aeole.ActiveSheet.PageSetup.RightMargin=2/0.035 x0dx0a 22．設置頁面水平居中x0dx0aeole.ActiveSheet.PageSetup.CenterHorizontally=.t. x0dx0a 23．設置頁面垂直居中x0dx0aeole.ActiveSheet.PageSetup.CenterVertically=.t. x0dx0a 24．設置頁面紙張大小(1－窄行8511 39－寬行1411) x0dx0aeole.ActiveSheet.PageSetup.PaperSize=1 x0dx0a 25．列印單元格網線x0dx0aeole.ActiveSheet.PageSetup.PrintGridlines=.t. x0dx0a 26．拷貝整個工作表x0dx0aeole.ActiveSheet.UsedRange.Copyx0dx0a 27．拷貝指定區域x0dx0aeole.ActiveSheet.Range(〃A1:E2〃).Copy x0dx0a 28．粘貼x0dx0aeole.WorkSheet(〃Sheet2〃).Range(〃A1〃).PasteSpecialx0dx0a 29．在第2行之前插入一行x0dx0aeole.ActiveSheet.Rows(2).Insert x0dx0a 30．在第2列之前插入一列x0dx0aeole.ActiveSheet.Columns(2).Insert x0dx0a 31．設置字體x0dx0aeole.ActiveSheet.Cells(2,1).Font.Name=〃黑體〃x0dx0a 32．設置字體大小x0dx0aeole.ActiveSheet.Cells(1,1).Font.Size=25 x0dx0a 33．設置字體為斜體x0dx0aeole.ActiveSheet.Cells(1,1).Font.Italic=.t. x0dx0a 34．設置整列字體為粗體x0dx0aeole.ActiveSheet.Columns(1).Font.Bold=.t. x0dx0a 35．清除單元格公式x0dx0aeole.ActiveSheet.Cells(1,4).ClearContentsx0dx0a 36．列印預覽工作表x0dx0aeole.ActiveSheet.PrintPreviewx0dx0a 37．列印輸出工作表x0dx0aeole.ActiveSheet.PrintOutx0dx0a 38．工作表另存為x0dx0aeole.ActiveWorkbook.SaveAs(〃c:\temp\22.xls〃) x0dx0a 39．放棄存檔x0dx0aeole.ActiveWorkbook.saved=.t. x0dx0a 40．關閉工作簿x0dx0aeole.Workbooks.closex0dx0a 41．退出Excel x0dx0aeole.quitx0dx0a***************************************x0dx0ax0dx0a2、調用ADO對象以資料庫方式打開EXECL文件後，以SQL語句方式讀取文件x0dx0a***************************************x0dx0a Dim rs As ADODB.Recordsetx0dx0a Set rs = New ADODB.Recordsetx0dx0a Dim conn As ADODB.Connectionx0dx0a Set conn = New ADODB.Connectionx0dx0a conn.Open "DRIVER={Microsoft Text Driver (*.txt; *.csv)};" DBQ=" & App.Path & ";", "", ""x0dx0a rs.Open "select * from [test$]", conn, adOpenStatic, adLockReadOnly, adCmdTextx0dx0a Set Read_Text_File = rsx0dx0a Set rs = Nothingx0dx0a Set conn = Nothingx0dx0a***************************************

❹ VB如何讀文本文件

讀文件

DimsAsString
DimfilenameAsString
filename=shuxiang&xingzuo&".txt"
OpenfilenameForInputAs#1
DoWhileNotEOF(1)
LineInput#1,s
Prints
Loop
Close#1


追加寫文件


DimiAsInteger,nAsInteger,a(6)AsInteger
n=6
Open"D:1122.txt"ForAppendAs#1
Randomize
Fori=1Ton
a(i)=Int(Rnd*1000+1)
Print#1,a(i)
Nexti
Close#1

覆蓋寫文件
DimiAsInteger,nAsInteger,a(6)AsInteger
n=6
Open"D:1122.txt"ForoutputAs#1
Randomize
Fori=1Ton
a(i)=Int(Rnd*1000+1)
Print#1,a(i)
Nexti
Close#1


'函數：一次性讀文件至變數，非常快FunctionGetFile(FileNameAsString)AsStringDimiAsInteger,sAsString,BB()AsByteIfDir(FileName)=""ThenExitFunctioni=FreeFileReDimBB(FileLen(FileName)-1)OpenFileNameForBinaryAs#iGet#i,,BBClose#is=StrConv(BB,vbUnicode)GetFile=sEndFunction'調用舉例：dimsasstrings=GetFile("c:1.txt")

❺ VB怎麼讀取文本文件

很簡單就可以讀文本文件內容

例如創建個一個文件 test.txt，內容如下：
hello world

程序代碼下面幾行即可讀出
Open "C:\test.txt" For Input As #1
Input #1,s
Close #1
Msgbox "文件內容是" & s

若是讀多行文本的文件這樣寫即可
Open "C:\test.txt" For Input As #1
Do While Not EOF(1)
Input #1,s
Debug.Print s
Loop
Close #1

❻ VB中如何讀寫文件 謝謝了

用open
open <文件名>[for 打開方式] as [#]<文件號>
打開方式有三種
（1）input：向計算機輸入數據，即從所打開的文件中讀取數據。
(2)output:向文件寫數據，即從計算機向所打開的文件寫數據。如果文件中原來已有數據，則原有數據被抹去，即新寫上的數據覆蓋已有的數據。
（3）append:向文件添加數據，即從計算機向所打開的文件寫數據。不同於output方式的是，append方式把新的數據添加到文件尾部原有數據的後邊，文件中保留原有數據。
AS是一個關鍵字，as引導的短語為打開的文件指定一個文件號。#號是可選項。文件號是一個1~511之間的整數。文件號用來代表所打開的文件。

例如：打開c:\a.txt文件
open "c:\a.txt" for output as #1

向文件寫數據用print和write語句：
print #<文件號>[,輸出表列]
write #<文件號>〔，輸出表列]
例如向上面打開的文件寫數據
print #1,"a";"b";"c"
close #1
文件里顯示為：
abc

❼ vb中怎麼讀取excel文件

1、調用Excel對象打開EXCEL文件後，讀取文件內容
***************************************
在VB中要想調用Excel，需要打開VB編程環境「工程」菜單中的「引用」項目，並選取項目中的「MicrosoftExcel 11.0 object library」項。由於你的Excel版本不同，所以這個選項的版本號也是不同的。

因為EXCEL是以層次結構組織對象的，其對象模型中含有許多不同的對象元素。
第一層：Application對象，即Excel本身；
第二層：workbooks對象集，指Excel的工作簿文件
第三層：worksheets對象集，表示的是Excel的一個工作表；
第四層：Cells和Range對象，指向Excel工作表中的單元格。
新建立一個VB的工程，先放一個button，名稱為Excel_Out。先定義好各層：
Dim xlapp As Excel.Application 'Excel對象
Dim xlbook As Excel.Workbook '工作簿
Dim xlsheet As Excel.Worksheet '工作表
我們打算做的是：打開/新建一個excel，在其中對某工作表的一些單元格修改其值，然後另存為test.xls文件。
Private Sub Excel_Out_Click()
Dimi, j As Integer
Setxlapp = CreateObject("Excel.Application") '創建EXCEL對象
'Set xlbook = xlapp.Workbooks.Open(App.Path& "\test.xls")'打開已經存在的test.xls工件簿文件
Setxlbook = xlapp.Workbooks.Add '新建EXCEL工件簿文件
'xlbook.RunAutoMacros (xlAutoOpen) '運行EXCEL啟動宏
'xlbook.RunAutoMacros (xlAutoClose) '運行EXCEL關閉宏
xlapp.Visible = True '設置EXCEL對象可見（或不可見）
Setxlsheet = xlbook.Worksheets(1) '設置活動工作表''
''~~~當前工作簿的第一頁,這里也可以換成「表名」

'下面就是簡單的在一些單元格內寫入數字
Fori = 7 To 15
For j = 1 To 10
xlsheet.Cells(i, j) = j '當前工作簿第一頁的第I行第J列
Next j
Nexti
Withxlsheet '設置邊框為是實線
.Range(.Cells(7, 1), .Cells(28, 29)).Borders.LineStyle = xlContinuous
EndWith
'引用當前工作簿的第二頁
Setxlsheet = xlapp.Application.Worksheets(2)
xlsheet.Cells(7, 2) = 2008 '在第二頁的第7行第2列寫入2008
xlsheet.SaveAsApp.Path&"\test.xls" '按指定文件名存檔
'Setxlbook = xlapp.Application.Workbooks.Add '新建一空白工作簿
xlapp.Quit '結束EXCEL對象'xlapp.Workbooks.Close
Setxlapp = Nothing '釋放xlApp對象
End Sub
這樣，我們就可以簡單的對excel文件進行操作了。下面再放一些我從網上查到的資料吧，還挺有用的：
1．創建Excel對象
eole=CREATEOBJECT(′Excel.application′)
2．添加新工作簿
eole.Workbooks.add
3．設置第3個工作表為激活工作表
eole.Worksheets(〃sheet3〃).Activate
4．打開指定工作簿
eole.Workbooks.Open(〃c:\temp\ll.xls〃)
5．顯示Excel窗口
eole.visible=.t.
6．更改Excel標題欄
eole.Caption=〃VB應用程序調用Microsoft Excel〃
7．給單元格賦值
eole.cells(1,4).value=XM(XM為資料庫欄位名)
8．設置指定列的寬度(單位：字元個數)
eole.ActiveSheet.Columns(1).ColumnWidth=5
9．設置指定行的高度(單位：磅)
eole.ActiveSheet.Rows(1).RowHeight=1/0.035
(設定行高為1厘米，1磅=0.035厘米)
10．在第18行之前插入分頁符
eole.Worksheets(〃Sheet1〃).Rows(18).PageBreak=1
11．在第4列之前刪除分頁符
eole.ActiveSheet.Columns(4).PageBreak=0
12．指定邊框線寬度(Borders參數如下)
ole.ActiveSheet.Range(〃b3:d3〃).Borders(2).Weight=3
13．設置四個邊框線條的類型
eole.ActiveSheet.Range(〃b3:d3〃).Borders(2).LineStyle=1
(其中Borders參數：1－左、2－右、3－頂、4－底、5－斜、6－斜/；LineStyle值：1與7－細實、2－細虛、4－點虛、9－雙細實線)
14．設置頁眉
eole.ActiveSheet.PageSetup.CenterHeader=〃報表1〃
15．設置頁腳
eole.ActiveSheet.PageSetup.CenterFooter=〃第＆P頁〃
16．設置頁眉到頂端邊距為2厘米
eole.ActiveSheet.PageSetup.HeaderMargin=2/0.035
17．設置頁腳到底邊距為3厘米
eole.ActiveSheet.PageSetup.FooterMargin=3/0.035
18．設置頂邊距為2厘米
eole.ActiveSheet.PageSetup.TopMargin=2/0.035
19．設置底邊距為4厘米
eole.ActiveSheet.PageSetup.BottomMargin=4/0.035
20．設置左邊距為2厘米
veole.ActiveSheet.PageSetup.LeftMargin=2/0.035
21．設置右邊距為2厘米
eole.ActiveSheet.PageSetup.RightMargin=2/0.035
22．設置頁面水平居中
eole.ActiveSheet.PageSetup.CenterHorizontally=.t.
23．設置頁面垂直居中
eole.ActiveSheet.PageSetup.CenterVertically=.t.
24．設置頁面紙張大小(1－窄行8511 39－寬行1411)
eole.ActiveSheet.PageSetup.PaperSize=1
25．列印單元格網線
eole.ActiveSheet.PageSetup.PrintGridlines=.t.
26．拷貝整個工作表
eole.ActiveSheet.UsedRange.Copy
27．拷貝指定區域
eole.ActiveSheet.Range(〃A1:E2〃).Copy
28．粘貼
eole.WorkSheet(〃Sheet2〃).Range(〃A1〃).PasteSpecial
29．在第2行之前插入一行
eole.ActiveSheet.Rows(2).Insert
30．在第2列之前插入一列
eole.ActiveSheet.Columns(2).Insert
31．設置字體
eole.ActiveSheet.Cells(2,1).Font.Name=〃黑體〃
32．設置字體大小
eole.ActiveSheet.Cells(1,1).Font.Size=25
33．設置字體為斜體
eole.ActiveSheet.Cells(1,1).Font.Italic=.t.
34．設置整列字體為粗體
eole.ActiveSheet.Columns(1).Font.Bold=.t.
35．清除單元格公式
eole.ActiveSheet.Cells(1,4).ClearContents
36．列印預覽工作表
eole.ActiveSheet.PrintPreview
37．列印輸出工作表
eole.ActiveSheet.PrintOut
38．工作表另存為
eole.ActiveWorkbook.SaveAs(〃c:\temp\22.xls〃)
39．放棄存檔
eole.ActiveWorkbook.saved=.t.
40．關閉工作簿
eole.Workbooks.close
41．退出Excel
eole.quit
***************************************

2、調用ADO對象以資料庫方式打開EXECL文件後，以SQL語句方式讀取文件
***************************************
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
conn.Open "DRIVER={Microsoft Text Driver (*.txt; *.csv)};" DBQ=" & App.Path & ";", "", ""
rs.Open "select * from [test$]", conn, adOpenStatic, adLockReadOnly, adCmdText
Set Read_Text_File = rs
Set rs = Nothing
Set conn = Nothing
***************************************

❽ vb怎樣讀取sld文件

只要點擊進入就可以自動讀取了。vb讀取sld文件只要點擊進入就可以自動讀取了，也是比較方便用戶使用的，有利於節省時間。