aletri
Jul 02, 2015, updated at 12:42:01 (UTC)
view1315
view1
0
Goto Top

Wenn bestimmter Text resp. Knoten in XML Datei bereits vorhanden dann script nicht ausfürhen

GermansolvedQuestionVB for ApplicationsDevelopment
Hallo an alle

Wie bekomme ich es hin, dass der unten aufgeführt Script nicht ausgeführt wird, wenn der Knoten "ATi Core"
bereits existiert?

 
Dim objShell,appdata
Set objShell = CreateObject("wscript.shell")  
appdata = objShell.ExpandEnvironmentStrings("%appdata%")  

Set xmlDoc = CreateObject("Microsoft.XMLDOM")  

xmlDoc.async = False

xmlDoc.load(appdata & "\Microsoft\FSX\dll.xml")  

Set xmlRoot = xmlDoc.documentElement

Set xmldll =  xmlDoc.createElement("Launch.Addon")  

Set xmlKnoten = xmlDoc.createElement("Name")  
xmlKnoten.Text = "ATi Core"  
xmldll.appendChild(xmlKnoten )

Set xmlKnoten = xmlDoc.createElement("Disabled")  
xmlKnoten.Text = "False"  
xmldll.appendChild(xmlKnoten )

Set xmlKnoten = xmlDoc.createElement("ManualLoad")  
xmlKnoten.Text = "False"  
xmldll.appendChild(xmlKnoten )

Set xmlKnoten = xmlDoc.createElement("Path")  
xmlKnoten.Text = "ATi\ATi CoreX.dll"  
xmldll.appendChild(xmlKnoten )

xmlRoot.appendChild(xmldll) 

xmlDoc.Save(appdata & "\Microsoft\FSX\dll.xml")  
Set xmlDoc = Nothing
comment-contentCommentShareShare
Share on Facebook Share on Twitter Share on Reddit Share on Linkedin

Content-Key: 276262

Url: https://administrator.de/contentid/276262

Printed on: April 19, 2024 at 08:04 o'clock

1 Comment
Goto Top
Mitglied: 114757
Solution 114757 Jul 02, 2015 updated at 12:42:01 (UTC)
Goto Top
(auch ohne Worte)
Dim objShell,appdata
Set objShell = CreateObject("wscript.shell")  
appdata = objShell.ExpandEnvironmentStrings("%appdata%")  
Set xmlDoc = CreateObject("Microsoft.XMLDOM")  
xmlDoc.async = False
xmlDoc.load(appdata & "\Microsoft\FSX\dll.xml")  
If xmlDoc.SelectSingleNode("//Name[.=""ATi Core""]") is Nothing then  
    Set xmlRoot = xmlDoc.documentElement
    Set xmldll = xmlDoc.createElement("Launch.Addon")  
    Set xmlKnoten = xmlDoc.createElement("Name")  
    xmlKnoten.Text = "ATi Core"  
    xmldll.appendChild(xmlKnoten )
    Set xmlKnoten = xmlDoc.createElement("Disabled")  
    xmlKnoten.Text = "False"  
    xmldll.appendChild(xmlKnoten)
    Set xmlKnoten = xmlDoc.createElement("ManualLoad")  
    xmlKnoten.Text = "False"  
    xmldll.appendChild(xmlKnoten )
    Set xmlKnoten = xmlDoc.createElement("Path")  
    xmlKnoten.Text = "ATi\ATi CoreX.dll"  
    xmldll.appendChild(xmlKnoten )
    xmlRoot.appendChild(xmldll)
    xmlDoc.Save(appdata & "\Microsoft\FSX\dll.xml")  
End if
Set xmlDoc = Nothing
GermansolvedQuestionVB for ApplicationsDevelopment
Hotly discussed
AlexWishaHow to set up and configure a Linux GRE tunnelAlexWisha - 3 CommentsjstrickerWIREGUARD VPN ON UDM PRO BEHIND FRITZBOX - HANDSHAKE DID NOT COMPLETEjstricker - 2 CommentsDaniEnd of Support dates for Office 2016, 2019 Apps und Productivity ServersDani - 1 CommentgleixnerdCheck of ZFW Firewallgleixnerd