Daten(.Dat) aus Pfad laden

[TonSch]

Hallo,

ich sollte aus einem Dateipfad mehrere .Dat laden die zwar einen rythmus besitzen aber zwischendrin immer mal wieder ein paar dateien fehlen.

Gibt es einen Befehl mit dem ich z.B. aus einem Pfad alle .Dat in das Datenportal laden kann.
Oder wie kann ich meine Schleife so verändern, dass ich fall eine Datei nicht vorhanden ist den die Variable (i) um eins hochzähle?

dim i
For i = 12 to 99

Call DataFileLoad("c:\Dateipfad\DOxx00"&str(i)&".Dat","Dat","")

next


Vielen Dank
es grüßt Tosch

[Bruno]

Hallo Tonsch,
entweder mit dem DataFinder arbeiten oder einfach mit FileExist überprüfen, ob die Datei vorhanden ist...

Code:

dim i
For i = 12 to 99

  If FileExist("c:\Dateipfad\DOxx00"&str(i)&".Dat") Then
    Call DataFileLoad("c:\Dateipfad\DOxx00"&str(i)&".Dat","Dat","")
  End If
next

Gruß
Bruno

[TonSch]

Weiteres Problem ...


wenn die For-Schleife nicht mehr erfüllt wird soll sie beendet werden. Dies soll dann eintreten, wenn die Variable die Anzahl der in der IF-Schleife (Dateien laden) geladene Dateien erreicht.


Ich bitte um Hilfe ...




Call ScriptCmdReset()
Call DataDelAll(1)

DIM myGroup

dim i




For i = 10 to 26


If FileExist("M:\SE10\DOxx00"&str(i)&".Dat") Then
Call DataFileLoad("M:\SE10\DOxx00"&str(i)&".Dat","Dat","")


End if

next

For i = 100 to 106


If FileExist("M:\SE10\DOxx0"&str(i)&".Dat") Then
Call DataFileLoad("M:\SE10\DOxx0"&str(i)&".Dat","Dat","")


End if

next



myGroup = GroupCreate("Komplett") 'neue Gruppe

Call GroupDefaultSet(GroupIndexGet(myGroup)) 'wird default gesetzt


dim j
dim k

For j = 1 to 99 '115

k = j+1

Call ChnCopyExt("["&str(j)&"]/T_OF_GStel_obmi",GroupIndexGet(myGroup),1) 'kopiert den ersten Kanal in die neue Gruppe
Call DataBlAppend("["&str(k)&"]/T_OF_GStel_obmi",1, Cl("["&str(k)&"]/T_OF_GStel_obmi"),"["&GroupIndexGet(myGroup)&"]/T_OF_GStel_obmi") 'hängt den 2. Kanal an den Kanal der neuen Gruppe an


Call ChnCopyExt("["&str(j)&"]/T_OF_GStel_obre",GroupIndexGet(myGroup),1) 'kopiert den ersten Kanal in die neue Gruppe
Call DataBlAppend("["&str(k)&"]/T_OF_GStel_obre",1, Cl("["&str(k)&"]/T_OF_GStel_obre"),"["&GroupIndexGet(myGroup)&"]/T_OF_GStel_obre") 'hängt den 2. Kanal an den Kanal der neuen Gruppe an


next





Dim index
index = 5

'---Überschreiben des Kanalwerts mit NOVALUE



Chd(index ,"Komplett/T_OF_GStel_obmi") = Novalue

Chd(index ,"Komplett/T_OF_GStel_obre") = Novalue



'--- Entfernen aller Novalue Werte aus dem X-Kanal bzw. die dazugehörigen y-Werte

Call ChnNovHandle("Komplett/T_OF_GStel_obmi", "'Komplett/T_OF_GStel_obmi'-'Komplett/T_OF_GStel_obre'", "Delete","x",True,False)

[Bruno]

Hallo TonSch,
wenn Du Deinen Code als formatierten Code einstellst (# Button oben rechts oder "Eckige Klammer"Code"Eckige Klammer" und "Eckige Klammer"/Code"Eckige Klammer") wird Dein Beitrag übersichtlicher...
Dein Problem verstehe ich noch nicht ganz. Die For Schleife hört doch auf, wenn sie den Zielwert erreicht?
Du kannst eine For Schleife aber auch jederzeit mit "Exit For" verlassen...
Gruß
Bruno

[TonSch]

Code:

Call ScriptCmdReset()
Call DataDelAll(1)

DIM myGroup

dim i




For i = 10 to 26


If FileExist("M:\SE10\DOxx00"&str(i)&".Dat") Then
Call DataFileLoad("M:\SE10\DOxx00"&str(i)&".Dat","Dat","")


End if

next

For i = 100 to 106


If FileExist("M:\SE10\DOxx0"&str(i)&".Dat") Then
Call DataFileLoad("M:\SE10\DOxx0"&str(i)&".Dat","Dat","")


End if

next



myGroup = GroupCreate("Komplett") 'neue Gruppe

Call GroupDefaultSet(GroupIndexGet(myGroup)) 'wird default gesetzt


dim j
dim k

For j = 1 to 99

k = j+1

Call ChnCopyExt("["&str(j)&"]/T_OF_GStel_obmi",GroupIndexGet(myGroup),1) 'kopiert den ersten Kanal in die neue Gruppe
Call DataBlAppend("["&str(k)&"]/T_OF_GStel_obmi",1, Cl("["&str(k)&"]/T_OF_GStel_obmi"),"["&GroupIndexGet(myGroup)&"]/T_OF_GStel_obmi") 'hängt den 2. Kanal an den Kanal der neuen Gruppe an


Call ChnCopyExt("["&str(j)&"]/T_OF_GStel_obre",GroupIndexGet(myGroup),1) 'kopiert den ersten Kanal in die neue Gruppe
Call DataBlAppend("["&str(k)&"]/T_OF_GStel_obre",1, Cl("["&str(k)&"]/T_OF_GStel_obre"),"["&GroupIndexGet(myGroup)&"]/T_OF_GStel_obre") 'hängt den 2. Kanal an den Kanal der neuen Gruppe an


next





Dim index
index = 5

'---Überschreiben des Kanalwerts mit NOVALUE



Chd(index ,"Komplett/T_OF_GStel_obmi") = Novalue

Chd(index ,"Komplett/T_OF_GStel_obre") = Novalue



'--- Entfernen aller Novalue Werte aus dem X-Kanal bzw. die dazugehörigen y-Werte

Call ChnNovHandle("Komplett/T_OF_GStel_obmi", "'Komplett/T_OF_GStel_obmi'-'Komplett/T_OF_GStel_obre'", "Delete","x",True,False)

Also in meinem Script werden die Dateien 10-26 und 100-106 geladen wobei in diesen folgen die fehlenden dateien einfach überpsrungen werden und die Variable einfach weiter zählt.

Diese nun im Datenportal geladenen Dateien, werden mit einem Index hochgezählt und diesen Index möchte ich nutzen um meiner For-Schleife (j und k) zu sagen wie viele dateien diese Schleifen anneinander hängen.

Zusätzlich möchte ich die daten so aneinander hängen das keine NoValue Werte mehr existieren.

Also mein Programm sollte letztendlich folgende Funktionen haben:

- Dateien im Datenportal öffnen
- Die beinhaltenden NoValues löschen
- und die jeweiligen Messkanäle aneinander hängen

Grüße Tonsch

[kwakz]

moin

als hilfestellung: überleg doch mal, wie du vielleicht während des ladens deiner dateien zählen könntest, wie viele dateien du geladen hast.

mfg daniel