XML bearbeiten im VBScript (FinalBuilder)

[himitsu]

[edit]
OK, ich komm um manuelles Speichern nicht drumrum, bei all dem Scheiß, den Emba da baut.

* Emba speichert mit UTF-8 BOM, MS-XMLDOM ohne BOM
* Emba speichert als HTML-Entity, MS-XMLDOM als "
* Emba speichert alles mit CRLF, Emba auch, außer die Zeilenumbrüche innerhalb dieses Nicht-CDATA-PostBuildEvent, welche als CR (nicht LF) gespeichert sind

Aber eine Lösung, wie die " unverändert blieben und nicht zu " würden, wäre dennoch toll.
[/edit]


Moin,

also genauer geht es um DPROJs.


Für Delphi XE hatte ich noch mit String-Replace rumgepfuscht,
aber für 11.x wollte ich das nun "richiger" machen.

Die 4 Leerzeichen, welche Microsoft.XMLDOM als Tab speichert, konnte ich nun doch lösen.
preserveWhiteSpace=True vor dem SAVE (nicht nur/schon vor dem Load)

Aber nun noch noch der nächste Schrott, den Delphi verbockt.

in der BASE heißt es noch <PostBuildEvent><![CDATA["... aber dann, obwohl es sich "eigentlich" nicht ändert, wird nochmal für jede Config ein <PostBuildEvent>&quot;... gespeichert.


OK, abgesehn davon, dass man nun sinnlos redundanten Dreck in der DPROJ hat (wunderschön für einen GIT-Diff),
speichert XMLDOM das " als " ab.

Im Node.Text ein Replace von " zu " würde natürlich " ergeben.

Gibt es da nun irgendeinen Weg dem XML-DOM beizubringen das nicht zu ändern, bzw. die " in Node-Texten als " zu speichern? (außer im CDATA)
* der Code an sich funktioniert dennoch
* ich könnte diese Nodes auch einfach löschen und es wäre alles OK
* oder ich muß doch wieder nachträglich in der Datei Replacen
-> die ersten Beiden würden gehen, aber ergeben "beschissene" Änderungen im GIT-Diff, die dann später durch Delphi nochmals geändert wurden (ein krankes hin und her, mit nervigen Änderungen im Commit)


Also ein billiges StringReplace über den kompletten XML-Text .... nja, die meißten " müssen ja " bleiben.
Die kompletten Nodes Replacen, da müsste man aufpassen, wenn zukünftig dort etwas geändert würde-







Diesen PostBuildEvent-Bug gibt es nun schon ewig ... glaub nicht dass Emba das zeitnah repariert bekommt.

Code:

' in der Projektdatei die entsprechende Default-Config aktivieren (Release, Debug oder DebugOhneEurekalog)
function UpdateDefaultConfigInProjectFile(Action)
  File   = ExpandVarQuiet(Action.BuildFile)
  Config = FBVariables.MAKE_CONFIG

  set XML = CreateObject("Microsoft.XMLDOM")
  XML.preserveWhiteSpace = True
  XML.async = False
  if not XML.load(File) then call Err.Raise(1, "FinalBuilder", File + " not loaded : " + CStr(XML.parseError.errorCode) + " " + CStr(XML.parseError.reason))

  set Node = XML.selectSingleNode("//ItemGroup/BuildConfiguration[@Include='" + Config + "']")
  if Node is Nothing then
    Action.Echo "does NOT found Config '" + Config + "' in " + File
  else
    Action.Echo "found Config '" + Config + "' in " + File

    set Node = XML.selectSingleNode("//PropertyGroup/Config")
    Node.text = Config

    XML.preserveWhiteSpace = True
    if XML.save(File) <> 0 then call Err.Raise(1, "FinalBuilder", "write error")
  end if
end function

Ja, beim MSBuild kann ich via Parameter die zu verwendende Config übergeben, aber es soll dann auch im Delphi die entsprechende Config "standardmäßig" aktiv sein, beim Debuggen.