Verwendung von VBScript mit Druckercodeänderungen |
'Mit der ermittelten Variable wird festgelegt, ob der gewünschte
'Code-Abschnitt bereits geändert wurde
'Anfangs war der Code nicht geändert worden und wird auf False gesetzt
found = False
'Lesen Sie jede Zeile des Druckercodes im Objekt PCM ein
Do Until PCM.FileAtEOF
'Definieren Sie eine Variable mit der Druckercode-Zeile, die eingelesen wird
variableLine = PCM.ReadLine()
'Prüfen Sie, ob die Codezeile geändert werden muss
If variableLine = "Meine Kriterien" Then
'Prüfen Sie, ob die Zeile nicht bereits geändert wurde
If found = False Then
'Ändern Sie den Inhalt der Zeile
PCM.WriteLine("Mein neuer Wert")
'Setzen Sie found auf True
found = True
Else
'Wenn keine der vorherigen Variablen true sind,
'schreiben Sie die unveränderte Zeile erneut in PCM
PCM.WriteLine(variableLine)
End If
End If
Loop