Lesen Und Schreiben Von Dateien; Lesen Einer Datei Vom Gerät - Rohde & Schwarz FSP3 Bedienhandbuch

Komplexere Programmbeispiele

Lesen und Schreiben von Dateien

Lesen einer Datei vom Gerät
Im folgenden Beispiel wird die unter D:\USER\DATA abgespeicherte Datei "TEST1.SET" aus dem Gerät
ausgelesen und auf dem Steuerrechner abgespeichert.
REM ************************************************************************
Public Sub ReadFile()
'--------- Variablen anlegen -----------------------------------------------
Dim digits As Byte
Dim fileBytes As Long
result$ = Space$(100)
'--------- Grundeinstellung Statusregister ---------------------------------
Call SetupStatusReg
'--------- Auslesen der Datei -----------------------------------------
Call ibwrt(analyzer%, "MMEM:DATA? 'D:\USER\DATA\TEST1.SET'")
Call ilrd(analyzer%, result$, 2)
digits = Val(Mid$(result$, 2, 1))
Call ilrd(analyzer%, result$, digits)
fileBytes = Val(Left$(result$, digits))
FileBuffer$ = Space$(fileBytes)
Call ilrd(analyzer%, FileBuffer, fileBytes)
Call ilrd(analyzer%, result$, 1)
'--------- Datei auf Steuerrechner ablegen ---------------------------------
Open "TEST1.SET" For Output As #1
Print #1, FileBuffer;
Close #1
END SUB
REM ************************************************************************
1093.4820.11
'Anzahl Zeichen in Längenangabe
'Länge d. Datei mit Tracedaten
'in Bytes
'Puffer für einfache Ergebnisse
'Statusregister konfigurieren
'Datei auswählen
'Zeichenzahl Längenangabe lesen
'und abspeichern
'Längenangabe lesen
'und abspeichern
'Dateipuffer vorbelegen
'Datei in Puffer lesen
'Schlusszeichen <NL> einlesen
' ; um einen Linefeed am
' Dateiende zu vermeiden
7.46
FSP
D-1