Visualizza wikitesto di Cercare un valore all'interno di un file aperto come un flusso di dati di tipo File

Il caso è quello in cui, avendo aperto un file in "Lettura" come tipo di dati "File" con l'istruzione "Open", si intende cercare un valore costituito da uno o anche più byte.

Mostriamo un possibile esempio in cui si cerca all'interno del flusso di dati di tipo "File" un valore formato da 4 byte (Tipo ''Integer'' ).
 Private Const VALORE As Integer = <FONT Color=gray>''valore-numerico-da-cercare'' (che occupi 4 byte)</font>
 
 
 '''Public''' Sub Main()
 
  Dim fl As File
  Dim i As Integer
  
  fl = Open "<FONT Color=gray>''/percorso/del/file/da/aprire''</font>" For Read 
 
  Repeat 
    Read #fl, i
    If i == VALORE Then 
      Print "Il valore è stato trovato al byte di indice: ", Seek(fl) - SizeOf(gb.Integer)
      fl.Close
      Quit 
    Endif
    Seek #fl, Seek(fl) - (SizeOf(gb.Integer) - 1)
  Until Seek(fl) == Lof(fl) - (SizeOf(gb.Integer) - 1)
 
  Print "Valore non presente nel file."
 
  fl.Close
 
 '''End'''