ok, allora in un modulo .BAS esterno al form ti crei una struttura personalizzata con campi a lunghezza fissa utilizzando la parola chiave TYPE e poi ti calcoli le dimensioni dei singoli "record" da tirare fuori dal tuo file.
Per esempio
codice:
Type MiaStruttura
dim strA as string * 13
dim strB as string * 2
dim strC as string * 2
dim strD as string * 12
dim strE as string * 2
dim strF as string * 8
...fino alla fine della riga del file da cui leggi
End Type
e adesso ti spiego cosa vuol dire:
la prima stringa conterrà i valori della prima riga del tuo file partendo dalla L di LOAD, quindi conterrà: LOAD,@B,N1,R0, cioè i primi 13 caratteri
la seconda invece conterrà : 01 che sono i successivi 2 caratteri partendo dalla stringa precedente e così via.
Ti devi creare una specie di "maschera" che contenga i pezzetti di testo che ti interessa e poi usi nel tuo programma le variabili create nella TYPE per ricreare la stringa che ti interessa.
Per leggere il file e mettere i valori nella tua TYPE usa:
codice:
'Apri il file
dim MiaStr as MiaStruttura
while not EOF(NumFile)
Get(NumFile, MiaStr)
dim NewString as string
NewString = MiaStr.strA & MiaStr.strF & MiaStr.strE
Print #SecondoFile, NewString
End While
Chiudi i file
attento però per funzionare è necessario che le righe del file da cui leggi siano uguali come numero di caratteri in modo tale da poter mettere nelle tue variabili a lunghezza fissa i valori che leggi carattere per carattere.
Spero di essermi spiegato...fammi sapere, ciao!
Rispondi quotando
