Daten mit veränderlichem Namen einlesen

[mibafz]

Hallo zusammen,
wir haben die Aufgabe ein Suchprogramm zu schreiben,
welches eine unterschiedliche Anzahl von Dateien aus einem Ordner einliest.
Das Problem ist, dass sich die Dateinamen ändern können, sodass z.B.
nur die ersten 5 Zeichen gleich bleiben und der Rest sich verändert.

Wenn man es z.B. mit folgender Zeile versucht, erkennt DIAdem das Sternchen nicht als Platzhalter an.

Call DataFileLoad(MyFolders(0)&"IP167*","DAT","") '... DataFilename,FileImportFilter,ImportAction

und hat vielleicht jemand noch eine Idee, wie man eine unbekannte Anzahl Dateien mit quasi einem Klick einliest, also den Befehl oben irgendwie in eine Schleife einbindet?


Viele Grüße

[chaosyeti]

Moin,

haben die Dateinamen (also der variable Teil) einen gewissen Rhythmus oder etwas vergleichbares?
Bzw. wurden sie vorher im DIAdem erzeugt?
So, wie Du das da oben gestaltet hast, nimmt er das * als Teil des Namens.
Ich würde den Namen als Variable vorher zusammen setzen, so à la

dim dateiname, sternchen
sternchen = (das mußt Du dann rausfinden oder genauere Infos geben)
dateiname = "IP167" & sternchen & ".dat"
Call DataFileLoad(MyFolders(0)&dateiname,"DAT","")

Ich hatte hier ein ähnliches Problem, aber die Dateien zuvor mit DIAdem erzeugt (sprich: gemessen)

Dim komplett, messdatei
ReDim LastSaved(3)
Call DATADELALL(1)
Call sub_messen1 '-- messen datei 1
messdatei = DCGroupName & ".TDM"
komplett = MyFolders(0) & messdatei
LastSaved(0) = komplett
Call DATADELALL(1)
Call sub_messen2 '-- messen datei 2
messdatei = DCGroupName & ".TDM"
komplett = MyFolders(0) & messdatei
LastSaved(1) = komplett
Call DATADELALL(1)
Call sub_messen3 '-- messen datei 3
messdatei = DCGroupName & ".TDM"
komplett = MyFolders(0) & messdatei
LastSaved(2) = komplett
Call DATADELALL(1)

'-- Dateien alle in eine aufrufen, angefangen mit 1
Call Data.Root.Clear()
Call DataFileLoad(LastSaved(0),"","")
Data.Root.ChannelGroups(1).Name = "Messung 1"
Call DataFileLoad(LastSaved(1),"","")
Data.Root.ChannelGroups(2).Name = "Messung 2"
Call DataFileLoad(LastSaved(2),"","")
Data.Root.ChannelGroups(3).Name = "Messung 3"

oder einfacher:

'-- Dateien alle in eine aufrufen, angefangen mit 1
Call Data.Root.Clear()
dim i
for i=0 to 2
Call DataFileLoad(LastSaved(i),"","")
Data.Root.ChannelGroups(i+1).Name = "Messung " & (i+1)
next

Oder Du überlegst Dir halt sonst eine Routine, wie Du auf die Namen kommst. Mit FileEx kannst Du auch vorm Öffnen gucken, ob es eine Datei schon gibt.

[AHaub]

DIAdem hat für diesen Fall eine Funktion die sich DataFinder nennt. Damit können die Dateien auf der Festplatte indiziert und anschliessend einfach zusammengesucht werden. Voraussetzung ist, dass man die Verzeichnisse im NAVIGATOR als Suchbereiche definiert hat. Ist das passiert, gehts ganz einfach. Weiter unten findet sich ein Beispiel. Der grosse Vorteil der Vorgehensweise ist, dass man schnell und einfach Bedingungen ergänzen kann. Beispielsweise kann man mit einer Zeile Script dafür sorgen, dass nur die Dateien gefunden werden bei der die Eigenschaft "Prüfstandsfahrer" auf "Hans Meier" steht




'--- Search with GUI
Dim oMyQueryForm,oMyDataFinder,oMyConditions,oResult
Set oMyDataFinder= Navigator.Display.CurrDataFinder
Set oMyQueryForm = Navigator.Display.CurrDataFinder.QueryForm
Call oMyQueryForm.Clear
oMyQueryForm.Mode = eAdvancedQueryForm
oMyQueryForm.ReturnType = eSearchFile
Set oMyConditions = oMyQueryForm.Conditions
'--- Fill the query
Call oMyConditions.Add(eSearchFile,"folder","=","D:\Programme\National Instruments\DIAdem 2010\Examples\Data")
Call oMyConditions.Add(eSearchFile,"dataPluginName","=","TDM")
Call oMyConditions.Add(eSearchFile,"fileName","=","Brake_*")
oMyConditions.Logic = "C1 AND C2 AND C3"
'--- Search with GUI
Call oMyQueryForm.Search()

data.Root.Clear
For Each oResult In oMyDataFinder.ResultsList.Elements
MsgBox(oResult.Name)
Call Navigator.LoadData(oResult,"Load")
next

[Bruno]

Hallo AHaub,
ich freue mich, noch einen "alten Hasen" im Forum begrüßen zu dürfen...
Gruß
Bruno