A. 修改txt文件的內容的vbs代碼
看下代碼符合要求不
Set f= CreateObject("Scripting.FileSystemObject")
Set f1 = f.OpenTextFile("Text.txt")
str=f1.ReadAll
f1.close
str = Replace(str, "蠢驢", "笨豬")
set f2=f.createtextfile("~text.txt")
f2.write(str)
f2.close
f.MoveFile "~text.txt" , "C:\text.abc"
VBS 文件操作
創建文本文件
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile("C:\FSO\ScriptLog.txt")
檢察文件是否存在
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists("C:\FSO\ScriptLog.txt") Then
Set objFolder = objFSO.GetFile("C:\FSO\ScriptLog.txt")
Else
Wscript.Echo "File does not exist."
End If
刪除文本文件
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile("C:\FSO\ScriptLog.txt")
文本操作
讀取全部內容
Const ForReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\Scripts\Test.txt", ForReading)
strContents = objFile.ReadAll
objFile.Close
一行行的讀取文本文件內容
Const ForReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile ("c:\scripts\servers.txt", ForReading)
Do Until objTextFile.AtEndOfStream
strComputer = objTextFile.ReadLine
Wscript.Echo strComputer
Loop
objTextFile.Close
追加文本文件一行內容
Const ForAppending = 8
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile ("C:\Scripts\Service_Status.txt", ForAppending, True)
objTextFile.WriteLine("追加的內容")
objTextFile.Close
有用的幾個函數：
替換：將Jim替換成James。
strNewText = Replace(strText, "Jim ", "James ")
用逗號分隔字元串：
arrpath=split(strDN,",")
wscript.echo arrpath(0)
改格式用下面的
重命名文件(其實也是移動文件)
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.MoveFile "C:\1.txt" , "C:\1.bat"
移動文件
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.MoveFile "c:\1.txt" , "d:\1txt"
B. 文本文檔怎麼改成.vbs的格式
點擊左上角的「文件」「另存為...」，在「另存為」對話框的「保存類型」選擇為「所有文件」，再在「文件名」位置，寫上要保存的文件名。注意：必須帶＂.vbs＂擴展名。如: a.vbs 最後點保存即可
C. 怎樣把文件變成vbs格式
VBS是文本文件格式你用記事本寫好VBS腳本後直接把擴展名改成VBS就好了。
D. dos(批處理)或VBS腳本批量修改CSV格式文件內容
1.備份源文件
2.此為powershell腳本，保存為ps1擴展名文件，右鍵單擊腳本，以powershell運行
3.未對powershell進行過設置的，可以管理員身份運行CMD,復制以下命令到命令提符 以解除腳本限制
powershell-c"set-executionpolicyunrestricted"
當然也可以管理員運行POWERSHELL，輸入以下命令解除腳本限制
set-executionpolicyunrestricted
4. WIN10以下系統如出錯，可能需要去微軟官網下載補丁升級powershell
$SrcDir="D: est";#源目錄
$ar=2,6;#替換的列
dir$SrcDir-Filter*.csv|%{$str=$null;type$_.FullName|%{
$n=0;
foreach($chin$_.split(",`t")){
$n+=1;
if($n-in$ar){$ch=$ch.Replace('TER','端子')}
$str+=$ch+',';
}
$str=$str.TrimEnd(',')+"`r`n";
}
Out-File-FilePath$_.FullName-InputObject$str-Encodingutf8;
}
E. word-利用vbs寫一個腳本
Vbs 腳本編程簡明教程之一—為什麼要使用Vbs？
在Windows 中，學習計算機操作也許很簡單，但是很多計算機工作是重復性勞動，例如你每周
也許需要對一些計算機文件進行復制、粘貼、改名、刪除，也許你每天啟動計算機第一件事情
就是打開WORD，切換到你喜愛的輸入法進行文本編輯，同時還要播放優美的音樂給工作創造
一個舒心的環境，當然也有可能你經常需要對文本中的某些數據進行整理，把各式各樣的數據
按照某種規則排列起來……。這些事情重復、瑣碎，使人容易疲勞。
第三方軟體也許可以強化計算機的某些功能，但是解決這些重復勞動往往事倍功半，我也嘗試
過使用計算機語言編寫程序來解決這些問題，但是隨之而來的命令、語法、演算法、系統框架和
類庫常常讓我覺得這樣是否有必要，難道就是因為豬毛比較難拔，所以我就要去學習機械，為
自己設計一個拔豬毛機（？）嗎？
Vbs 是一種Windows 腳本，它的全稱是:Microsoft Visual Basic Script Editon.(微軟公司可視化
BASIC 腳本版)，VBS 是Visual Basic 的的一個抽象子集，是系統內置的，用它編寫的腳本代碼
不能編譯成二進制文件，直接由Windows 系統執行（實際是一個叫做宿主host 的解釋源代碼並
執行），高效、易學，但是大部分高級語言能乾的事情，它基本上都具備，它可以使各種各樣的
任務自動化，可以使你從重復瑣碎的工作中解脫出來，極大的提高工作效率。
我個人認為Vbs 腳本其實就是一種計算機編程語言，但是由於缺少計算機程序設計語言中的部
分要素，對於事件的描述能力較弱，所以稱為腳本，它最方便的地方就是提供了對COM 對象
的簡便支持。那麼什麼是COM 對象呢？
我這樣理解，COM 對象就是一些具有特定函數功能項程序模塊，他們一般以ocx 或者dll 作為
擴展名，你只要找到包含有你需要的功能的模塊文件，並在腳本中規范的引用，就可以實現特
定的功能，也就是說Vbs 腳本就是調用現成的「控制項」作為對象，用對象的屬性和方法實現目的，
完全免去了編寫代碼、設計演算法等等麻煩。說白了，我不是覺得拔豬毛麻煩么？我發覺xx 機（比
如真空離心器）有一個功能可以實現脫毛，ok，我把它拿來給豬脫毛。什麼？大材小用？太浪
費資源了？天哪，那是計算機晶元的事情，死道友不死貧道，反正我的事情是方便快速的解決
了，這就行了。
最方便的是它甚至不需要專門的開發環境，在你的計算機中，只要有notepad，就可以編寫Vbs
腳本了，並且可以直接執行。
===============================
Vbs 腳本編程簡明教程之二—如何開始第一個Vbs 腳本？
就像多數計算機教程一樣，我們從「Hello World！」程序開始我們的練習。什麼？不知道是什
么意思？就是說大部分的計算機程序設計教程開篇入門都是編寫一個小程序，執行這個程序的
結果就是在計算機的屏幕上或者dos 窗口中顯示一行文字：Hello World！好了，我們開始吧。
打開你的「記事本」程序，在編輯窗口填寫：
msgbox "He llo World!"
然後用滑鼠單擊「文件」菜單，單擊「保存」，把「保存在」一欄設為桌面，在「文件名」一欄中填寫
kk.vbs，單擊「保存」就可以了。然後最小化「記事本」窗口，在桌面上尋找你剛剛保存的kk.vbs，
然後雙擊。看到彈出的對話框了沒有，單擊「確定」，對話框消失了。難看了點，不過確實是你
編寫的第一個腳本程序。
說明之一：上面的操作中，保存位置放在桌面，僅僅是為了執行方便，你保存到其他的地方完
全沒有問題，只要你知道你保存在什麼地方就可以了，什麼？是廢話，自己保存的當然知道保
存在那裡了。不，自己保存的文件自己找不到的人我見的多了去了。文件名你可以隨意填寫，
不一定非要寫kk，只要符合Windows 的文件命名規則就可以了，但是擴展名必須是vbs，什麼?
不知道什麼是擴展名？就是文件名中「.」後的那部分，簡單說，就是vbs 腳本文件命名時必須是：
xxx.vbs，其中xxx 你隨意。
說明之二：在記事本編輯窗口中寫的這行是什麼意思？
Msgbox 是VBS 內建的函數，每一個函數都可以完成一定的功能，你只需要按照語法要求，在
函數的相應部分填寫相應的內容就可以了，這部分內容我們稱為參數，當然函數執行的結果我
們稱為返回值，一個函數可以有返回值也可以沒有，可以有參數也可以沒有。你不用了解函數
是怎麼運作的，只要了解這個函數能幹什麼就行了。
Msgbox 語法：msgbox "對話框內容", , "對話框的標題"
你不妨用記事本打開剛才的文件在編輯窗口中輸入：
msgbox "He llo World!" , , "系統提示"
執行一下，看看效果和位置。
說明之三：如果執行失敗，看看你的標點符號，所有的標點符號必須是在英文狀態下輸入的。
當然，這個腳本實在是太簡單了，甚至連最簡單的交互都沒有，所以你可以把腳本這樣修改一
下：
Dim name
name=Inputbox("請輸入你的名字:","名稱")
Msgbox name, , "您的名字是"
保存執行一下，看到彈出的對話框了么？填入你的名字，點確定，看到結果了嗎？
說明之一：第一句是定義變數，dim 是定義變數的語句
其格式為：dim 變數1,變數2……，
Vbs 只有一種變數類型，所以不用聲明變數類型。系統會自動分辨變數類型。
說明之二：inputbox 是VBS 內建的函數，可以接受輸入的內容，其語法格式為：
Inputbox("對話框內容","對話框標題")
第二句的意思是接受用戶的輸入，並把輸入結果傳遞給變數name。
好了，到此腳本基本的輸入輸出函數都有了，已經可以完成一些比較簡單的功能了，你可以編
寫一個簡單的腳本，然後拷貝的「程序」—>「啟動」中，然後重新啟動計算機看看結果。
F. 怎樣將一個文本文檔格式修改成VBS的
打開「我的電腦」，點擊菜單里的「工具」子菜單，再點擊「文件夾選項」，點擊「查看」標簽，一直向下拖，直到看見「隱藏已知文件類型擴展名」，點擊它，點擊「應用」按鈕。右鍵單擊文本文檔格式的文件，點擊「重命名」，把txt改成vbs
G. vbs批量修改WORD文檔
估計只能試試這款了！如下圖，選擇批替換功能卡，選擇題doc類型，添加一個模板文件入列表，啟用批替換設置。
H. 記事本txt格式怎麼改為vbs格式
1、滑鼠右鍵點擊新建文本文檔。
I. dos(批處理)或VBS腳本批量重命名及修改批量修改文件內容
寫好了.
@echo off
for /f "tokens=1,2 delims=," %%i in ('type "1234.csv"') do (
(
(echo S/N:%%i)
(echo Writing MAC %%j)
(echo Write MAC ^(%%j^))
)>"%%i.txt"
)
pause
測試:
1234.csv(Excel保存的逗號分隔符文件)用記事本打開內容是:
8A18517507,002185EE0E39
8A12345678,001d92123456
8A12345679,001d92123457
運行結果:
文件:
8A12345678.txt
內容:
S/N:8A12345678
Writing MAC 001d92123456
Write MAC (001d92123456)
文件:
8A12345679.txt
內容:
S/N:8A12345679
Writing MAC 001d92123457
Write MAC (001d92123457)
文件:
8A18517507.txt
內容:
S/N:8A18517507
Writing MAC 002185EE0E39
Write MAC (002185EE0E39)
J. 如何修改這個vbs代碼將其修改成可以整理txt文本內容的vbs腳本程序
我試了一下，好象是可以的啊？
樓主您說的「不起作用，不能自動輸出整理後的文本」是如何判斷出來的？
會不會是在inputbox裡面輸入的文本和需要替換的文本的大小寫不一致，導致replace函數沒有成功？
__________________________________
補充：
關於如何使用VBS？
首先把這些代碼復制粘貼到記事本裡面去；
然後取個名字保存到包含你需要處理的網頁文件所在的那個目錄下，比如叫做「整理文本.vbs」（注意不要保存成了「整理文本.vbs.txt」，因為有時候這個「.txt」擴展名是沒有顯示出來的）；
然後在資源管理器裡面雙擊這個「整理文本.vbs」運行；
按照提示輸入要清除的文本內容然後確定即可。
_______________________________
再補充：
如果想要處理文本文件的話，把下面這句話：
if ucase(right(file,4))=".HTM" or ucase(right(file,5))=".HTML" THEN myreplace(file)
替換為：
if ucase(right(file,4))=".TXT" THEN myreplace(file)
即可。