1樓：匿名使用者
其實方法有很多，我就列舉常用的兩個吧...
方法一：
迴圈獲得資料夾裡的檔案；
判斷是否為文字檔案；
按行讀取文字檔案；。。。
下面我用dir()函式獲得資料夾裡的檔案，檔案將按「檔名」排序。也可以結合檔案系統來做。
private sub command1_click()
dim folderpath as string, filename as string， fnum1 as integer, fnum2 as integer
dim sl as string
folderpath = "d:\123\"
fnum1 = freefile
open folderpath & "tmp.txt" for output as fnum1
filename = dir(folderpath)
do until filename = ""
if lcase(right(filename, 4)) = ".txt" and filename <> "tmp.txt" then
fnum2 = freefile
open folderpath & filename for input as fnum2
do until eof(fnum2)
line input #fnum2, sl
print #fnum1, sl
loop
print #fnum1,
close #fnum2
end if
filename = dir()
loop
close #fnum1
end sub
方法二：
如果這些文字檔案都是ansi編碼，那麼可以使用命令列的copy語句。
**確實能做到很簡潔，但就沒有靈活性了。其中，檔案將按「檔名」排序。
private sub command1_click()
dim folderpath as string
folderpath = "d:\123\"
shell "cmd.exe /c copy """ & folderpath & "*.txt"" """ & folderpath & "tmp.txt"""
end sub
另外，這種方法可以用bat檔案來實現。
2樓：匿名使用者
txt檔名有規律嗎？比如1.txt 、2.txt 、3.txt....如果是這樣的話就好弄點。。。
如果沒規律可以用通用控制元件返回txt文字的路徑，然後用input把txt內容都讀取出來存入指定的文字就可以了
vb替換文字，vb替換文字檔案中指定的內容
1全部if dir 檔案路徑 then 如檔案不存在 不返回值 所以是 空白 msgbox 不存在 else shell regedit.exe s c del.reg end if vb檢查檔案是否存在，可使用 if dir strpathfilename then 就行了 else 執行shel...
python文字檔案資料處理，python小白 求助 讀取txt檔案，並進行資料處理
讀取一個文字檔案之後得到裡面出現最多的關鍵字 from time import time from operator import itemgetter def test 取 10 個，有需要可以修改,及定義讀取的檔案 test.txt ilist 10 strfilename test.txt c...
matlab怎樣從文字檔案中讀入資料到矩陣
大野瘦子 開啟檔案 注意修改檔名 fid fopen 480684994.txt rt if fid 0,return,end 讀檔案直到結束 while feof fid 每次讀入一行 s fgetl fid 以空格作為資料項的分隔符 以matlab r2012b為例。首先開啟matlab 選擇c...