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.
(Creata pagina con "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...") |
|||
| Riga 16: | Riga 16: | ||
For i = 1 To Len(s) | For i = 1 To Len(s) | ||
If Int@(s[i]) == VALORE Then | If Int@(s[i]) == VALORE Then | ||
| − | + | Print "Il valore è stato trovato al byte di indice: "; i | |
| − | + | Quit | |
Endif | Endif | ||
Next | Next | ||
| − | + | Print "Valore non presente nel file." | |
| − | |||
| − | |||
| − | |||
| − | |||
'''End''' | '''End''' | ||
Versione delle 18:58, 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, 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
Print "Il valore è stato trovato al byte di indice: "; i
Quit
Endif
Next
Print "Valore non presente nel file."
End
