vb如何讀取檔案的內容,並且輸出

2021-12-26 00:48:04 字數 2751 閱讀 8768

1樓:應炳

你好! 1、對於txt檔案,用什麼語言都不能實現任意10條內容,只能從頭開始讀取;但可能有變通的辦法:先產生乙個隨機數,開啟txt檔案,從頭開始讀取資料,當已讀取的資料=隨機數時,開始將讀取的資料放到變數中,連續存放10個; 2、用office的word文件控制項的dll鏈結到vb中,在vb中建立乙個word文件工作平台(空間),將10個資料寫入到該文件中,文件取名為www.

doc,最後儲存該文件; 3、當然,若你對word文件控制項的dll用法不太了解的話,請參考msdn或網路上查詢,這裡就不給出**了,不好意思! 祝你成功!

2樓:小凡凡

這種東西不用api dim k, a as string open "c:\1.txt" for input as #1 do while not eof(1) line input #1, a k = k + a + vbcrlf loop close #1 debug.

print k

vb 怎樣開啟檔案並把檔案內容顯示在文字框

3樓:匿名使用者

1、單擊選單「工程」-「部件」,在彈出的「部件」對話方塊裡找到microsoft richtext box 6.0和公共對話方塊microsoft common dialog 6.0並選中它們,單擊「確定」按鈕。

2、在窗體上繪製richtext box和commn dialog。

3、右鍵窗體選擇選單編輯器,編寫開啟和清空選單。

4、兩個按鈕**:

private sub open_click()commondialog1.filter = "文字檔案 (*.txt)|*.

txt|(*.doc)|*.doc|所有檔案|*.

*"commondialog1.showopenrichtextbox1.text = "" '清空文字框filename = commondialog1.

filenamerichtextbox1.loadfile filenameme.caption = "超級記事本:

" & filenameend sub

private sub qk_click()richtextbox1.text = ""

end sub

5、注意:開啟txt檔案時正常的,但是開啟word是亂碼,因為word的儲存方式跟txt檔案不一樣的,這個是正常的。

4樓:匿名使用者

文字框通常用來顯示文字字元,以下是用 vb 編寫的開啟某 txt 檔案,並把檔案內容顯示在文字框的步驟及**:

1、新增必要的元件(文字框、按鈕)

2、設定屬性:

3、編寫按鈕的響應**:

**如下:

private sub command1_click()dim a$

text1.text = ""

open "d:\test.txt" for input as #1doinput #1, a

text1.text = text1.text & a & vbcrlf

loop until eof(1)

close #1

end sub

執行結果:

5樓:

dim str as string '定義個 str 用來儲存讀取的文字

open "路徑" for input as #1 '開啟指定路徑的文字

input #1, str '將指定文字讀取到 str 變數

close #1 '關閉檔案

text1.text = str '讓text1 等於 str 變數的內容

**要簡潔.. 才精緻

本來是很簡單的東西樓上幾位還搞了個迴圈來讀,真是浪費系統資源

6樓:白費電

單擊選單「工程」-「部件」,在彈出的「部件」對話方塊裡找到公共對話方塊microsoft common dialog 6.0並選中它,單擊「確定」按鈕。

在工具-選單編輯器 標題寫檔案(f),名字檔案,再點下下乙個,標題寫開啟,名字開啟,再點下向右的箭頭

private sub 開啟_click()

with commondialog1

.dialogtitle = "開啟檔案"

.filter = "文字檔案 (*.txt)|*.txt|(*.doc)|*.doc|所有檔案|*.*"

.filterindex = 0

.showopen

dim tmploadstr as string

open .filename for input as #1

do while not eof(1)

line input #1, tmploadstr

text1.text = text1.text & tmploadstr & vbcrlf

loop

close #1

end with

end sub

7樓:匿名使用者

open "c:\123.txt" for input as #1do while not eof(1)

line input #1, mystringtext1.text = text1.text & mystring & vbcrlf

loop

close #1

這樣才對吧。。

VB問題 如何讀取 返回某一目錄下的所有檔名

四個資料夾 用vb讀取其檔名並分行顯示在text1裡 用dirlistbox和filelistbox控制項。設定好path屬性。然後用.list 來取。vb如何提取路徑中的檔名?樓上的比我的好,建議你多學習一下字串擷取函式,right left mid nstr text1是檔案路徑 text2是提...

php如何獲取檔案內容,PHP讀取目錄下所有檔案內容並顯示

php 中的 file get contents 函式可以實現 file get contents 函式把整個檔案讀入乙個字串中。和 file 一樣,不同的是 file get contents 把檔案讀入乙個字串。file get contents 函式是用於將檔案的內容讀入到乙個字串中的首選方法...

c中怎麼編寫讀取檔案的每一行資料,並且把每一行數

你好!你的每行資料都是個頂格式的嗎?把txt檔案內容發一下 using system using system.collections.specialized using system.io var lines file.readalllines 1.txt var dict new stringd...