Hallo Supporter,
Wie in
diesem Thread schon ausführlich diskutiert, steuere ich eine Bewässerungsanlage per PC und Relaisschnittstellen.
Von der im Ursprungsthread geplanten Lösung per batch-Datei habe ich mich jetzt verabschiedet und bin im Laufe der
Diskussion auf folgenden Ansatz gekommen:
Ich habe eine txt-Datei erstellt, die die einzelnen Bewässerungskreise enthält sowie einen Platzhalter für die unterschiedlichen Bewässerungslängen.
Über ein vbs Script möchte ich diese Platzhalter ersetzen und dann alles in eine andere Datei speichern.
Zu ersetzen sind 4 verschiedene Platzhalter:
[list]trocken mit 200
normal mit 300
feucht mit 400
ende mit weiter[/list]
Der folgende Code (auf den mich Massaraksch hinwies, vielen Dank dafür) ersetzt 1 Platzhalter, ich weiß aber nicht, wie das mit mehreren Platzhaltern funktionieren kann, meine bisherigen Versuche sind alle fehlgeschlagen:
Const ForReading = 1
Const ForWriting = 2
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("standard.txt", ForReading)
strText = objFile.ReadAll
objFile.Close
strNewText = Replace(strText, "normal", "sleep 300")
Set objFile = objFSO.OpenTextFile("aktuell.lec2", ForWriting)
objFile.WriteLine strNewText
objFile.Close
Wie bekomme ich es hin, dass mehrere Platzhalter (gleichzeitig) ersetzt werden?
Danke und Gruss, Mikoop