Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Wert in mehreren XML Dateien per Script ersetzen

Frage Entwicklung Batch & Shell

Mitglied: PaketJockey

PaketJockey (Level 1) - Jetzt verbinden

18.02.2015 um 00:33 Uhr, 629 Aufrufe, 5 Kommentare

Hallo zusammen,

habe an meinem Logistik-Arbeitsplatz folgendes Problem:

Wir bekommen täglich massig elektronische Lieferscheine als XML Dateien. Darin müsste die falsche ILN im Bereich ShipToParty (Zeile 32) ersetzt werden (Die ILNs bei Vendor [Zeile 20] und OrderingParty [Zeile 26] sollen unangetastet bleiben).
Die zu ändernde ILN hat aktuell immer entweder den Wert A oder den Wert B. Nun soll sie durch die korrekten ILNs C und D ersetzt werden (C ersetzt immer A; D ersetzt immer B).

Hättet Ihr mir da ein kleines VBS parat so a la "wenn ILN = A dann ersetzte durch Fixwert C; wenn ILN = B dann ersetzte durch Fixwert D" ?

Dann lass ich das über den entsprechenden Ordner laufen und muss nicht mehr von Hand in Dutzenden XMLs rumpasten.
Besonders nervig: du hast im Clipboard die eine ILN, musst aber ständig wechseln, weil du nicht siehst welche ILN dich in der Datei erwartet. Ja, lacht nicht, so steinzeitmäßig geht das hier

Ich habe diesen Thread schon durchgelesen http://www.administrator.de/frage/inhalt-xml-datei-batch-script-%C3%A4n ... aber das passt nicht so recht auf meinen Fall.


btw: natürlich wäre es einfacher, wenn unsere Lieferanten die korrekten ILNs in ihren Stammdaten ändern würden, aber das ist nicht in Sicht.

Wäre echt nett wenn Ihr mir helfen könntet.

Grüße
PJ

So sieht der relevante teil der XML Datei aus.

01.
<?xml version="1.0" encoding="UTF-8"?> 
02.
<DeliveryNote> 
03.
 <Type>DESADV</Type> 
04.
 <MessageDate>bla</MessageDate> 
05.
 <Test>0</Test> 
06.
<Header> 
07.
 <DocumentID>1234</DocumentID> 
08.
 <DocumentDate>bla</DocumentDate> 
09.
 <DeliveryDate>bla</DeliveryDate> 
10.
 <ShippingDate>bla</ShippingDate> 
11.
 <Courier>maersk</Courier> 
12.
<Incoterms> 
13.
 <Key>FH</Key> 
14.
 <Description>Frei Haus; Liefertermin = ET</Description> 
15.
 </Incoterms> 
16.
<TradingPartners> 
17.
<Vendor> 
18.
<Identifier> 
19.
 <PartnerID>999</PartnerID> 
20.
 <ILN>888</ILN> 
21.
 </Identifier> 
22.
 </Vendor> 
23.
<OrderingParty> 
24.
<Identifier> 
25.
 <PartnerID>777</PartnerID> 
26.
 <ILN>666</ILN> 
27.
 </Identifier> 
28.
 </OrderingParty> 
29.
<ShipToParty> 
30.
<Identifier> 
31.
 <PartnerID>555</PartnerID> 
32.
 <ILN>A</ILN> 
33.
 </Identifier> 
34.
 </Header> 
35.
 </DeliveryNote>
Mitglied: Friemler
LÖSUNG 18.02.2015, aktualisiert um 11:24 Uhr
Hallo PJ,

teste mal folgendes:
01.
strILN_A = "A" 
02.
strILN_B = "B" 
03.
strILN_C = "C" 
04.
strILN_D = "D" 
05.
 
06.
If WScript.Arguments.Count > 0 Then 
07.
  strFolder = WScript.Arguments(0) 
08.
Else 
09.
  strFolder = "." 
10.
End If 
11.
   
12.
Set objFSO    = CreateObject("Scripting.FileSystemObject") 
13.
Set objXmlDoc = CreateObject("Microsoft.XMLDOM") 
14.
 
15.
objXmlDoc.async            = False 
16.
objXmlDoc.validateOnParse  = False 
17.
objXmlDoc.resolveExternals = False 
18.
 
19.
If objFSO.FolderExists(strFolder) Then 
20.
  For Each objFile In objFSO.GetFolder(strFolder).Files 
21.
    If UCase(objFSO.GetExtensionName(objFile.Name)) = "XML" Then 
22.
      strFile = objFile.Path 
23.
      objXmlDoc.load(strFile) 
24.
 
25.
      If objXmlDoc.parseError.errorCode = 0 Then 
26.
        Set objNode = objXmlDoc.documentElement.SelectSingleNode("//DeliveryNote/Header/TradingPartners/ShipToParty/Identifier/ILN") 
27.
 
28.
        If Not objNode Is Nothing Then 
29.
          If objNode.Text = strILN_A Then 
30.
            objNode.Text = strILN_C 
31.
          ElseIf objNode.Text = strILN_B Then 
32.
            objNode.Text = strILN_D 
33.
          End If 
34.
           
35.
          objXmlDoc.save(strFile) 
36.
        Else 
37.
          WScript.Echo "Der Aufbau des XML-Dokuments" & vbNewLine & _ 
38.
                       strFile                        & vbNewLine & _ 
39.
                       "weicht vom Standard-Schema ab." 
40.
        End If 
41.
      Else 
42.
        WScript.Echo "Das XML-Dokument" & vbNewLine & _ 
43.
                     strFile            & vbNewLine & _ 
44.
                     "ist fehlerhaft." 
45.
      End If 
46.
    End If 
47.
  Next 
48.
Else 
49.
  WScript.Echo "Das angegebene Verzeichnis existiert nicht" 
50.
End If
Die Zeilen 1-4 musst Du anpassen, hier werden die zu ersetzenden und die neuen Werte der ILNs eingetragen.

Um das Script aufzurufen, kannst Du es in das Verzeichnis mit den XML-Dateien kopieren und dort per Doppelklick oder über eine Verknüpfung starten. Du kannst auch das Icon des XML-Verzeichnisses mit der Maus auf das Icon des Scripts ziehen und fallen lassen.

Gruß
Friemler
Bitte warten ..
Mitglied: Endoro
18.02.2015, aktualisiert um 06:16 Uhr
Hey,
zwischen Zeile 33 und 34 fehlt </ShipToParty> in deinem Beispiel.
Mit GNU sed sieht die Lösung so aus:
01.
sed -ir "/<ShipToParty>/{:b;n;/<ILN>/{s/A/C/;t;s/B/D/;t};s#</ShipToParty>#&#;t;bb}" *.xml
Wenn die zu suchende Zeichenkette Regex-Steuerzeichen .*/\ enthält, müssen die mit Backslash escaped werden.
Gruß, Endoro
Bitte warten ..
Mitglied: 114757
18.02.2015, aktualisiert um 08:12 Uhr
Oder als Powershell-Script so:
(Zeile 1 die zugehörigen Werte eintragen und in Zeile 2 den Pfad zu den XML-Dateien ändern)
01.
$werte = @{'A'='555';'B'='666'} 
02.
$files = gci "c:\Ordner\*.xml" 
03.
$files | %{ 
04.
    $xml = [xml](gc $_.Fullname) 
05.
    $werte.GetEnumerator() | %{ 
06.
         $iln = $xml.DeliveryNote.Header.TradingPartners.ShipToParty.Identifier.ILN 
07.
        if ($iln -eq $_.Name){ 
08.
            $xml.DeliveryNote.Header.TradingPartners.ShipToParty.Identifier.ILN = $_.Value 
09.
10.
11.
    $xml.Save($_.Fullname) 
12.
}
Gruß jodel32
Bitte warten ..
Mitglied: PaketJockey
18.02.2015 um 11:22 Uhr
Hallo,

also erstmal DANKE an alle für die prompten Antworten.

@Friemler: Läuft perfekt, wird verwendet...Weiterverarbeitung der Dateien verfolgt; alles toll. Danke

@Endoro: Wollte zuerst Deine Version verwenden, klappt irgendwie nicht...Datei bleibt unverändert, es wird im entsprechenden Verzeichnis lediglich eine XMLR Datei mit gleichem Namen erzeugt; ebenfalls unverändert vom Inhalt. Trotzdem danke

Grüße
PJ
Bitte warten ..
Mitglied: Endoro
18.02.2015 um 13:10 Uhr
Hey,
ohne komplette Kommandozeile kann ich das hier nicht nachvollziehen.
Gruß, Endoro
Bitte warten ..
Neuester Wissensbeitrag
Windows 10

Powershell 5 BSOD

(1)

Tipp von agowa338 zum Thema Windows 10 ...

Ähnliche Inhalte
VB for Applications
VBS Script zum versenden mehrerer Verknüpfungen zu Dateien per Lotus Notes

Frage von Sentinel87 zum Thema VB for Applications ...

Batch & Shell
Script zum XML Datei Umschreiben (12)

Frage von cberndt zum Thema Batch & Shell ...

Batch & Shell
gelöst CSV Dateien auswerten mit Script (8)

Frage von Crank69 zum Thema Batch & Shell ...

Heiß diskutierte Inhalte
LAN, WAN, Wireless
gelöst Server erkennt Client nicht wenn er ausserhalb des DHCP Pools liegt (28)

Frage von Mar-west zum Thema LAN, WAN, Wireless ...

Outlook & Mail
Outlook 2010 findet ost datei nicht (18)

Frage von Floh21 zum Thema Outlook & Mail ...

Windows Server
Server 2008R2 startet nicht mehr (Bad Patch 0xa) (18)

Frage von Haures zum Thema Windows Server ...