2016-07-29 15 views
1

zu kommentieren Ich möchte einige Knoten (Tags einschließlich Werte) kommentieren, da ich Konfiguration mit VB-Skript automatisieren muss.Versucht, XML-Knoten mit VBScript

Ich bin in der Lage, den Knoten zu finden, aber ich muss diesen Knoten bei Bedarf über Skripte kommentieren.

Ich möchte lesen gesamte Datei zu vermeiden und den gewünschten Knoten zu finden, da es Unterknoten sein kann, und es wird wirklich kompliziert sein

Kann einige Führer mich plz

+0

See [diese Antwort] (http://stackoverflow.com/a/31839167/1630171) auf eine ähnliche Frage zu ersetzen . Der Code ist PowerShell dort, aber der Ansatz ist der gleiche: Wählen Sie den Knoten aus, legen Sie ihn in einen neuen Kommentarknoten und ersetzen Sie den ursprünglichen Knoten durch diesen. –

+0

Ich muss VBScript verwenden, da die Codebasis in VBScript ist, kann ich nicht zu Powershell für 1 single use – wizyashas

+0

ändern Ich habe nicht gesagt, dass Sie auf PowerShell wechseln sollten. Sie können den PowerShell-Code jedoch als Blaupause für die Implementierung in VBScript verwenden. –

Antwort

0

Das ist, was ich jetzt tue. Bitte helfen Sie mir, es besser zu machen. -> Ich bin einen Text aus einer Datei zu lesen und es mit Kommentar-Tag angehängt an den Text

sub CommentNodes(OriginalFilepath, TempFilePath , OriginalText, UpdatedText) 

mOriginalFilePath = OriginalFilepath 
mTempFilePath = TempFilePath 

Set FileSysObj = CreateObject("Scripting.FileSystemObject") 
Set File = FileSysObj.OpenTextFile(mOriginalFilePath) 
Set OFile = FileSysObj.CreateTextFile(mTempFilePath , True) 
StrText = File.ReadAll 
newStr = Replace(Strtext, OriginalText, UpdatedText) 
OFile.WriteLine newStr 

OFile.Close 
File.Close 
FileSysObj.DeleteFile mOriginalFilePath 
FileSysObj.MoveFile mTempFilePath,mOriginalFilePath 

Set OFile = Nothing 
Set File = Nothing 
Set FileSysObj = Nothing 

Wscript.Echo "Success" 
End sub