Daten aus tdm-Dateien extrahieren

[HermannGrimm]

Ich habe ein kleines Script geschrieben, das die Daten aus dem *.tdm File ausliest. Ich habe aber noch ein Problem mit den deutschen Umlauten (siehe Screenshoot). Wenn ich die tdm Datei in einem Editor öffne, sind dort die Begriffe richtig geschrieben.

[Twigeater]

Hallo Herrman!

Grund für das Verhalten ist das die TDM-Datei in Unicode gespeichert ist. Beim Lesen in einen ANSI String kann es dann zu den Problemen kommen.

Das direkte, zeilenweise Lesen einer XML-Datei, was eine TDM im Grunde ist, kann darüberhinaus zu Problemen führen, da die Datei auch mehrere Tags in einer Zeile haben darf (siehe TDR Dateien). Dazu sollte man einen geeigneten XML-Parser verwenden. Wenn man das noch nie gemacht hat ist das ein wenig Neuland und nicht ganz so intuitiv wie das zilenweise lesen einer ASCII-Datei.

Um nun in Richtung einer Lösung zu kommen die Frage: Mit welcher Version von DIAdem arbeitest du?

Matthias

[HermannGrimm]

Ich arbeite mit Diadem 10.0, Windows2000 SP4

[Twigeater]

Hallo Herrmann!

Als Übergangslösung bis zu DIAdem 10.1 bleibt nur die Datei über einen XML Parser zu lesen. Der kümmert sich dann auch um die Zeichenkodierung und erspart auch ein wenig Parserarbeit. Das folgende Script ist aber wirklich nur eine Notlösung da es z.B. nicht überprüft ob die Registercomments der Wurzel zugeordnet sind:

Option Explicit
 
Dim oXML
Dim oRegisterComments
Dim oRegisterComment
Dim oNodeName
Dim oNodeDescription
 
' TDM als XML laden
Set oXML = CreateObject("MSXML.DOMDocument")
 
Call oXML.load( DateiName )
 
' registercomments über XPath ermitteln
Set oRegisterComments = oXML.selectNodes("//usi:tdm/usi:data/registercomment")
 
For Each oRegisterComment In oRegisterComments
 ' alle registercomment durchgehen und Namen/Description ermitteln und anzeigen
  Set oNodeName        = oRegisterComment.selectSingleNode("name")
  Set oNodeDescription = oRegisterComment.selectSingleNode("description")
  
  If (Not oNodeName Is Nothing) And (Not oNodeDescription Is Nothing) Then
   MsgBox oNodeName.Text & " : " & oNodeDescription.Text
  End If
Next

Matthias

[Twigeater]

Hallo Herrmann!

Ich habe vergessen zu erwähnen das die Lösung mehr auf gute Lesbarkeit als auf Performance getrimmt ist. Wenn man viele Dateien zu bearbeiten hat kann ein etwas anderer Ansatz noch Geschwindigkeit bringen.

Matthias

[HermannGrimm]

Kann ich das so verstehen, dass es unter Diadem10.1 eine bessere Möglichkeit gibt. Wir bekommen bald über unseren Wartungsverrag die neue Version.

[Twigeater]

Hallo Herrman!

Die Antwort von Brad in 'http://forums.ni.com/ni/board/message?board.id=60&message.id=5334' habe ich so verstanden.

Es soll da den 'DataFileHeaderAccess()' Befehl geben. Die 10.1er Hilfe schreibt dazu:

DataFileHeaderAccess(DataFileName,FileImportFilter,ReadOnly)

Erzeugt ein DataFileHeader-Objekt zum Zugriff auf eine TDM-Headerdatei.

Syntax

DataFileHeaderAccess(DataFileName,FileImportFilter,ReadOnly)

Parameter

DataFileName	String. Bestimmt den Namen einer Datei mit Erweiterung und Pfad.
FileImportFilter	String. Bestimmt das Ladeverfahren.
ReadOnly	Bool. Bestimmt, ob Sie die Datei nur zum Lesen (TRUE) oder auch zum Schreiben (FALSE) öffnen.

Beispiel

Das folgende Beispiel erzeugt ein DataFileHeader-Objekt und gibt den Namen des zweiten Kanals der ersten Gruppe aus:

Dim oMyDataFileHeader, oMyChnName
Set oMyDataFileHeader = DataFileHeaderAccess(DataDrvLibr & "Example.tdm" ,"TDM", False)
oMyChnName = oMyDataFileHeader.ChnNameGet(1,2)
MsgBox oMyChnName

Matthias

[Twigeater]

Hallo Herrman!

Es sieht so aus das die Datensdatzkommentare in TDM Dateien in DIAdem 10.1 irgendwie hinten runtergefallen sind. Weder das oben beschriebene Verfahren zum skriptbasierten Lesen noch in der DIAdem Oberfläche kann ich die wiederfinden. Habe gerade wenig Zeit, werde das aber sobald wie möglich mal mit NI Hilfe versuchen wiederzufinden.

Matthias

[HermannGrimm]

Hallo Matthias,
das wäre aber sehr schlecht. Alle unsere Messprogramme nutzen die Datensatzkommentare, um wichtige Informationen zu den Messungen zu speichern. Wenn diese Kommentare nicht mehr vorhanden sind, können wir die Version 10.1 vorläufig nicht brauchen.

[Twigeater]

Hallo Herrman!

Ich versuche mal meine Erkenntnisse in Worte zu fassen (alles bezogen auf DIAdem 10.1):

• beim Laden von TDM Dateien werden die Datensatzkommentare immer noch in die 'DataSetcomment'/'DataSetCommentN' Variablen übernommen
• beim Laden von DAT Dateien werden die Datensatzkommentare zusätzlich an die zugehörige Kanalgruppe als Zusatzeigenschaften gehängt
• beim Laden von TDM Dateien passiert dies nicht
• die neue Funktion 'DataFileHeaderAccess' gibt NICHT die Möglichkeit auf die Datensatzkommentare zuzugreifen

Ich hoffe alle Klarheiten beseitigt zu haben. Ich erkenne momentan keinen signifikanten Unterschied zwischen 10.0 und 10.1 der einen Einsatz von 10.1 verbieten würde. Die neuen Fähigkeiten in 10.1 berücksichtigen aber m.E. die Datensatzkommentare in TDM Dateien nur rudimentär.

Matthias