[VBS] string vervangen in text file

[Verwijderd]

Ik heb een scriptje dat een string gaat vervangen in een txt file. het begin van deze string is steeds hetzelfde maar het einde is dynamisch. Hieronder de code:

VBScript:

 
Option Explicit  
  
Dim objFSO  
  
Dim objFile  
  
Dim strContents  
  
Dim strNewText  
  
Const ForReading = 1  
  
Const ForWriting = 2  
  
Set objFSO = CreateObject("Scripting.FileSystemObject")  
  
Set objFile = objFSO.OpenTextFile("C:\Text.txt", ForReading)  
  
strContents = objFile.ReadAll
  
objFile.Close  
  
If InStr(strContents, "test1 = ") Then  
  
strNewText = Replace(strContents, "test1 = ", "test1 = 564")  
  
End If  
  
Set objFile = objFSO.OpenTextFile("C:\Text.txt", ForWriting)  
  
objFile.Write strNewText  
  
objFile.Close

De string kan bijvoorbeeld volgende zijn:
test1 = 456456.45 of
test1 = 89,1

Maar dit kan nog duizende andere combinaties aannemen.
Deze wil ik dan vervangen door
test1 = 10

[Webgnome]

het rechterdeel maakt toch niks uit je hoeft alleen te matchen met het linkerdeel en dan de string te vervangen

[Verwijderd]

het rechterdeel moet vervangen worden. Indien er staat test1 = 45466.565 moet dit test1 = 10 worden. Buiten deze string staan er ook nog andere parameters in de textfile.

[DanielG]

Hoe ziet je tekstbestand eruit?
Als elke "test1 = " op een eigen regel staat dan kan je kijken of de regel ermee begint en dan de hele regel vervangen.

[Verwijderd]

Dit staat op een eigen regel hoogstwaarschijnlijk. Hoe kan ik dan die regel vervangen? Heb je hier misschien een voorbeeld van?

[Big Womly]

Ik zie 2 opties
1) Regular expressions. Ik laat je zelf wat meer opzoeken hierover
2) Ipv alles in 1 keer in te lezen, regel voor regel inlezen. Vermits het linker deel fixed is en het rechter moet vervange worden (tot op het einde van het record?) kan je de aanpassing doen adhv Left functie (of Mid) met een concat. Left(regel, 1, Instr(regel, "test = ")-1) & "test = 10"

[DanielG]

Gebruik "Scripting.TextStream" daar kan je de functie "ReadLine" van gebruiken om een regel te lezen, deze kan je dan controleren of het begint met "test1 = " en dan de hele regel vervangen.

[Verwijderd]

Ok bedankt iedereen. Ik denk dat k mijn oplossing hierin wel vindt.

[Woy]

VBScript hoort in Windows Clients ( Zie Waar hoort mijn topic? )

Dus Programming -> Windows Clients