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
e adesso ti spiego cosa vuol dire: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
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:
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.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
Spero di essermi spiegato...fammi sapere, ciao!

Rispondi quotando