1樓：匿名使用者
用api函式獲得使用者資料夾，這個我不曉得，我只會用獲取的使用者名稱來做...
下面的**，我並沒有限制使用者桌面上的txt檔案必須為「新建 文字文件.txt」，也就是滿足檔案裡有字串「1234」的txt檔案，就刪除。你可以自己調整一下，這樣就不需要filelistbox控制元件了，如果只是針對你自己的電腦，這樣連api函式也不需要用上了，直接自己把資料夾路徑附上去。
在窗體上新增一個timer控制元件，一個filelistbox控制元件，timer1.interval=2000，file1.pattern="*.
txt"，file1.visible=false，新增**如下：
private declare function getusername lib "advapi32.dll" alias "getusernamea" (byval lpbuffer as string, nsize as long) as long
dim username as string, userpath as string
private sub form_load()
'獲取當前使用者名稱
dim s as string * 255
call getusername(s, 255)
'提取出使用者名稱來
dim i as integer
for i = 1 to 255
'由於s長度為255，所以其中有一部分字元是無效字元（或者說是用於表徵字元結束）
if asc(mid(s, i, 1)) < 32 then
username = left(s, i - 1)
exit for
end if
next i
'設定使用者資料夾
'並不是所有使用者資料夾都是這樣的路徑，所以這行**沒有普遍性
userpath = "c:\documents and settings\" & username & "\桌面\"
'獲取滿足條件的檔案
file1.path = userpath
file1.refresh
end sub
private sub timer1_timer()
'獲取滿足條件的檔案
file1.refresh
'迴圈for i = 0 to file1.listcount - 1
'判斷檔案是否有符合條件的字串
if checktxt(userpath & file1.list(i)) then
'刪除檔案
kill userpath & file1.list(i)
end if
next i
end sub
private function checktxt(filepath as string) as boolean
dim fnum as integer, s as string, s1 as string
'讀取出檔案裡面的內容
fnum = freefile
open filepath for input as #fnum
do until eof(fnum)
line input #fnum, s1
s = s & s1 & vbcrlf
loop
close #fnum
'判斷檔案是否有符合條件的字串
if instr(s, "1234") > 0 then checktxt = true
end function
2樓：
open "檔案絕對路徑" for input as #1'接下來比如我要把檔案讀入文字框text1input #1, text1.text
close #1
也可以用fso，但是不可能一句命令就行的
3樓：匿名使用者
讀取：dim stringa as stringopen "(此處輸入txt路徑)" for input as #1input #1, stringa
close #1
text1.text = stringa
寫入：open "(此處輸入txt路徑)" for output as #1
input #1, text1.text
close #1
holihand原創，yzhiyu_123的不行，我試過了。
4樓：戈琰
樓上的還是寫漏了一點，我的最全
dim a as string
open "(此處輸入txt路徑+檔名)" for input as #1
input #1, a
close #1
text1.text = a
vb6.0中，如何實現讀取txt檔案中的內容並在vb上顯示出來？
5樓：匿名使用者
option explicitprivate sub form_load()
dim fileno as integer
dim pathname as string, filename as string
dim tmp as string
me.show
pathname = environ("userprofile") & "\桌面\"
filename = "1.txt"
on error resume next
fileno = freefile
open pathname & filename for input as fileno
list1.clear
do while not eof(fileno) ' 迴圈至檔案尾。
line input #fileno, tmp ' 讀入一行資料並將其賦予某變數。
list1.additem tmp ' 在立即視窗中顯示資料。
loop close
end sub
6樓：
7樓：匿名使用者
主要用的函式，filefree, open,等等。
8樓：桂淡僕清漪
你可以先從
環境變數
中獲取桌面的地址，這樣就不會隨著機器的不同而造成程式的影響了str
=environ("userprofile")&"\桌面\"
'獲取桌面路徑file=str
&"\yourtxt.txt"
'這裡是你要讀取的txt
檔名list1.clear
'先清空列表框open
file
forinput
as#1
'開啟這個檔案開始讀內容do
while
noteof(1)line
input
#1,s
'讀取一行給s
list1.additem
s把s新增到列表框loopclose
#1'直到讀完
關閉檔案
vb中如何讀取textbox中某一行內容
最好是放在listbox中，方便，如果你非要用textbox，你可以嘗試下面的 文字最後不能有空行，否則會有空白 參考private sub command1 click dim a dim i as integer a split trim text1.text vbcrlf randomize ...
VB 檔案讀取並查詢，VB怎麼讀取檔案？
vb怎麼讀取檔案？vb可以使用filelistbox 控制元件來獲取指定資料夾內的所有檔名。filelistbox 控制元件，在執行時，在 path 屬性指定的目錄中，filelistbox 控制元件將檔案定位並列舉出來。該控制元件用來顯示所選擇檔案型別的檔案列表。例如，可以在應用程式中建立對話方塊，通過它選擇一個...
VB從檔案中讀取了定長字串，如何去掉後面的空格
定長字串你沒有理解。一個定長字串，比如dim str as string 256，這個str變數裡面就包含了256個空字元，而不是空格。首先你要理解字元和字串的區別，字元是一個一個的，字串是一組字元組成的。其次，空字元的ascii碼是0，而空格是32，在vb裡表示為 chr 0 和 chr 32 在...