[ERLEDIGT] Sub - Automatisiertes Einlesen

[iFool]

Hallo,

ich bin ganz neu auf dem Gebiet DIAdem und versuche zur Zeit ein Sub zu erstellen, mit dem ich mehrere INCA-Messdateien auswähle und anschließend in eine .tdm-Datei umwandeln kann. Allerdings möchte ich jede einzelne INCA-Messdatei einer einzelnen .tdm-Datei zuordnen und in einem neuem Ordner mit dem Tagesdatum ablegen.

Könnte sich bitte jemand meinem Problem annehmen, da ich leider nicht weiterkomme.
Wenn noch Informationen fehlen kann ich gerne aushelfen.

Freundliche Grüße

iFool

[iFool]

Hallo,

falls der Beitrag in das Forum "Daten importieren und verwalten" gehört bitte einfach verschieben.

Ich wäre über Hilfe wirklich sehr dankbar!

Freundliche Grüße

iFool

[grisu]

Hi iFool,

INCA heißt Applikation eines Bosch-Steuergerätes ?!?
Wenn deine Fahrzeuge einen Stern tragen, hätt ich ja noch was viel komfortableres, aber so erstmal ein einfaches Beispiel... :o)

Code:

Dim MyFileNames, iCount
Call FileNameGet("ANY", "FileRead", DataReadPath, "INCA data (*.dat),*.dat", "All.lst", True, "Data selection")
If DlgState="IDOk" Then
  Call FolderCreate(FileDlgDir & Str(Now, "#yyyymmdd"))
  MyFileNames = Split(FileDlgFileName,"|")
  For iCount = 0 To Ubound(MyFileNames)
    Data.Root.Clear()
    Call DataFileLoad(MyFileNames(iCount))
    Call DataFileSave(NameSplit(MyFileNames(iCount),"P")&Str(Now, "#yyyymmdd")&"\"&NameSplit(MyFileNames(iCount),"N"),"TDM")
  Next
End if

Grüße grisu