|
Hallo Zusammen,
ich habe eine Problem ich soll Messdaten von 80 Messgeräten auswerten und vergleichen. Die Messdaten haben auf jedem Geräte denselben Namen.
Der Name der Messdaten ist fest in der *.Dat-Datei "eincodiert" (Famos Format) und die Dateien sind bis 100MB groß. Ich habe die Datei schon mit dem Editor geöffnet und den Header bearbeitet und so den Namen geändert.
Ich wollte mir ein Vba makro schreiben das die Dateien automatisch umbenennt und wegspeichert.
input Pfad:
Messauftrag\Messgeräte1\Messdaten.dat
Messauftrag\Messgeräte2\Messdaten.dat
Messauftrag\Messgeräte3\Messdaten.dat
output Pfad:
Messauftrag\MG1_ Messdaten.dat
Messauftrag\MG2_ Messdaten.dat
Messauftrag\MG3_ Messdaten.dat
mit open Binary und put kann ich die Namen nur überschreiben und keine zusätzlichen einfügen.
Private Sub cmdWrite_Click()
Dim MessDatenName As String
Dim sFile As String
MessDatenName = "MG1_MessDaten"
gFileNum = FreeFile
sFile = "C:\Messauftrag\Messgeräte1\Messdaten.dat"
Open sFile For Binary As gFileNum
Seek gFileNum, 40
Put #gFileNum, 40, MessDatenName
Close gFileNum
End Sub
|