Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen (A bis Z)

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

Datum in Datei automatisch aktualisieren

Frage Entwicklung Batch & Shell

Mitglied: ms2lork

ms2lork (Level 1) - Jetzt verbinden

13.04.2009, aktualisiert 17:36 Uhr, 4592 Aufrufe, 4 Kommentare

hallo

habe 2 Datein (xml und lst Format) diese haben beide an einer bestimmten Position eine Datumsangabe. Ich möchte diese nun aktualiesieren. Der restliche Dateiinhalt soll nich verändert werden.

bei der xml Datei Zeile 2 Position 15 bis 22
sowie in Zeile 11 Position 15 bis 22
bei der lst Datei zeile 1 Position 13 bis 20
jeweils ohne Trennungszeichen im Format TTMMJJJJ

wäre sehr dankbar für eine Lösung
Mitglied: bastla
13.04.2009 um 18:20 Uhr
Hallo ms2lork und willkommen im Forum!

Das ließe sich am einfachsten mit einem VBScript erledigen:
01.
Datei1="D:\Datei1.xml" 
02.
Datei2="D:\Datei2.lst" 
03.
D=Replace(Date,".","") 
04.
'D="TTMMJJJJ" 
05.
L=Len(D) 
06.
Set fso = CreateObject("Scripting.FileSystemObject") 
07.
 
08.
T = Split(fso.OpenTextFile(Datei1).ReadAll,vbCrLF) 
09.
Z= 2: P=15: T(Z-1)=Left(T(Z-1),P-1)&D&Mid(T(Z-1),P+L) 
10.
Z=11: P=15: T(Z-1)=Left(T(Z-1),P-1)&D&Mid(T(Z-1),P+L) 
11.
fso.CreateTextFile(Datei1).Write Join(T,vbCrLF) 
12.
 
13.
T=Split(fso.OpenTextFile(Datei2).ReadAll,vbCrLF) 
14.
Z= 1: P=13: T(Z-1)=Left(T(Z-1),P-1)&D&Mid(T(Z-1),P+L) 
15.
fso.CreateTextFile(Datei2).Write Join(T,vbCrLF)
Falls Du nicht das aktuelle Datum verwenden willst, kannst Du in Zeile 4 das Apostroph entfernen und zwischen die Anführungszeichen das gewünschte Datum schreiben.

In den Zeilen 9 und 10 bzw 14 sind die Zeile(n) und Startposition(en) innerhalb der Zeile für die jeweilige Datei anzugeben.

Es wird vorausgesetzt (und daher nicht geprüft), dass die in den Zeilen 1 und 2 angegebenen Dateien existieren und dass die zu verändernden Zeilen auch tatsächlich ein Datum an den vorgegebenen Positionen (für Position 1 wäre übrigens eine Anpassung des Scripts erforderlich) enthalten.

Die Ersetzung erfolgt "in der Datei" - daher bitte zum Testen nur mit Kopien arbeiten.

Grüße
bastla

P.S.: Bei Bedarf lassen sich die Dateipfade bzw der Datumswert natürlich auch als Parameter beim Aufruf des Scripts übergeben.
Bitte warten ..
Mitglied: ms2lork
14.04.2009 um 17:55 Uhr
hi,
danke für die schnelle Antwort funktioniert super. Nur hab ich irgendwie die Zeit vergessen. In der xml Datei steht nach dem Datum mit Leerzeichen getrennt (TTMMJJJJ HHMM) noch die Uhrzeit. So dass diese teilweise in der Zukunft lag und er mir dann in der folge immer ein Fehler gemeldet hat. Kann man die Uhrzeit einfach gleich mit ändern?

vielen Dank im vorraus
lork
Bitte warten ..
Mitglied: bastla
14.04.2009 um 18:15 Uhr
Hallo ms2lork!

Es sollte genügen, die Zeilen 3 und (der Ordnung halber ) 4 zu ändern:
D=Replace(Date,".","") & " " & Replace(Left(Time,5),":","") 
'D="TTMMJJJJ HHMM"
Grüße
bastla
Bitte warten ..
Mitglied: ms2lork
15.04.2009 um 14:32 Uhr
Danke hab jetzt noch die beiden Datein seperat bearbeiten lassen, weil bei der .lst-Datei kein Zeit Angabe dran ist, und funktioniert alles.

bye lork
Bitte warten ..
Ähnliche Inhalte
Microsoft Office
Excel 2016 - Verknüpfung zu anderer Excel Datei automatisch aktualisieren (2)

Frage von devil7974 zum Thema Microsoft Office ...

Datenbanken
gelöst Access 2010 Textfeld automatisch aktualisieren (2)

Frage von Dr.Cornwallis zum Thema Datenbanken ...

Batch & Shell
Dateien nach Datum verschieben (4)

Frage von LKDNDK12 zum Thema Batch & Shell ...

Microsoft Office
gelöst Excelfunktion Automatisches Eintragen von Datum und Uhrzeit bei ausgefüllter Zelle (3)

Frage von Scrises zum Thema Microsoft Office ...

Neue Wissensbeiträge
Windows 10

Neues Win10 Funktionsupdate verbuggt RemoteApp

Information von thomasreischer zum Thema Windows 10 ...

Microsoft

Die neuen RSAT-Tools für Win10 1709 sind da

(2)

Information von DerWoWusste zum Thema Microsoft ...

Humor (lol)

Wohnt jemand in Belgien und kann nicht mehr ruhig ausschlafen?

(6)

Information von LordGurke zum Thema Humor (lol) ...

Heiß diskutierte Inhalte
Router & Routing
Allnet - VDSL2 Modem - SFP (mini-GBIC) (20)

Frage von Dobby zum Thema Router & Routing ...

Voice over IP
DeutschlandLAN IP Voice Data M Premium, Erfahrung mit Faxgeräte? (17)

Frage von liquidbase zum Thema Voice over IP ...

TK-Netze & Geräte
TK-Anlage VoIP - DECT Erweiterung (16)

Frage von Lynkon zum Thema TK-Netze & Geräte ...