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 12: Riga 12:
 
   s = File.Load("<FONT Color=gray>''/percorso/del/file/da/aprire''</font>")
 
   s = File.Load("<FONT Color=gray>''/percorso/del/file/da/aprire''</font>")
 
   
 
   
   For i = 1 To Len(s)
+
   i = InStr(s, MkInt(VALORE))
    If Int@(s[i]) == VALORE Then  
+
      Print "Il valore è stato trovato al byte di indice: "; i
+
  If i == 0 Then  
      Quit
+
    Print "Valore non presente nel file."
    Endif
+
  Else
  Next
+
    Print "Il valore è stato trovato al byte di indice: "; i - 1
 +
  Endif
 
   
 
   
  Print "Valore non presente nel file."
 
 
 
 
  '''End'''
 
  '''End'''

Versione delle 19:50, 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")

 i = InStr(s, MkInt(VALORE))

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

End