so = dateiname ' quelle fürfilecopy
des = Mid(dateiname, 1, Len(dateiname) - 4) & ".old" ' destination für filecopy
FileCopy so, des ' filecopy

Option Explicit
 
Private Sub Form_Load()
    cdldatei.Filter = "Textdatei|*.txt|Alle Dateien|*.*"
End Sub
 
Private Sub mnuo_Click()
Dim filesize As Long
Dim Nr As Long
Dim Nr2 As Long
Dim pos As Long
Dim zeile As String
Dim so As String
Dim des As String
Dim r As String
Dim f As String
Dim dateiname, dateiname1 As String
 
    cdldatei.DialogTitle = "Datei öffnen..." 'datei öffnen via commondialog
    cdldatei.ShowOpen
Nr = FreeFile 'freie datei suchen
 
dateiname = cdldatei.FileName 'dateiname = cdlg eingabe
 
so = dateiname ' quelle fürfilecopy
des = Mid(dateiname, 1, Len(dateiname) - 4) & ".old" ' destination für filecopy
FileCopy so, des ' filecopy
 
Open dateiname For Input As #Nr 'öffnet datei für eingabe
 
     filesize = LOF(Nr)
        While Not EOF(Nr)
            Line Input #1, zeile
 
        Wend
 
    Close #Nr
 
     cdldatei.DialogTitle = "Datei speichern..." 'datei speichern cdlg
    cdldatei.ShowSave
 Nr2 = FreeFile '2te freie nummer
 
 
    dateiname1 = cdldatei.FileName 'eingabe aus cdlg save = dateiname
 
  Open dateiname1 For Output As #Nr2 'öffnen von dateiname1 zum speichern
   While Not EOF(Nr2) 'wenn nicht end of file dann
    pos = -1
    Line Input #Nr2, zeile 'zeile einfügen in datei
        If InStr(1, zeile, ":") <> 0 Then 'sollte in datei ein : sein dann
            r = Right(zeile, 17) 'rechter teil abschneiden
            f = Format(r, "m\/dd\/yyyy h:nn:ss AM/PM") 'rechten teil abschneiden
            zeile = Replace(zeile, r, f) 'alles wieder ersetzen
        End If
    Print #Nr2, zeile
   Wend
  Close #Nr2
 
Close #Nr
 
End Sub

'MRCalibRecord[2]_CalibrationDateSensor[50]' 8 6768 7 15.04.05 11:08:35
'MRCalibRecord[3]_CalibrationDateSensor[50]' 8 8444 7 13.09.04 15:59:28
'MRCalibRecord[4]_CalibrationDateSensor[50]' 8 10120 7 -693595
'MRCalibRecord[5]_CalibrationDateSensor[50]' 8 11796 7 -693595
'MRCalibRecord[6]_CalibrationDateSensor[50]' 8 13472 7 -693595
'MRCalibRecord[7]_CalibrationDateSensor[50]' 8 15148 7 -693595

IHR SEID ALLE SO
mfG
dereric


P.S.: schreibt mir eine eMail