VBSは、指定されたコンテンツに指定されたテキストを変更します

設定 WshShell = のCreateObject" Wscript.Shellが" 
WshShell.Run " CMD / C DIR / S / B * .INI> list.txtに" 、vbHide 
Wscript.Sleep 1000年
SFILE = " LIST.TXT " 
設定 objFSO = のCreateObject" Scripting.FileSystemObjectオブジェクト" を設定し OFILE = objFSO.OpenTextFile(SFILE、1 行い ながら oFile.AtEndOfStream 
strLine変数の値 = oFile.ReadLine
 もし レン(strLine変数の値)>0  次に
設定し、ファイル= objFSO.OpenTextFile(strLine変数の値、1 
aryLines = File.ReadAll 
File.Close 
aryLines = 置き換え(aryLines、" http://www.hao774.com/?90142-16009 "https://でWWW .2345.com /?kywx を設定し、ファイル= objFSO.OpenTextFile(strLine変数の値、2 
File.Write aryLines 
File.Close 
エンド もし
ループ
oFile.Close 
objFSO.DeleteFile SFILE 
設定 objFSO = 何もありません

.VBS実行として保存します。.iniファイルが同じディレクトリに入れ、上記のコードはにあります

http://www.hao774.com/?90142-16009修正
https://www.2345.com/?kywx

おすすめ

転載: www.cnblogs.com/scrappy/p/11362009.html