Cercare un valore all'interno di un file aperto come un flusso di dati di tipo Stringa

Il caso è quello in cui, avendo aperto un file come tipo di dati "Stringa", si intende cercare un valore costituito da uno o anche più byte.

Mostriamo un possibile esempio in cui si cerca all'interno della stringa di dati del file un valore formato - in questo caso - da 4 byte (Tipo Integer ).

Private Const VALORE As Integer = valore-numerico-da-cercare (che occupi 4 byte)


Public Sub Main()
 
 Dim s As String
 Dim i, n As Integer

 n = -1

 s = File.Load("/percorso/del/file/da/aprire")

 For i = 1 To Len(s)
   If Int@(s[i]) == VALORE Then 
     n = i
     Break 
   Endif
 Next 

 If n > -1 Then 
   Print "Il valore è stato trovato al byte di indice: "; i
 Else
   Print "Valore non presente nel file."
 Endif
  
End