Differenze tra le versioni di "Cercare un valore all'interno di un file aperto come un flusso di dati di tipo Stringa"

Da Gambas-it.org - Wikipedia.
Riga 8: Riga 8:
 
    
 
    
 
   Dim s As String
 
   Dim s As String
   Dim i, n As Integer
+
   Dim i As Integer
 
  n = -1
 
 
   
 
   
 
   s = File.Load("<FONT Color=gray>''/percorso/del/file/da/aprire''</font>")
 
   s = File.Load("<FONT Color=gray>''/percorso/del/file/da/aprire''</font>")

Versione delle 19:03, 22 nov 2021

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 As Integer

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

 For i = 1 To Len(s)
   If Int@(s[i]) == VALORE Then 
     Print "Il valore è stato trovato al byte di indice: "; i
     Quit
   Endif
 Next 

 Print "Valore non presente nel file."
  
End