VBS skriptošana, divu rindkopu teksta aizstāšana

Datori un internets » Programmēšana un dizains

Ir izveidots smuks kods, kas ļauj teksta failā atrast dotos vārdus un aizvietot tos ar jaunajiem dotajiem vārdiem. Bet ir problēmas ar divu dažādu tekstu aizvietošanu, ja katrs teksts ir citā rindkopā.

Const ForReading = 1
Const ForWriting = 2

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("test.txt", ForReading)

strText = objFile.ReadAll
objFile.Close
strNewText = Replace(strText, "teksts teksts1", "teksts teksts2")
strNewText = Replace(strText, "teksts teksts3", "teksts teksts4")

Set objFile = objFSO.OpenTextFile("test.txt", ForWriting)
objFile.WriteLine strNewText
objFile.Close

Kad palaižu VBS failu, tad tas atrod un uzraksta jauno tekstu, kas dots kā otrais, jebšu teksts teksts3 tiek aizvietots ar teksts teksts4, bet teksts teksts1 paliek nemainīgs.
Kā iztaisīt to kodu tā, lai tiek atrasti un pārrakstīti abi teksti, kas katrs ir citā rindkopā?

• Labs jautājums?
  
• Jā
•  
• Nē

Pirms 11 gadiem

• Tweet