Datenstring aus Messgerät auslesen über Script Dac Treiber

Question

Hallo,
ich möchte aus einem Messgeät Messwerte aus einem Dac heraus auslesen. Dazu nutze ich den Scrip-Dac Treiber und lese 4 Kanäle über GPIB aus (Diadem 10.0).
Ich nutze die Funktion SFD_Init( DeviceParam1V, DeviceParam2V, ErrorP) zum initialisieren und zum anfordern der Messwerte (man schreibt welche werte man auslesen möchte und mit "cont on" werden die Werte dann zyklisch nach jedem Messzyklus ausgegeben).
Mit der Funktion SFD_GetScan wird dann mittels read-Befehl der Wert aus der Schnittstelle ausgelesen.
Es kommt folgender String zurück: 2.31174E+2;5.00093E+1;2.59054E-1;4.36872E-1     => Es sind vier Werte je durch ; getrennt
Nun wird mit der Funktion SFD_ReadChannel ( ChannelNumberP, ParamP, DataP, ErrorP ) der Wert wie folgt aufgesplittet und je nach Wert von ParamP der richtige Wert zurückgegeben.
        MVariablenDF = Split(sDaten, ";", -1, 1)    'String aufsplitten, jeweils am ";"
        uac = oUDIM.Parse(MVariablenDF(0), "%ad")
        freq = oUDIM.Parse(MVariablenDF(1), "%ad")
        p = oUDIM.Parse(MVariablenDF(2), "%ad")
        ep = oUDIM.Parse(MVariablenDF(3), "%ad")
 Select case ParamP
   Case "UAC"     DataP = uac
   Case "FREQ"  DataP = freq
   Case "P"          DataP = p
   Case "EP"       DataP = ep
 end Select
Nun mein 1.Problem:
Hin und wieder kommt kurz nach dem Start der Messung folgende Fehlermeldung zu obiger Zeile "MVariablenDF = Split(sDaten, ";", -1, 1)"
Fehler: Index ausserhalb des gültigen Bereichs: '[number: 1]'
2. Problem:
als erstes wird in dem Script eine Windows Umgebungsvariable abgefragt:
T1 = GetEnv("Diadem") 
Wenn diese Zeile im Script ist, bekomme ich zu Beginn die Fehlermeldung Typen unverträglich: 'GetEnv', das Script läuft aber trotzdem hin und wieder fehlerfrei.
Nehme ich diese Zeile raus, bekomme ich sofort zu dem 1. Problem die Fehlermeldung: Typen unverträglich und es werden keine Werte ausgelesen.

Answer 1

Hallo,
vielen Dank für die Antwort
zu1. ich hatte zwar die Variable mit "0;0;0;0" initialisiert, allerdings wird der Wert scheinbar auf "" gesetzt wenn keine Werte an der Schnittstelle anliegen. Meine Do Loop until <> "0;0;0;0" Abfrage war damit natürlich hinfällig.
Der vorgeschlagene Code oUDI.Parse(vData,"%2R<UAC»%1S%2R<FREQ»%1S%2R<P»%1S%2R<EP»") funktioniert, allerdings müssen die Zeichen
> statt » (steht auch falsch in der Diadem Hilfe!) eingefügt werden
Außerdem muss die Formatvorgabe %ad statt %2R  sein (%2R finde ich auch nicht in der Diademhilfe)  => "%ad<UAC>%1S%ad<FREQ>%1S%ad<P>%1S%ad<EP>"
Mit der Abfrage, dass der String sDaten <> "" ist dürfte wahrscheinlich auch der Split-Befehl funktionieren.
zu2.
Die Windows Umgebungsvariable ist in der Systemsteuerung gesetzt. Damit kann ich Scripte auf verschiedenen Rechnern, bei denen Diadem in verschiedenen Verzecihnissen installiert ist, laufen lassen, unabhängig davon wo mein gerade gestartetes Script steht.
Gruß
Erik