Ricercare uno spazio bianco in un file

giovedì 13 dicembre 2007 - 12.52

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

ciccios100 Profilo | Junior Member

167 messaggi | Data Invio: gio 13 dic 2007 - 12:52

Ciao ragazzi volevo chiedervi un altra cosa....ho un file con dei dati anagrafici,(nome cognome ecc.)devo creare una procedura che mi permetta di leggere questo file(file 1) e di copiare il contenuto di questo file in un nuovo file.Il nuovo file(file 2) deve avere una dimensione fissa per i campi(esempio nome as string * 20 ),e quando il nome è di 10 caratteri devo riempire gli altri e 10 con caratteri vuoti.Per fare ciò io avevo pensato di leggere il file 1 un campo alla volta e poi inserire il campo letto nel file 2 e passare al campo successivo.Nel file 1 i campi sono delimitati da uno spazio e i record da un carrege return ora il mio problema e che non riesco a controllare quandi il file1 ha uno spazio bianco io ci ho provato così:
Do While (1) <> " "
Line Input #1,Nome
List1.AddItem nome
Loop

o provato anche con apice singolo ma niente mi vengono sempre fuori degli errori...come posso fare?

Ciccio Biagioni

alexmed Profilo | Guru

1.186 messaggi | Data Invio: gio 13 dic 2007 - 14:02

Ciao
premesso che sono un nuovo iscritto
secondo me una soluzione potrebbe consistere nel trovare quanti spazi vuoti ti servono e poi associarli alla stringa iniziale
quindi:
Dim differenza as integer
differenza = 20 - Len(stringaletta_sul_primo_file)

stringa_per_il_nuovo_file = stringaletta_sul_primo_file + space(differenza)

Ciao

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !