set file obj = CreateObject(" Scripting。文件系統對象”)
設置textobj = fileobj。opentextfile (str，1，false)' str是文件名，1 =讀取，false=不創建文件。
而不是TextObj。阿滕多流
str = TextObj。閱讀線
Msgbox str '這顯示了文件的每壹行，妳需要做的就是修改這壹行，把它解壓成妳需要的格式。
行
TextObj。關閉
對於您的文本處理，核心是最後壹個while循環，如下所示:
i=2
而不是TextObj。阿滕多流
str = TextObj。閱讀線
如果str= " "那麽i=i+1
arr = split(字符串，" = ")
選擇案例修剪(arr(0))
案例“設備”
單元格(I，1)。值=數組(1)
案例“用戶”
單元格(I，2)。值=數組(1)
外殼“空腔”
細胞(I，3)。值=數組(1)
結束選擇
行