Bat bestand: Find and Replace

[Gynnad]

Hallo,

Ik ben bezig om een .bat bestand op te stellen om een applicatie van een netwerkschijf af te halen binnen het bedrijf. Dit is me gelukt, hiervoor diende ik ook een database aan te maken, ook dit is geukt via het bat bestand. Maar nu zijn er enkele config files die ik moet aanpakken. Nu dacht ik dit te doen door Find and Replace, maar het lukt me niet om het bestand in te lezen in commandline.

Iemand hier enige ervaring mee hoe je dit het beste kunt aanpakken?

[Remco]

Je boedoelt dat je een tekst file wil bewerken met find & replace?
Je zou dat denk ik beter via Vbscript of Powershell kunnnen doen.

[mhoogendam]

Hier staan wat voorbeelden van een Bat file en VBS:
http://stackoverflow.com/...nd-edit-lines-in-txt-file

[SilentStorm]

pff, met enkel batch is dat best lastig.

Je kunt regels zoeken mbv 'type [bestandsnaam] | find "zoekterm" ', maar voor iets serieuzer werk zou ik op zoek gaan naar iets dat commandline regexps voor je kan uitvoeren op een bestand..

[Gynnad]

Remco schreef op donderdag 08 maart 2012 @ 15:08:
Je boedoelt dat je een tekst file wil bewerken met find & replace?
Je zou dat denk ik beter via Vbscript of Powershell kunnnen doen.

Inderdaad, zal eens kijken naar Powershell!

[Gynnad]

mhoogendam schreef op donderdag 08 maart 2012 @ 15:12:
Hier staan wat voorbeelden van een Bat file en VBS:
http://stackoverflow.com/...nd-edit-lines-in-txt-file

VBScript:

Set objFS = CreateObject("Scripting.FileSystemObject")
strFile = "C:\dotCMSTest\bin\windows_service\conf\wrapper.conf"
Set objFile = objFS.OpenTextFile(strFile)
Do Until objFile.AtEndOfStream
    strLine = objFile.ReadLine
    objFS.DeleteFile("C:\dotCMSTest\bin\windows_service\conf\wrapper.conf")
    If InStr(strLine,"{DOTCMS_INSTALLATION_FOLDER}")> 0 Then
        strLine = Replace(strLine,"{DOTCMS_INSTALLATION_FOLDER}","C:\dotCMSTest")
    End If 
    WScript.Echo strLine
Loop

Gebruik nu dit, maar als ik de output in een andere file doe dan de bestaande, dan werkt het gewoon. Maar als ik de output in de file wil doen waar de huidige stond dan werkt het niet. Dan krijg ik gewoon een lege file.

Waar zit het foutje?

[Gynnad]

Repost sorry!

[ Voor 98% gewijzigd door Gynnad op 08-03-2012 15:47 ]

[mhoogendam]

Gynnad schreef op donderdag 08 maart 2012 @ 15:46:
[...]

VBScript:

Set objFS = CreateObject("Scripting.FileSystemObject")
strFile = "C:\dotCMSTest\bin\windows_service\conf\wrapper.conf"
Set objFile = objFS.OpenTextFile(strFile)
Do Until objFile.AtEndOfStream
    strLine = objFile.ReadLine
    objFS.DeleteFile("C:\dotCMSTest\bin\windows_service\conf\wrapper.conf")
    If InStr(strLine,"{DOTCMS_INSTALLATION_FOLDER}")> 0 Then
        strLine = Replace(strLine,"{DOTCMS_INSTALLATION_FOLDER}","C:\dotCMSTest")
    End If 
    WScript.Echo strLine
Loop

Gebruik nu dit, maar als ik de output in een andere file doe dan de bestaande, dan werkt het gewoon. Maar als ik de output in de file wil doen waar de huidige stond dan werkt het niet. Dan krijg ik gewoon een lege file.

Waar zit het foutje?

Je probeert de file te vroeg te verwijderen.
Ik heb de VBS iets aangepast voor je, dubbelklik op de VBS om je file aan te passen:

VBScript:

Dim objFS, strFile, objFile, strLine
Const ForReading = 1
Const ForWriting = 2
Set objFS = CreateObject("Scripting.FileSystemObject")
strFile = "C:\dotCMSTest\bin\windows_service\conf\wrapper.conf"
Set objFile = objFS.OpenTextFile(strFile, ForReading)

Do Until objFile.AtEndOfStream
    strLine = objFile.ReadAll
        If InStr(strLine,"{DOTCMS_INSTALLATION_FOLDER}")> 0 Then
    strLine = Replace(strLine,"{DOTCMS_INSTALLATION_FOLDER}","C:\dotCMSTest")
End If 
Loop
objFile.Close

Set objFile = objFS.OpenTextFile(strFile, ForWriting)
objFile.WriteLine strLine
objFile.Close

[Gynnad]

mhoogendam schreef op vrijdag 09 maart 2012 @ 08:39:
[...]


Je probeert de file te vroeg te verwijderen.
Ik heb de VBS iets aangepast voor je, dubbelklik op de VBS om je file aan te passen:

VBScript:

Dim objFS, strFile, objFile, strLine
Const ForReading = 1
Const ForWriting = 2
Set objFS = CreateObject("Scripting.FileSystemObject")
strFile = "C:\dotCMSTest\bin\windows_service\conf\wrapper.conf"
Set objFile = objFS.OpenTextFile(strFile, ForReading)

Do Until objFile.AtEndOfStream
    strLine = objFile.ReadAll
        If InStr(strLine,"{DOTCMS_INSTALLATION_FOLDER}")> 0 Then
    strLine = Replace(strLine,"{DOTCMS_INSTALLATION_FOLDER}","C:\dotCMSTest")
End If 
Loop
objFile.Close

Set objFile = objFS.OpenTextFile(strFile, ForWriting)
objFile.WriteLine strLine
objFile.Close

Bedankt!