Hallo zusammen,
Passt vielleicht nicht ganz in diesen Thread, aber ich versuche es mal.
Ich versuche gerade Pitschi's EEP6-Anlage Bad Driburg-Ottbergen zum Laufen zu bringen.
Da ich viele Landschaftselement nicht habe, muss ich tauschen.
Für mein altes Programm Diesel's Modelltauscher ist die Anlage mit 16MB zu groß. (Runtime Error)
Damit konnte ich auch alle Dummys auf eienen Schlag löschen.
Den ModellTauscher aus dem EEP-Shop gibt es nicht mehr.
Bleibt mir der Ernst Fasswalds Tool Modelle in Anlagen ersetzen V1.4a oder iceT's eep-Tweaker.
Diese beiden Tools tauschen halt alle fehlenden Objekte in Dummys um.
Jetzt habe ich ca. 12.000 Dummys, die ich gern löschen möchte.
Die Idee, löschen aller "Dummy_rot-weiss2" per vbs Script aus der anl3 bzw. xml Datei.
Das ganze XML steht aber in einer Zeile, zumindest sieht es im Ultra Edit oder Notepad++ so aus.
Die EEP-Dokumentation hat mir dabei nicht geholfen.
Kennt jemand eine Möglichkeit, per vbscript diese Löschung vorzunehmen.
Das Script hier ( hab ich aus dem Internet leicht abgewandelt) hat dann die erste Zeile komplett gelöscht,
Übrig blieb die Anlagen beschreibung
'RemoveLines.vbs
Criteria = Split(Trim("Dummy_rot-weiss2"))
Bak = ".bak"
Set fso = CreateObject("Scripting.FileSystemObject")
If WScript.Arguments.Count < 1 Then
WScript.Echo "Keine Quelldatei angegeben!"
WScript.Quit 1
End If
FileOut = WScript.Arguments(0)
If Not fso.FileExists(FileOut) Then
WScript.Echo "Angegebene Quelldatei " & FileOut & " nicht gefunden!"
WScript.Quit 2
End If
FileIn = FileOut & Bak
If fso.FileExists(FileIn) Then fso.DeleteFile FileIn
fso.MoveFile FileOut, FileIn
XMLin = Split(CreateObject("Scripting.FileSystemObject").OpenTextFile(FileIn).ReadAll, vbCrLF)
U = UBound(XMLin)
i = 1
Do Until i > U
Remove = False
For Each Crit In Criteria
If InStr(XMLin(i), Crit) Then Remove = True: Exit For
Next
If Not Remove Then
XMLout = XMLout & vbCrLF & XMLIn(i - 1)
Else
i = i + 2
End If
i = i + 1
Loop
If i = U + 1 Then XMLout = XMLout & vbCrLF & XMLIn(i - 1)
fso.OpenTextFile(FileOut, 2, True).Write Mid(XMLout, 3)