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.
| (2 versioni intermedie di uno stesso utente non sono mostrate) | |||
| Riga 8: | Riga 8: | ||
Dim s As String | Dim s As String | ||
| − | Dim i | + | Dim i As Integer |
| − | + | s = File.Load("<FONT Color=gray>''/percorso/del/file/da/caricare''</font>") | |
| − | s | + | 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''' | '''End''' | ||
Versione attuale delle 19:51, 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/caricare")
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
