@Moritz wegen Datenänderung in einer xml-Datei

Computer: Software & Programmierung Office Software
1

Hi Moritz,
du wolltest in einer Frage ( http://www.wer-weiss-was.de/cgi-bin/forum/showarchiv… ) wissen wie man den timestamp in xml abändert.
Probiers ma so wie nachfolgend bechrieben. Ich habe leider (siehe mein Posting im Windows-Brett) Probleme hier längeren Text hochzukriegen, eshalb 2geteilt.
Gruß
Reinhard

2 
Sub tt()
Set fs = Application.FileSearch
Pfad = "C:\Dokumente und Einstellungen\Moritz\Desktop\"
With fs
 .LookIn = Pfad
 .Filename = "\*.xml"
 .Execute
3 
 For i = 1 To .FoundFiles.Count
 nr1 = FreeFile
 Open Pfad & .FoundFiles(i) For Input As #nr1
 nr2 = FreeFile
 Open Pfad & "\kurz.txt" For Output As #nr2
 While Not EOF(nr1)
 Input #nr1, Satz ' entweder so oder so: "Line Input #nr1, Satz"
 pos = InStr(Satz, "time") + 6
 wert = Val(Mid(Satz, pos, 10))
 If wert \> 1118330356 Then wert = wert - 2678400
 Print #nr2, Left(Satz, pos - 1) & wert & Mid(Satz, pos + 10)
 Wend
 Close
 Name Pfad & "kurz.txt" As Pfad & .FoundFiles(i)
 Next i
End With


>
4

nach ‚End with‘ noch ein ‚End Sub‘ einfügen owT

5

ups, falsches Brett erwischt
Lösung solllte dort hin: http://www.wer-weiss-was.de/cgi-bin/forum/showarticl…
Gruß
Reinhard