Ricerca sequenziale all'interno di un file

[trinityck]

Salve a tutti...

il mio problema è questo.

Su un file di testo salvo un "type" x un totale di 23 caratteri.
La stringa è sempre di questo tipo
gg/mm/aaaa (una data insomma) testotesto .

All'apertura del programma devo controllare che la data corrisponda a quella del pc e nel caso fare qualcosa.

Il problema non si pone se sul file salvo un solo type. Ma se ne salvo due e mi si presenta un file del genere

gg/mm/aaaa testotesto gg/mm/aaaa testotesto

come faccio a spostare il controllo sulla data successiva?

la ricerca la effettuo in questo modo

Dim scadenza As Date
Dim myDate
myDate = Date

Get #1, Seek(1), impegno 'impegno è stato dichiarato as "variabile type"
scadenza = impegno.scad 'impegno.scad è la data in forma gg/mm/aaaa
If scadenza = myDate Then 'se scadenza è = alla data del sistema
         'bho faccio qualcosa... :D
End If

note: il file viene aperto a ogni apertura del programma

[darkblOOd]

ti conviene crearti un file sequenziale con tracciato record a lunghezza fissa, in modo da avere una riga del tipo

ggmmaatestotesto
ggmmaatestotesto
ggmmaatestotesto
ggmmaatestotesto
ggmmaatestotesto
...

e poi leggi i regord volta per volta con la FileGet e ti metti il contenuto in una struttura. Poi controlli la variabile della struttura relativa alla data ed il gioco è fatto

[trinityck]

dark refreshami un po' la memoria.

Come faccio a salvare di volta in volta le stringhe sulla riga sottostante?

[darkblOOd]

Originariamente inviato da trinityck
dark refreshami un po' la memoria.

Come faccio a salvare di volta in volta le stringhe sulla riga sottostante?

print #NumeroFile, stringa?

[trinityck]

Originariamente inviato da darkblOOd
print #NumeroFile, stringa?

tutto qui? ultimamente non mi sento molto programmatore

[trinityck]

mmm con Print la variabile type mi genera errore: "Tipo non Corrispondente" ( sono tutte var stringa e non faccio nessuna operazione) mentre con Put tutto ok

[xegallo]

Originariamente inviato da trinityck
mmm con Print la variabile type mi genera errore: "Tipo non Corrispondente" ( sono tutte var stringa e non faccio nessuna operazione) mentre con Put tutto ok

con print devi aprire in output o append

[trinityck]

Originariamente inviato da xegallo
con print devi aprire in output o append

In effetti aprivo random ma niente, sempre quell'errore.

[xegallo]

Originariamente inviato da trinityck
In effetti aprivo random ma niente, sempre quell'errore.

ma a print devi passare una stringa non un udt non sparebbe che stampare

[trinityck]

Originariamente inviato da xegallo
ma a print devi passare una stringa non un udt non sparebbe che stampare

quindi devo passare la variabile "di tipo type" in stringa e salvare il tutto...