R&S 1129.7246.03, Operating Manual

Page: 819 / 855

R&S ESU Remote Control – Programming Examples
More Complex Programming Examples
7.30 Operating Manual 1302.6163.12 - 03
7.3.10 Reading and Writing Files
7.3.10.1 Reading a File from the Instrument
In the following example, file TEST1.SET stored under D:\USER\DATA is read from
the instrument and stored in the controller.
REM ************************************************************************
Public Sub ReadFile()
'--------- Generate variables ------------------------------
Dim digits As Byte
'Number of digits of length information
Dim fileBytes As Long
'Length of file with trace data in bytes
result$ = Space$(100) 'Buffer for simple results
'--------- Default setting of status register ---------------
Call SetupStatusReg
'Configure status register
'--------- Read out file ------------------------------------
status = viWrite(analyzer, "MMEM:DATA? 'D:\USER\DATA\TEST1.SET'", 35, retCnt)
'Select file
status = viRead(analyzer, result$, 2, retCnt)
'Read and store number of
digits = Val(Mid$(result$, 2, 1))
'digits of length information
status = viRead(analyzer, result$, digits, retCnt)
'Read and store length
fileBytes = Val(Left$(result$, digits))
'information
FileBuffer$ = Space$(fileBytes)
'Buffer for file
status = viRead(analyzer, FileBuffer, fileBytes, retCnt)
'Read file into buffer
status = viRead(analyzer, result$, 1, retCnt)
'Read terminator <NL>
'--------- Store file to controller -------------------------
Open "TEST1.SET" For Output As #1
Print #1, FileBuffer;
' ; to avoid linefeed at end of file
Close #1
END SUB
REM ************************************************************************