Newsgroup: it.comp.lang.visual-basic
Titolo: AIUTO

Salve a tutti,
A Gennaio inizio un corso di Visual Basic essendo importante per il mio
lavoro.
Però sempre per motivi di lavoro avrei bisogno di un aiuto urgente.
Devo i pratica trasformare un file di testo txt in un foglio excel.
Il file txt è un  report di stampa di questo tipo:
 
  215270 27   A.S.L. N. 3 - DISTRETTO DI Mxxxxxxyyyy        ubicazione : VIA
ROMA
                                                                 RUOLO
PRINCIPALE                2000            300         840.000
00977680917                                                      ADDIZIONALE
ECA                                              84.000
              VIA ROMA 1                                         ADDIZIONALE
PROVINCIA                                        13.000
              01021 NOME LOC.
   NU   -------------------------------------------------------------------
                                                                 TASSA
RIFIUTI SOLIDI URBANI                  TOTALE         937.000
----------------------------------------------------------------------------
--------------------------------------------------------
  370678 41   ALIMENTARI -LA PAGNOTTA LI GIOVANNA        ubicazione : PIAZZA
DANTE 12
                                                           RUOLO PRINCIPALE
2000            150         420.000
00719240913   ROSSI MARIA                      ADDIZIONALE ECA
84.000
                                          42.000
              PIAZZA C. ALBERTO N 12                             ADDIZIONALE
PROVINCIA                                         6.000
              NOME
      -------------------------------------------------------------------
                                                                 TASSA
RIFIUTI SOLIDI URBANI                  TOTALE         468.000
----------------------------------------------------------------------------
--------------------------------------------------------
     222 28   VERDIA                   EUGENIO               M   ubicazione
: VIA STELLINA 3
           n. 21.10.1957        LOCALITA'                    RUOLO
PRINCIPALE                2000             65          72.000
NDDGNE47R21I443K                                                 ADDIZIONALE
ECA                                               7.000
              VIA STELLAINA 1                                    ADDIZIONALE
PROVINCIA                                         1.000
              NOME
       -------------------------------------------------------------------
                                                                 ubicazione
: VIA STELLA 8
                                                                 RUOLO
PRINCIPALE                2000             40          44.000
                                                                 ADDIZIONALE
ECA                                               4.000
                                                                 ADDIZIONALE
PROVINCIA                                         1.000
                                                                 -----------
--------------------------------------------------------
                                                                 TASSA
RIFIUTI SOLIDI URBANI                  TOTALE         129.000
----------------------------------------------------------------------------
--------------------------------------------------------
     232 38   NERIDA                   MASSIMO               M   ubicazione
: VIA UGO FOSCOLOI 22
              n. 05.12.1969  ROMA                                RUOLO
PRINCIPALE                2000            104         115.000
NDDMSM69T05I443P                                                 ADDIZIONALE
ECA                                              11.000
              VIA PIETRO 43                                      ADDIZIONALE
PROVINCIA                                         2.000
              NOME
       -------------------------------------------------------------------
                                                                 TASSA
RIFIUTI SOLIDI URBANI                  TOTALE         128.000
----------------------------------------------------------------------------
---------------------
e cosi' via
Vorrei sapere cortesemente con quale operatività Visual Basic mi consente di
trasformare tale file in xls riportando tutti i dati presenti in colonna .
In pratica nel foglio xls devono risultare in colonna NOME-INDIRIZZO-CITTA'-
CODICE FISCALE- TASSE ETC.
So che essendo principiante non sarà molto facile per me capirlo però
ringrazio di cuore chi puo' darmi una mano magari dicendomi quali sono in
sequenza le procedure da adottare con VisualBasic.
Grazie.
Roberto.

Chiedo scusa ma il file txt postato sul msg cambia impostazioni ne allego un
esempio con questo msg.
Roberto
215270 27   A.S.L. N.XX - DISTRETTO DI XXXXYYY                 ubicazione :
VIA ROMA
                                                                 RUOLO
PRINCIPALE                2000            300         840.000
00977680917                                                      ADDIZIONALE
ECA                                              84.000
              VIA ROMA 1                                         ADDIZIONALE
PROVINCIA                                        13.000
             NOME CITTA'
    NU   -------------------------------------------------------------------
                                                                 TASSA
RIFIUTI SOLIDI URBANI                  TOTALE         937.000
----------------------------------------------------------------------------
--------------------------------------------------------
  370678 41   ALIMENTARI -LA PAGNOTTA- ROSSI     GIOVANNA        ubicazione
: PIAZZA CARLO ALBERTO 12
                                                                 RUOLO
PRINCIPALE                2000            150         420.000
00719240913   ROSSI  GIOVANNA                                    ADDIZIONALE
ECA                                              42.000
              PIAZZA S.PAOLO    N 12                             ADDIZIONALE
PROVINCIA                                         6.000
                     -------------------------------------------------------
------------
                                                                 TASSA
RIFIUTI SOLIDI URBANI                  TOTALE         468.000
----------------------------------------------------------------------------
--------------------------------------------------------
     222 28   VERDI                   EUGENIO               M   ubicazione :
VIA STELLA 1
              n. 21.10.1957  NAPOLI                              RUOLO
PRINCIPALE                2000             65          72.000
NDDGNE47R21I443K                                                 ADDIZIONALE
ECA                                               7.000
              VIA STELLA 1                                       ADDIZIONALE
PROVINCIA                                         1.000
              NCITTA'
    NU   -------------------------------------------------------------------
                                                                 ubicazione
: VIA STELLA 8
                                                                 RUOLO
PRINCIPALE                2000             40          44.000
                                                                 ADDIZIONALE
ECA                                               4.000
                                                                 ADDIZIONALE
PROVINCIA                                         1.000
                                                                 -----------
--------------------------------------------------------
                                                                 TASSA
RIFIUTI SOLIDI URBANI                  TOTALE         129.000
----------------------------------------------------------------------------
--------------------------------------------------------
     232 38   NERI                    MASSIMO               M   ubicazione :
VIA PIETRO NENNI 22
              n. 05.12.1969  MILANO                              RUOLO
PRINCIPALE                2000            104         115.000
NDDMSM69T05I443P                                                 ADDIZIONALE
ECA                                              11.000
              VIA PIETRO NENNI 22                                ADDIZIONALE
PROVINCIA                                         2.000
                     -------------------------------------------------------
------------
                                                                 TASSA
RIFIUTI SOLIDI URBANI                  TOTALE         128.000
----------------------------------------------------------------------------
--------------------------------------------------------
     250 56   BIANCHI                   TIZIANO               M   ubicazione
: VIA SANTA MARIA 23
              n. 31.08.1968  MILAZZO                            RUOLO
PRINCIPALE                2000            100         110.000
NDDTZN68M30G924M                                                 ADDIZIONALE
ECA                                              11.000
              VIA SANTA MARIA 23                                 ADDIZIONALE
PROVINCIA                                         2.000
                    --------------------------------------------------------
-----------
                                                                 ubicazione
: VIA VITTORIO EMANUELE 50
                                                                 RUOLO
PRINCIPALE                2000             30          33.000
                                                                 ADDIZIONALE
ECA                                               3.000
                                                                 -----------
--------------------------------------------------------
                                                                 TASSA
RIFIUTI SOLIDI URBANI                  TOTALE         159.000
----------------------------------------------------------------------------
--------------------------------------------------------

Ti faccio un esempio.
Aggiungi un riferimento Microsoft Excel (Progetto -> Riferimenti), ed esegui il
codice qui sotto:
   Dim Exc As New Excel.Application
   Exc.Workbooks.OpenText "c:\windows\desktop\MioFile.txt"
   Exc.ActiveWorkbook.SaveAs "c:\windows\desktop\MioFile.xls", xlExcel5
   Exc.Workbooks.Close
   Set Exc = Nothing
   Unload Me
presupponendo che sul tuo desktop ci sia il file MioFile.txt. Dopo l'esecuzione
del prg, sul tuo desktop ci sarà il file MioFile.xls di Excel.
Roberto Corona ha scritto:
