Example - Seek Statement

If you don't define a specific file path, the default location that PC-DMIS searches for the file to open is "C:\Users\Public\Documents\Hexagon\PC-DMIS\<version>".

This examples assumes that you have a file named PCDMIS_TestFile.txt in the default location with some content in that file:

Sub Main()
   Open "PCDMIS_TestFile.txt" For Input As #1 ' Open file for reading.
   For i = 1 To 24 Step 3 ' Loop until end of file.
      Seek #1, i ' Seek to byte position
      MyChar = Input(1, #1) ' Read next character of data.
      Print MyChar 'Print character of data
   Next i
   Close #1 ' Close file.
End Sub