把文字檔案處理為陣列，每行為一個數組元素，然後在每個元素中查詢關鍵詞，vbs可以直接使用instr函式來查詢，也可以使用正則表示式查詢。找到後把那個陣列元素複製出來就可以了。 第一種，使用instr c = split(createobject("scripting.filesystemobject").opentextfile("a.txt").readall,vbcrlf) for i = 0 to ubound(c) if instr(c(i),"nice") then msgbox c(i) next 第二種，使用正則表示式 c = split(createobject("scripting.filesystemobject").opentextfile("a.txt").readall,vbcrlf) for i = 0 to ubound(c) if rt("nice",c(i)) then msgbox c(i) next Function rt(patrn,str) set regex=new regexp regex.pattern = patrn regex.ignorecase = false rt = regex.test(str) End Function