2Anlegen Einer Datei Auf Dem Gerät - Rohde & Schwarz R&S FSQ Bedienhandbuch

R&S FSQ
7.3.10.2 Anlegen einer Datei auf dem Gerät
Im folgenden Beispiel wird die auf dem Steuerrechner vorhandene Datei
"TEST1.FSP" auf dem Gerät unter D:\USER\DATA\DUPLICAT.FSP abgelegt.
REM ******************************************************************
Public Sub WriteFile()
'--------- Variablen anlegen ---------------------------------
FileBuffer$ = Space$(100000)
'Puffer für eingelesene Datei
Dim digits As Long
'Anzahl Zeichen Längenangabe
Dim fileBytes As Long
'Länge der Datei in Bytes
fileSize$ = Space$(100)
'Dateilänge als String
result$ = Space$(100)
'Puffer für einfache Ergebnisse
'--------- Grundeinstellung Statusregister -------------------
Call SetupStatusReg
'Statusregister konfigurieren
'--------- Vorbereiten der definite Length Blockdaten --------
fileBytes = FileLen("test1.fsp")
'Dateilänge bestimmen
fileSize$ = Str$(fileBytes)
digits = Len(fileSize$) – 1
'Stellenanzahl d. Längenangabe
fileSize$ = Right$(fileSize$, digits)
'bestimmen
FileBuffer$ = "#" + Right$(Str$(digits), 1) + fileSize$
'Längenangabe in Dateipuffer ablegen
'--------- Datei vom Steuerrechner lesen ---------------------
Open "TEST1.FSP" For Binary As #1
FileBuffer$ = FileBuffer$ + Left$(Input(fileBytes, #1), fileBytes)
Close #1
'--------- Schreiben der Datei -------------------------------
status = viWrite(analyzer, "SYST:COMM:GPIB:RTER EOI", 23, retCnt)
'Receive Terminator am Gerät einstellen
status = viWrite(analyzer, "MMEM:DATA 'D:\USER\DATA\DUPLICAT.FSP'," +
FileBuffer$, 36 + Len(FileBuffer$), retCnt)
'Datei auswählen
END SUB
REM ******************************************************************
Operating Manual 1313.9681.11 - 02
Fernsteuerung – Programmbeispiele
Komplexere Programmbeispiele
7.31