Unsere Partner:

DIAdem-Forum.de Partner

DIAdem-Forum.de Partner

DIAdem-Forum.de Partner

DIAdem-Forum.de Partner





Stellenangebote:
Testingenieur (m/w) bei Healthcare CV
Planung und Durchführung von Komponenten- und Integrationstests
Siemens AG
Erlangen
Entwicklungsingenieur Messtechnik und Fahrzeugelektronik (m/w)
Planung und Durchführung von Projekten im Bereich NFZ-Messtechnik
MBtech Group GmbH Co. KGaA
Magstadt bei Sindelfingen
Getriebemechatroniker (m/w)
Sensorik - konstruktive Integration, Erstellung von Toleranzrechnungen
MBtech Group GmbH Co. KGaA
Fellbach bei Stuttgart
Entwickler für Mechatronikkomponenten in Automatgetrieben (m/w)
Konzeption elektrohydraulischer Steuereinheiten
MBtech Group GmbH Co. KGaA
Fellbach bei Stuttgart
Entwicklungsingenieur Getriebemechatronik (m/w)
Bearbeitung von Getriebe und Hybrid Aufgabenstellungen
MBtech Group GmbH Co. KGaA
Fellbach bei Stuttgart
Versuchsingenieur (m/w) Systemprüfstand elektrische Parkbremse
Erstellung, Durchführung und Auswertung von Versuchsprogrammen an Systemprüfständen
Continental AG
Frankfurt
Systemingenieur Fußgängerschutz / Pedestrian Protection System Engineer (m/w)
Bewertung von Styling-, Package- und Bauteilvarianten
EDAG GmbH Co. KGaA
Ingolstadt, München, Sindelfingen, Fulda
Systemingenieur Rückhaltesysteme / Restraint System Engineer (m/w)
Bewertung von Styling-, Package- und Bauteilvarianten, Versuchs- und Berechnungsplanung
EDAG GmbH Co. KGaA
Osnabrück, Ingolstadt, München, Sindelfingen, Fulda
Versuchsingenieur Betriebsfestigkeit (m/w)
Auswertung von Messdaten im Bereich Betriebsfestigkeit
MBtech Group GmbH Co. KGaA
Wörth, Untertürkheim
Applikationsingenieur Abgasnachbehandlung /-OBD Otto (m/w)
Applikation, Test und Validierung von Softwarefunktionen der Abgasnachbehandlung / - OBD
MBtech Group GmbH Co. KGaA
Fellbach
Applikationsingenieur Abgasnachbehandlung / SCR Dosiermodul (m/w)
Spezifikation, Applikation, Test und Validierung von Softwarefunktionen der Abgasnachbehandlung
MBtech Group GmbH Co. KGaA
Fellbach
Entwicklungsingenieur Fahrzeugapplikation Verbrennungsmotor (m/w)
Applikation, Test und Validierung von Motorsteuergerät-Funktionen auf den Gebieten Fahrbarkeit und Regelungssysteme
MBtech Group GmbH Co. KGaA
Fellbach

Stand: 19:00:35 19.05.2012


DIAdem-Forum - deutschsprachiges DIAdem Forum / DIAdem / Abläufe automatisieren v / Einige Fragen zum Datei(en) einlesen

.
 
Antwort schreiben 
 
Themabewertung:
  • 0 Bewertungen - 0 im Durchschnitt
  • 1
  • 2
  • 3
  • 4
  • 5

Einige Fragen zum Datei(en) einlesen
01.09.2011, 15:26 (Dieser Beitrag wurde zuletzt bearbeitet: 01.09.2011 15:27 von KUGA.)
Beitrag #1
KUGA Offline
Junior Member
**
DIAdem-Version: 10
DIAdem-Sprachversion: DE
DIAdem Erfahrung seit: 2011
Beiträge: 13
Registriert seit: Aug 2011
Einige Fragen zum Datei(en) einlesen

Code:
'-------------------------------------------------------------------------------
Sub InitMyFolders
  ReDim MyFolders(0)
  'MyFolders(0) = PathNameGet("Pfad auswählen!", "S:\Messwerte\")
  MyFolders(0) = "S:\Messwerte\"
End Sub
'-------------------------------------------------------------------------------

Dim MyFolders()
Dim temp, i, j,hourNumber,l,stemp1,stemp2,dayNumber
Call InitMyFolders
dayNumber=1

'Datei öffnen
Call DataDelAll(1)                      '... HeaderDel
'Call DataFileLoad(MyFolders(0)&"\"&"2011-08-27.txt","","") '... DataFilename,FileImportFilter,ImportAction
Call ASCIIConfigLoad(MyFolders(0) & "Zeit+Stundenmarker+23 Messwerte.stp")
Call ASCIILoad(MyFolders(0)&"2011-08-26.txt",0)

'Channelnamen und Einheiten setzen
Call GroupPropValSet(1, "name", "Tag1")
Call ChnPropValSet("[1]/Comb0001","name","Zeit")
Call ChnPropValSet("[1]/Kanal 3","name","Stundenmerker")
Call ChnPropValSet("[1]/Kanal 4","name","PM1")
Call ChnPropValSet("[1]/Kanal 5","name","PM2")
Call ChnPropValSet("[1]/Kanal 6","name","PM3")
Call ChnPropValSet("[1]/Kanal 7","name","PM4")
Call ChnPropValSet("[1]/Kanal 8","name","PM5")
Call ChnPropValSet("[1]/Kanal 9","name","PM6")
Call ChnPropValSet("[1]/Kanal 10","name","PM7")
Call ChnPropValSet("[1]/Kanal 11","name","PM8")
Call ChnPropValSet("[1]/Kanal 12","name","PM9")
Call ChnPropValSet("[1]/Kanal 13","name","PM10")
Call ChnPropValSet("[1]/Kanal 14","name","Referenz-PM")
Call ChnPropValSet("[1]/Kanal 15","name","Temp")
Call ChnPropValSet("[1]/Kanal 16","name","Volt1")
Call ChnPropValSet("[1]/Kanal 17","name","Volt2")
Call ChnPropValSet("[1]/Kanal 18","name","Volt3")
Call ChnPropValSet("[1]/Kanal 19","name","Volt4")
Call ChnPropValSet("[1]/Kanal 20","name","Volt5")
Call ChnPropValSet("[1]/Kanal 21","name","Volt6")
Call ChnPropValSet("[1]/Kanal 22","name","Volt7")
Call ChnPropValSet("[1]/Kanal 23","name","Volt8")
Call ChnPropValSet("[1]/Kanal 24","name","Volt9")
Call ChnPropValSet("[1]/Kanal 25","name","Volt10")
Call ChnPropValSet("[1]/Kanal 26","name","Volt11")
Call ChnPropValSet("[1]/PM1", "unit_string", "W/m²")
Call ChnPropValSet("[1]/PM2", "unit_string", "W/m²")
Call ChnPropValSet("[1]/PM3", "unit_string", "W/m²")
Call ChnPropValSet("[1]/PM4", "unit_string", "W/m²")
Call ChnPropValSet("[1]/PM5", "unit_string", "W/m²")
Call ChnPropValSet("[1]/PM6", "unit_string", "W/m²")
Call ChnPropValSet("[1]/PM7", "unit_string", "W/m²")
Call ChnPropValSet("[1]/PM8", "unit_string", "W/m²")
Call ChnPropValSet("[1]/PM9", "unit_string", "W/m²")
Call ChnPropValSet("[1]/PM10", "unit_string", "W/m²")
Call ChnPropValSet("[1]/Referenz-PM", "unit_string", "W/m²")
Call ChnPropValSet("[1]/Temp", "unit_string", "°C")
Call ChnPropValSet("[1]/Volt1", "unit_string", "V")
Call ChnPropValSet("[1]/Volt2", "unit_string", "V")
Call ChnPropValSet("[1]/Volt3", "unit_string", "V")
Call ChnPropValSet("[1]/Volt4", "unit_string", "V")
Call ChnPropValSet("[1]/Volt5", "unit_string", "V")
Call ChnPropValSet("[1]/Volt6", "unit_string", "V")
Call ChnPropValSet("[1]/Volt7", "unit_string", "V")
Call ChnPropValSet("[1]/Volt8", "unit_string", "V")
Call ChnPropValSet("[1]/Volt9", "unit_string", "V")
Call ChnPropValSet("[1]/Volt10", "unit_string", "V")
Call ChnPropValSet("[1]/Volt11", "unit_string", "V")
'Mittel und maxwerte der PM-Channel ausrechnen
StatSel(1)       ="No"
StatSel(2)       ="No"
StatSel(3)       ="No"
StatSel(4)       ="No"
StatSel(5)       ="Yes"
StatSel(6)       ="Yes"
StatSel(7)       ="No"
StatSel(8)       ="No"
StatSel(9)       ="No"
StatSel(10)      ="No"
StatSel(11)      ="No"
StatSel(12)      ="No"
StatSel(13)      ="No"
StatSel(14)      ="No"
StatSel(15)      ="No"
StatSel(16)      ="No"
StatSel(17)      ="No"
StatSel(18)      ="No"
StatSel(19)      ="No"
StatSel(20)      ="No"
StatSel(21)      ="No"
StatSel(22)      ="No"
StatSel(23)      ="No"
StatClipCopy     =0
StatClipValue    =0
StatFormat       =""
StatResChn       =0
Call StatBlockCalc("Channel","1-","'[1]/PM1' - '[1]/Temp'") '... StatDirec,RowNoStr,ChnNoStr

Wieso gibt die Funktion PathNameGet (aktuell auskommentiert) einen Pfad in C:\Programme\National Instuments\... aus, obwohl ich den gewählten standardpfad lasse?

Wieso kommt manchmal (ich kann nicht sagen wann, auch wenn das Datenportal leer ist) ""[1]/Comb0001" nicht gefunden"?

Wie kann ich das Skript so ändern dass im (gewähten) Ordner nach allen txt dateinen gesucht wird und die eingelesen werden, als neue Gruppe (TagX), die Channels umbenennen/einheiten setzen/Mittel/Maxwerte und dann die anzahl der Tage in dayNumber geschireben wird? Alternativ wäre auch ein Dialogfenster in dem ich alle files auf einmal wählen kann.

Noch fragen unabhängig dazu: Gibt es einen Befehl, der einen Einzelwert eines Channels löscht, und dann die übrigen Werte "eins vorschiebt"?
Wie kann ich selbstgeschriebenene Funktionen und Subs in andere Files auslagern?

Ich danke euch schonmal für eure Hilfe Smile Werde sie sicher nochmal brauchen, wenn ich dann für jeden Tag eine Reportseite erstellen muss
mfg
KUGA

Alle Beiträge dieses Benutzers finden
Diese Nachricht in einer Antwort zitieren



14.09.2011, 06:50 (Dieser Beitrag wurde zuletzt bearbeitet: 14.09.2011 06:50 von grisu.)
Beitrag #2
grisu Offline
Member
***
DIAdem-Version: 2011, 2010, 11.1, 10.2.1 und fast alle davor, und davor noch DIA/DAGO
DIAdem-Sprachversion: DE/EN
DIAdem Erfahrung seit: 1995
Beiträge: 90
Registriert seit: Feb 2009
RE: Einige Fragen zum Datei(en) einlesen

Hi KuGa,

du übergibst mit deiner Zeile

Code:
MyFolders(0) = PathNameGet("Pfad auswählen!", "S:\Messwerte\")
nur den Status des Dialogs in deine Variable, wie der verlassen wurde (OK oder Cancel). Richtig lauten müsste es
Code:
Call PathNameGet("Pfad auswählen!", "S:\Messwerte\")
MyFolders(0) = OutPutPath

Du versuchst ja ein Attribut eines Kanals zu ändern (den Namen). Gibt es aus irgendwelchen Gründen mal einen Kanal nicht oder hast du dein Script eventuell schon einmal auf deine Daten angewendet, kommt natürlich die Fehlermeldung dass er ihn nicht findet. Um solche Sachen sicherer zu gestalten, solltest du vor der Änderung eines Attributs schauen, ob dieses auch verfügbar ist. Bsp:
Code:
If ChnPropExist("[1]/Comb0001","name") Then
  Call ChnPropValSet("[1]/Comb0001","name","Zeit")
End if

Eine Dateiliste kannst du mit DirLstGet erzeugen. In deinem Fall würde es so aussehen...
Code:
Dim vFoundFiles, iCount, daynumber
daynumber=0
Call Data.Root.Clear
vFoundFiles = DirListGet(MyFolders(0), "*.txt", "filename", "FullFilenames")
If IsArray(vFoundFiles) Then
  For iCount = Lbound(vFoundFiles) to Ubound(vFoundFiles)
    Call ASCIIConfigLoad(MyFolders(0) & "Zeit+Stundenmarker+23 Messwerte.stp")
    Call ASCIILoad(MyFolders(0)&vFoundFiles(iCount),0)
    
    daynumber=daynumber+1  
    'Channelnamen und Einheiten setzen
    Call GroupPropValSet(daynumber, "name", "Tag"&str(daynumber))
    Call ChnPropValSet("["&daynumber&"]/Comb0001","name","Zeit")
    Call ChnPropValSet("["&daynumber&"]/Kanal 3","name","Stundenmerker")
    Call ChnPropValSet("["&daynumber&"]/Kanal 4","name","PM1")
    Call ChnPropValSet("["&daynumber&"]/Kanal 5","name","PM2")
    Call ChnPropValSet("["&daynumber&"]/Kanal 6","name","PM3")
    Call ChnPropValSet("["&daynumber&"]/Kanal 7","name","PM4")
    Call ChnPropValSet("["&daynumber&"]/Kanal 8","name","PM5")
    Call ChnPropValSet("["&daynumber&"]/Kanal 9","name","PM6")
    Call ChnPropValSet("["&daynumber&"]/Kanal 10","name","PM7")
    Call ChnPropValSet("["&daynumber&"]/Kanal 11","name","PM8")
    Call ChnPropValSet("["&daynumber&"]/Kanal 12","name","PM9")
    Call ChnPropValSet("["&daynumber&"]/Kanal 13","name","PM10")
    Call ChnPropValSet("["&daynumber&"]/Kanal 14","name","Referenz-PM")
    Call ChnPropValSet("["&daynumber&"]/Kanal 15","name","Temp")
    Call ChnPropValSet("["&daynumber&"]/Kanal 16","name","Volt1")
    Call ChnPropValSet("["&daynumber&"]/Kanal 17","name","Volt2")
    Call ChnPropValSet("["&daynumber&"]/Kanal 18","name","Volt3")
    Call ChnPropValSet("["&daynumber&"]/Kanal 19","name","Volt4")
    Call ChnPropValSet("["&daynumber&"]/Kanal 20","name","Volt5")
    Call ChnPropValSet("["&daynumber&"]/Kanal 21","name","Volt6")
    Call ChnPropValSet("["&daynumber&"]/Kanal 22","name","Volt7")
    Call ChnPropValSet("["&daynumber&"]/Kanal 23","name","Volt8")
    Call ChnPropValSet("["&daynumber&"]/Kanal 24","name","Volt9")
    Call ChnPropValSet("["&daynumber&"]/Kanal 25","name","Volt10")
    Call ChnPropValSet("["&daynumber&"]/Kanal 26","name","Volt11")
    Call ChnPropValSet("["&daynumber&"]/PM1", "unit_string", "W/m²")
    Call ChnPropValSet("["&daynumber&"]/PM2", "unit_string", "W/m²")
    Call ChnPropValSet("["&daynumber&"]/PM3", "unit_string", "W/m²")
    Call ChnPropValSet("["&daynumber&"]/PM4", "unit_string", "W/m²")
    Call ChnPropValSet("["&daynumber&"]/PM5", "unit_string", "W/m²")
    Call ChnPropValSet("["&daynumber&"]/PM6", "unit_string", "W/m²")
    Call ChnPropValSet("["&daynumber&"]/PM7", "unit_string", "W/m²")
    Call ChnPropValSet("["&daynumber&"]/PM8", "unit_string", "W/m²")
    Call ChnPropValSet("["&daynumber&"]/PM9", "unit_string", "W/m²")
    Call ChnPropValSet("["&daynumber&"]/PM10", "unit_string", "W/m²")
    Call ChnPropValSet("["&daynumber&"]/Referenz-PM", "unit_string", "W/m²")
    Call ChnPropValSet("["&daynumber&"]/Temp", "unit_string", "°C")
    Call ChnPropValSet("["&daynumber&"]/Volt1", "unit_string", "V")
    Call ChnPropValSet("["&daynumber&"]/Volt2", "unit_string", "V")
    Call ChnPropValSet("["&daynumber&"]/Volt3", "unit_string", "V")
    Call ChnPropValSet("["&daynumber&"]/Volt4", "unit_string", "V")
    Call ChnPropValSet("["&daynumber&"]/Volt5", "unit_string", "V")
    Call ChnPropValSet("["&daynumber&"]/Volt6", "unit_string", "V")
    Call ChnPropValSet("["&daynumber&"]/Volt7", "unit_string", "V")
    Call ChnPropValSet("["&daynumber&"]/Volt8", "unit_string", "V")
    Call ChnPropValSet("["&daynumber&"]/Volt9", "unit_string", "V")
    Call ChnPropValSet("["&daynumber&"]/Volt10", "unit_string", "V")
    Call ChnPropValSet("["&daynumber&"]/Volt11", "unit_string", "V")
    'Mittel und maxwerte der PM-Channel ausrechnen
    StatSel(1)       ="No"
    StatSel(2)       ="No"
    StatSel(3)       ="No"
    StatSel(4)       ="No"
    StatSel(5)       ="Yes"
    StatSel(6)       ="Yes"
    StatSel(7)       ="No"
    StatSel(8)       ="No"
    StatSel(9)       ="No"
    StatSel(10)      ="No"
    StatSel(11)      ="No"
    StatSel(12)      ="No"
    StatSel(13)      ="No"
    StatSel(14)      ="No"
    StatSel(15)      ="No"
    StatSel(16)      ="No"
    StatSel(17)      ="No"
    StatSel(18)      ="No"
    StatSel(19)      ="No"
    StatSel(20)      ="No"
    StatSel(21)      ="No"
    StatSel(22)      ="No"
    StatSel(23)      ="No"
    StatClipCopy     =0
    StatClipValue    =0
    StatFormat       =""
    StatResChn       =0
    Call StatBlockCalc("Channel","1-","'["&daynumber&"]/PM1' - '["&daynumber&"]/Temp'") '... StatDirec,RowNoStr,ChnNoStr

  Next
End If

Der Befehl zum Löschen eines Kanalwerts lautet :
Code:
Call DataBlDel("[1]/Zeit",1,1,1) '... ChnNoStr,ChnRow,ValNo,ValDelOnly

Du kannst deine Funktionen und Subs einfach in einer anderen VBS-Datei speichern und diese aus deinem Script mit
Code:
Call ScriptInclude("MeineBibliothek.vbs")
Call meineSubausmeinerBib()
aufrufen.

Grüße grisu

Alle Beiträge dieses Benutzers finden
Diese Nachricht in einer Antwort zitieren
Antwort schreiben 


Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  im Dialog Excel Datei laden und mit Werten im Script rechnen Timo 5 487 13.02.2012 14:59
Letzter Beitrag: Timo
  [ERLEDIGT] Sub - Automatisiertes Einlesen iFool 2 466 10.01.2012 08:50
Letzter Beitrag: grisu
  Allgemeine Fragen zu Subscripten STG 1 363 01.12.2011 12:35
Letzter Beitrag: STG
  Überschrift in export txt datei weglassen Chewbie 2 596 01.09.2011 13:05
Letzter Beitrag: Chewbie
  Variablen in binärer Datei speichern MarkGiese 3 387 13.07.2011 07:41
Letzter Beitrag: MBT
  Selektives Öffnen aus MDF Datei cnw 2 574 21.04.2011 09:32
Letzter Beitrag: cnw
  [ERLEDIGT] Suchergebnisliste in einer Schleife einlesen bamboocopter 1 811 28.03.2011 08:36
Letzter Beitrag: Bruno
  verschlüsseln und entschlüsseln einer .VBC Datei nitni 1 886 11.03.2011 10:34
Letzter Beitrag: Bruno
  Eigenschaften aus Datei extrahieren RaElmAr 3 558 27.10.2009 07:36
Letzter Beitrag: M.Schneiders
  Batch-Datei starten Günther 14 2.029 14.09.2009 16:48
Letzter Beitrag: Bruno

Gehe zu: