技术问答vbs鎬庝箞鎵撳紑鏌愪釜鏂囦欢 - 扬州沐宇科技

瑕佸湪VBScript涓墦寮€鏌愪釜鏂囦欢锛屽彲浠ヤ娇鐢‵ileSystemObject瀵硅薄鏉ュ疄鐜般€?br/>涓嬮潰鏄竴涓畝鍗曠殑渚嬪瓙锛屾紨绀哄浣曚娇鐢╒BScript鎵撳紑涓€涓枃鏈枃浠跺苟璇诲彇鍏朵腑鐨勫唴瀹癸細

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\path\to\file.txt", 1)
Do Until objFile.AtEndOfStream
聽聽聽聽strLine聽=聽objFile.ReadLine
聽聽聽聽WScript.Echo聽strLine
Loop
objFile.Close
Set聽objFile聽=聽Nothing
Set聽objFSO聽=聽Nothing

鍦ㄤ笂闈㈢殑渚嬪瓙涓紝浣跨敤CreateObject("Scripting.FileSystemObject")鍒涘缓浜嗕竴涓?code>FileSystemObject瀵硅薄锛岀劧鍚庝娇鐢?code>OpenTextFile鏂规硶鎵撳紑鎸囧畾璺緞鐨勬枃鏈枃浠躲€?code>OpenTextFile鏂规硶鐨勭浜屼釜鍙傛暟鎸囧畾浜嗘枃浠剁殑鎵撳紑妯″紡锛屽叾涓?琛ㄧず浠ュ彧璇绘柟寮忔墦寮€鏂囦欢銆?br/>鐒跺悗锛岄€氳繃涓€涓?code>Do Until寰幆锛岄€愯璇诲彇鏂囦欢鍐呭骞惰緭鍑哄埌灞忓箷涓婏紝鐩村埌鏂囦欢鐨勬湯灏俱€?br/>鏈€鍚庯紝浣跨敤Close鏂规硶鍏抽棴鏂囦欢锛岄噴鏀捐祫婧愩€?br/>