[VB6] File di testo e vbTab

[Petra]

Buongiorno a tutti...

devo leggere un file *.txt con Visual Basic 6.0. Questo file di testo è strutturato in questo modo:

Nome Cognome SIGLA1 NUMERO1 NUMERO2 NUMERO3 NUMERO4
Nome Cognome SIGLA1 SIGLA2 NUMERO1 NUMERO2 NUMERO3 NUMERO4
Nome Cognome SIGLA1 SIGLA2 NUMERO2 NUMERO3 NUMERO4
Nome Cognome SIGLA1 NUMERO1 NUMERO2 NUMERO3 NUMERO4
Nome Cognome SIGLA1 NUMERO1 NUMERO2 NUMERO3 NUMERO4

In pratica le righe sono quasi uguali...quasi perchè in alcuni nominativi ci sono 2 sigle ed in altri una sigla. Tutte le parole o numeri sono divisi da uno spazio. Questo file di testo devo infine rinominarlo in file di exel *.xls, ma prima però devo effettuare delle sostituizioni per adattarlo all'*.xls. Queste sostituiranno gli spazi con dei vbTab. Questo dovrebbe essere il risultato:

Nome Cognome        SIGLA1        NUMERO1 NUMERO2 NUMERO3 NUMERO4
Nome Cognome        SIGLA1 SIGLA2        NUMERO1 NUMERO2 NUMERO3 NUMERO4
Nome Cognome        SIGLA1 SIGLA2        NUMERO2 NUMERO3 NUMERO4
Nome Cognome        SIGLA1        NUMERO1 NUMERO2 NUMERO3 NUMERO4
Nome Cognome        SIGLA1        NUMERO1 NUMERO2 NUMERO3 NUMERO4

Il problema è che questo risultato non può essere riprodotto con un semplice Replace perchè il primo spazio deve saltarlo e lo spazio tra una sigla e l'altra deve saltarlo (in alcune righe c'è solo una sigla). Tutte le sigle sono testuali.

Io avevo provato così:

Replace(Testo, " ", vbTab)

...risultati pessimi dato che mi sotituisce tutti gli spazi.

Poi ho pensato di fare così:
Se è il primo spazio allora non sostituire
Se è il terzo spazio e il carattere successivo non è numerico allora non sostituire
Altrimenti sostituisci tutti gli spazi
...non riesco minimamente a creare questo controllo!!!

Spero che abbiate capito anche se non mi sono espressa benissimo.

[MDM]

io espanderei prima di tutto ogni riga in un vettore per riconoscere il numero di elementi con

A=split(VarRigaLetta," ")

così avrai una cella per ogni campo della riga letta,
esempio A(0)=Nome, A(1)=cognome...

poi S sarà la riga da passare al file destinatario

S=A(0) &  " " & A(1) 'nome e cognome
if ubound(s)=6 then
  'una sola sigla
  s=s & a(2) & vbtab & a(3) & vbtab & a(4) & vbtab & a(5) & vbtab & a(6)
else
  '2 sigle
  s=s & a(2) & " " & a(3) & vbtab & a(4) & vbtab & a(5) & vbtab & a(6) & vbtab & a(7)
endif

o qualcosa di simile. Prova

[alka]

Le domande su Visual Basic vanno postate nell'apposito subforum. Ho spostato la discussione.

Ciao!

[Petra]

Grazie x la risposta MDM. Ho messo giù questo codice...

Set objFile = objFso.OpenTextFile(strFileName, ForReading, True, TristateTrue)
strNewFile = Replace(Text1.Text, "  ", " ")
arrFile = Split(objFile.ReadLine, " ")

...ma mi da errore sull'array. L'errore è questo:

Input oltre la fine del file

[Petra]

Problema risolto...chiunque abbia bisogno della soluzione mi contatti pure!!