title: Replace multiple text in a text file using vbscript
body: <p>I am trying to replace 3 text from a text file.I tried this-</p>
  
  <pre><code>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
  </code></pre>
  
  <p>i am not able to figure out how to do multiple replacement.The code working perfect for single replace function but not more than one...plz help</p>