Rohde & Schwarz R&S FSP Series, Руководство по эксплуатации

Страница: 762 / 796

R&S FSP Remote Control – Programming Examples
More Complex Programming Examples
7.28 Operating Manual 1164.4556.12 - 06
7.3.11
'
Reading and Writing Files
7.3.11.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 ************************************************************************