Condividi:        

Automatizzare estrazioni da .txt per Excell

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Automatizzare estrazioni da .txt per Excell

Postdi Gattuccio0 » 17/05/10 15:17

Ciao a tutti.
Questa mia problematica è il seguito del post viewtopic.php?f=26&t=85822 che in parte ho risolto. In parte no.
Ho dei tipi di files in .txt discordanti tra di loro in quanto dall'origine (un DB3) alcuni dati sono stati segati. il mio intento è di processarli per importarli in un nuovo sistema che accetta solamente files .xls.

Rispetto alla macro precedente http://rapidshare.com/files/388376874/E ... 2.xls.html (grazie a Flash ed Anthony) dovrei poter riconoscere quando ci sono caratteri come le parentesi o come "-" che con la macro attuale non vengono riconosciuti e quindi i record processati risultano senza dati (vedi file qui http://rapidshare.com/files/388381058/r ... o.xls.html)

A questo indirizzo http://rapidshare.com/files/388377740/test.zip.html ho messo 3 tipologie di files con il foglio in Excel di come dovrebbe venire il risultato (i nomi dei files sono inventati o posticci).

esempio di file (i dati scritti in rosso dovranno essere eliminati, quelli in blu sono i dati che interessano all'esportazione in Excel) :

HOME <index.asp> |Chi siamo <chi.asp> | Servizi <servizi.asp> | News
<news_x.asp> |Links RP <links_rp.asp>|ci Hanno scelto <clienti.asp> |
Per abbonarsi <abbonarsi.asp> | Contatti <contatti.asp> | Login
<login.asp>| Faq <faq.asp>



ricerca per

Testata

Cognome



Regione

Area





* Attenzione Non hai scelto una Lista,*

* puoi solo visionare il database *

*ma non puoi salvare.*

Nuova Lista <areariservata_media.asp>









A Pizza e Fichi - Blogosfere Blog | pizzaefichi.blogosfere.it
<http://pizzaefichi.blogosfere.it>

AMBITO: Nazionale
AREA: Italia
TIPO: Sito internet
TEMA: Alimentazione / Cucina
PERIODICITA': Quotidiano

INDIRIZZO: - . -



in lista| tel. | mail | redazione | specializzazione | incarico | nome |
cognome

1 | 41332 [Tel: | Fax: |] <#> | Sport | Nautica | Curatore | Pizza |
Fichi cerca online Pizza+Fichi
<http://www.123people.com/s/Pizza+fichi>


* Attenzione Non hai scelto una Lista,*

* puoi solo visionare il database *

*ma non puoi salvare.*



Nuova Lista <areariservata_media.asp>





All Rights Reserved Pizza e fichi 2008 | http://www.pizzaefichi.it









© pizzaefichi.it 2008 - | - design pizza e fichi

Grazie anticipatamente.
Gattuccio
Gattuccio0
Utente Senior
 
Post: 186
Iscritto il: 22/06/09 12:46

Sponsor
 

Re: Automatizzare estrazioni da .txt per Excell

Postdi maxmula » 26/05/10 10:41

Purtroppo da dove mi trovo non posso accedere a RapidShare, quindi non so cosa faccia la macro di cui parli... :-(

Posso però darti un suggerimento per "ripulire" il testo dai campi non voluti.

1) Memorizzi l'intero testo (sporco) nella variabile stringa TESTO_DA_RIPUILRE (leggendola da file o incollando dagli appunti)

2) inizi a tagliare via la parte in testa:

Codice: Seleziona tutto
     T1=Split(TESTO_DA_RIPULIRE, "<areariservata_media.asp>")


dove "<areariservata_media.asp>" è l'ultima parte di testo non desiderato che si trova all'inizio del tuo file.
A questo punto ti trovi con un array (T1) che contiene:

    in posizione 0 il testo non voluto;
    in posizione 1 tutto il resto.

3) Per tagliare via la parte di coda si opera in modo simile:
Codice: Seleziona tutto
    T2=Split(T1(1), "* Attenzione")


T2 è un altro array che contiene:

    in posizione 0 il testo voluto (ancora "un po' sporco");
    in posizione 1 tutto il resto.

4) a questo punto non resta cbhe ripulire del tutto il testo da tutti i caratteri di spazio/ritorno a capo in testa ed in coda:

Codice: Seleziona tutto
     TESTO_RIPULITO=TRIM(Replace(T2(0), vbcrlf&vbcrlf, vbcrlf))


Ora puoi salvare TESTO_RIPULITO.



Spero sia utile...
Ciao,
MAx
Avatar utente
maxmula
Utente Senior
 
Post: 965
Iscritto il: 18/08/04 18:28
Località: N44°59'45 E09°00'34

Re: Automatizzare estrazioni da .txt per Excell

Postdi Gattuccio0 » 04/06/10 09:49

ciao Max scusa la mia latitanza...ci provo immediatamente e poi ti faccio sapere.
Buona giornata.
Gattuccio0
Utente Senior
 
Post: 186
Iscritto il: 22/06/09 12:46


Torna a Applicazioni Office Windows


Topic correlati a "Automatizzare estrazioni da .txt per Excell":


Chi c’è in linea

Visitano il forum: Nessuno e 98 ospiti