使用VBScript

Question

我想從一個文本file.I嘗試這個 -

Const ForReading = 1 
Const ForWriting = 2 

Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set objFile = objFSO.OpenTextFile("W:\Test.txt", ForReading) 

strText = objFile.ReadAll 
objFile.Close 
strNewText = Replace(strText, "Aron_", "Lori_") 
strNewText1 = Replace(strText, "Aron", "Jason") 'Not working 
strNewText2 = Replace(strText, "Sketa", "Skicia") 'Not working 


Set objFile = objFSO.OpenTextFile("W:\Test.txt", ForWriting) 
objFile.WriteLine strNewText 
objFile.WriteLine strNewText1 'Not working 
objFile.WriteLine strNewText2 'Not working 


objFile.Close 

我不能夠想出如何做多replacement.The代碼替換3文本替換在文本文件中的多個文本單工作完美替換功能，但不超過一個... plz幫助

Answer 1

你需要調用Replace上一Replace結果：

Const ForReading = 1 
Const ForWriting = 2 

Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set objFile = objFSO.OpenTextFile("W:\Test.txt", ForReading) 

strText = objFile.ReadAll 
objFile.Close 
strNewText = Replace(strText, "Aron_", "Lori_") 
strNewText1 = Replace(strNewText, "Aron", "Jason") 
strNewText2 = Replace(strNewText1, "Sketa", "Skicia") 

Set objFile = objFSO.OpenTextFile("W:\Test.txt", ForWriting) 
objFile.WriteLine strNewText2 

objFile.Close 

---

您實際上可以重用單個變量，而不是使用 strNewText, strNewText1， strNewText2。

strText = Replace(strText, "Aron_", "Lori_") 
strText = Replace(strText, "Aron", "Jason") 
strText = Replace(strText, "Sketa", "Skicia") 

及更高版本：

objFile.WriteLine strText 

---

此外，您可能要考慮使用正則表達式同時匹配多個值。 （搜尋上SO爲 VBScript的正則表達式或 VBA正則表達式）