Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Apertura file txt anomali con Excel

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

Apertura file txt anomali con Excel

Postdi carmelo.nicita » 14/09/09 08:06

Ciao a tutti, ho un problema nell'apertura di un file txt con excel. Spiegandomi meglio, io avrei bisogno di definire una macro che legga dei dati da un file txt, li importi in opportune colonne e poi vada a fare delle operazioni ad esempio di controllo.
Il primo scoglio che incontro sta nella lettura dei dati, infatti il file txt presenta dei quadratini (che credo corrispondano al TAB) che una volta importati in excel rimangono tali, solo che l'operazione di "sostituisci" non funziona visto che excel li visualizza ma non li riconosce se li copio e li incollo.
Di seguito ho inserito una parte di file txt che devo elaborare


EG********************************************************************************
HFEG*
HFEG********************************************************************************
EGGiornoHFEG HFEG Ent.1HFEG Usc.1HFEG Ent.2HFEG Usc.2HFEG Ent.3HFEG Usc.3HFEG Ent.4HFEG Usc.4HFEG Ore presenzaHFEG Ore assenzaHFEGHFEG HFEGHFEGHF
EGlun 01/06HF
EGMAR 02/06HF
EGmer 03/06HFEG 08.27HFEG 13.01HFEG 13.53HFEG 18.43HFEG 07.30 FRODHFEG 01.30 FRSDHF
EGgio 04/06HFEG 07.49HFEG 13.00HFEG 14.14HFEG 17.58HFEG 07.45 FRODHFEG 00.45 FRSDHF
EGven 05/06HFEG 07.49HFEG 13.02HFEG 13.54HFEG 18.00HFEG 08.00 FRODHFEG 01.00 FRSDHF
EGsab 06/06HF
EGDOM 07/06HF
EGlun 08/06HFEG 07.51HFEG 13.02HFEG 13.49HFEG 18.00HFEG 08.00 FRODHFEG 01.00 FRSDHF
EGmar 09/06HFEG 08.04HFEG 13.01HFEG 13.54HFEG 19.20HFEG 07.45 FRODHFEG 02.15 FRSDHF
EGmer 10/06HFEG 07.46HFEG 12.50HFEG 13.55HFEG 17.55HFEG 07.45 FRODHFEG 00.45 FRSDHF
EGgio 11/06HFEG 07.56HFEG 16.34HFEG 08.30 FRODHF
EGven 12/06HFEG 07.46HFEG 12.48HFEG 13.53HFEG 18.00HFEG 07.45 FRODHFEG 00.45 FRSDHF
EGsab 13/06HF
EGDOM 14/06HF
EGlun 15/06HFEG 08.05HFEG 12.33HFEG 13.54HFEG 18.45HFEG 07.15 FRODHFEG 01.45 FRSDHF
EGmar 16/06HF
EGmer 17/06HFEG 07.51HFEG 12.31HFEG 13.52HFEG 18.40HFEG 07.30 FRODHFEG 01.30 FRSDHF
EGgio 18/06HFEG 07.47HFEG 12.45HFEG 13.51HFEG 18.23HFEG 07.45 FRODHFEG 01.15 FRSDHF
EGven 19/06HFEG 07.49HFEG 12.49HFEG 13.54HFEG 17.48HFEG 07.45 FRODHFEG 00.45 FRSDHF


Ho provato a rinominare o a cambiare l'estenzione del file, ma i simboli "strani" rimangono.
Quello che vorrei è capire se (e nell'eventualità come) è possibile modificare in excel questo testo, in modo tale che non compaiano i quadratini.

Grazie in anticipo per chiunque risponda
carmelo.nicita
Utente Junior
 
Post: 20
Iscritto il: 14/09/09 07:42

Sponsor
 

Re: Apertura file txt anomali con Excel

Postdi pietrol » 14/09/09 11:38

Ciao carmelo.nicita
io ho provato con Word:
File/Apri, come "Tipo File" scegli "Recupera testo da qualsiasi file(*)" e poi seleziona il tuo txt.
Dal tuo esempio io ho ottenuto questo:

G********************************************************************************


G********************************************************************************


GGiorno
G Ent.1
G Usc.1
G Ent.2
G Usc.2
G Ent.3
G Usc.3
G Ent.4
G Usc.4
G Ore presenza
G Ore assenza
Glun 01/06
GMAR 02/06
Gmer 03/06
G 08.27
G 13.01
G 13.53
G 18.43
G 07.30 FROD
G 01.30 FRSD
Ggio 04/06
G 07.49
G 13.00
G 14.14
G 17.58
G 07.45 FROD
G 00.45 FRSD
Gven 05/06
G 07.49
G 13.02
G 13.54
G 18.00
G 08.00 FROD
G 01.00 FRSD
Gsab 06/06
GDOM 07/06
Glun 08/06
G 07.51
G 13.02
G 13.49
G 18.00
G 08.00 FROD
G 01.00 FRSD
Gmar 09/06
G 08.04
G 13.01
G 13.54
G 19.20
G 07.45 FROD
G 02.15 FRSD
Gmer 10/06
G 07.46
G 12.50
G 13.55
G 17.55
G 07.45 FROD
G 00.45 FRSD
Ggio 11/06
G 07.56
G 16.34
G 08.30 FROD
Gven 12/06
G 07.46
G 12.48
G 13.53
G 18.00
G 07.45 FROD
G 00.45 FRSD
Gsab 13/06
GDOM 14/06
Glun 15/06
G 08.05
G 12.33
G 13.54
G 18.45
G 07.15 FROD
G 01.45 FRSD
Gmar 16/06
Gmer 17/06
G 07.51
G 12.31
G 13.52
G 18.40
G 07.30 FROD
G 01.30 FRSD
Ggio 18/06
G 07.47
G 12.45
G 13.51
G 18.23
G 07.45 FROD
G 01.15 FRSD
Gven 19/06
G 07.49
G 12.49
G 13.54
G 17.48
G 07.45 FROD
G 00.45 FRSD
F

Per me è arabo, ma rispetto a prima...

Fai sapere

ciao
pietrol
il lupo ululà, il castello ululì
pietrol
Utente Senior
 
Post: 270
Iscritto il: 07/01/09 14:34

Re: Apertura file txt anomali con Excel

Postdi carmelo.nicita » 14/09/09 13:16

Ciao pietrol,

in effetti è un bel passo avanti...almeno i quadratini non si vedono più!!

Grazie mille, lì per lì non pensavo che potesse essere una soluzione e invece facendo come mi hai suggerito tu e poi risalvando in txt i quadratini vanno via!! Infatti come scrivevo prima mi serve cmq un formato txt.

Per ora ho un intuizione di approccio al problema usando il tuo metodo!! Spero possa essere applicato senza grossi casini.

Ti ringrazio parecchio...
carmelo.nicita
Utente Junior
 
Post: 20
Iscritto il: 14/09/09 07:42

Re: Apertura file txt anomali con Excel

Postdi ricky53 » 14/09/09 14:50

Ciao,
prova in questo modo:

apri Excel
seleziona "Apri"
selezione il tipo di file: "File di testo (*.prn, *.txt, ....)
scegli il tuo file TXT
aprilo,
seleziona "Delimitati" e premi "Avanti"
metti il check su "Tabulazione"
e poi seleziona "Fine"

Ciao da Ricky53
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Apertura file txt anomali con Excel

Postdi Flash30005 » 14/09/09 14:53

Ciao Carmelo
Prova ad importare il tuo file testo in excel ma senza alcuna delimitazione (scegli Delimitati ma togli le opzioni a spazi e tabulazioni) dovresti trovarti tutto sulla colonna A per n righe (la cella B1, B2 etc sono vuote)
poi inserisci questa macro nel modulo
Codice: Seleziona tutto
Sub Pulisci()
Ur = Range("A" & Rows.Count).End(xlUp).Row
For I = Ur To 1 Step -1
    Stringa = Range("A" & I).Value
    If Stringa = "" Then GoTo salta
    Stringa = Replace(Stringa, "*", "")
    Stringa = Replace(Stringa, "", "")
    Stringa = Replace(Stringa, "E", "")
    Stringa = Replace(Stringa, "F", "")
    Stringa = Replace(Stringa, "G", "")
    Stringa = Replace(Stringa, "H", "")
    Stringa = Replace(Stringa, "", "")
    If Trim(Stringa) = "" Then
        Rows(I & ":" & I).Delete Shift:=xlUp
    Else
        Range("A" & I).Value = Stringa
    End If
salta:
Next I
   Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
        Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1 _
        )), TrailingMinusNumbers:=True
        If Range("B1").Value <> "" Then
    Range("B1:M1").Select
    Selection.Cut Destination:=Range("C1:N1")
    End If
   
    Columns("B:B").Select
    Selection.NumberFormat = "dd/mm"
    Columns("B:B").Select
    With Selection
        .HorizontalAlignment = xlRight
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With

    Range("A1").Select
End Sub

e avviala

Fai sapere se ti funziona bene

Ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Apertura file txt anomali con Excel

Postdi ricky53 » 14/09/09 14:58

Ciao,
prima ho dimenticato di chiederti di allegare un file di esempio.

Ciao da Ricky53
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Apertura file txt anomali con Excel

Postdi carmelo.nicita » 14/09/09 15:52

Ciao Flash30005,

beh funziona alla grande!!!
Perfetto, direi che meglio di così non si può!!

Grazie infinite
carmelo.nicita
Utente Junior
 
Post: 20
Iscritto il: 14/09/09 07:42

Re: Apertura file txt anomali con Excel

Postdi Flash30005 » 14/09/09 18:22

carmelo.nicita ha scritto:beh funziona alla grande!!!
Perfetto, direi che meglio di così non si può!!


Ti ringrazio ma sto vedendo ora la macro postata e noto dei simboli che io non ho messo ma sono stati modificati dal post (anche se messo sotto il Code), non devono esserci dei quadrati ma i veri simboli del tuo file testo
quindi ti invio direttamente il file di excel con all'interno la macro corretta che lavora direttamente con il file testo originale http://rapidshare.com/files/280030620/pppp2.zip.html

Fai sapere
Ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Apertura file txt anomali con Excel

Postdi carmelo.nicita » 15/09/09 07:18

Ciao Flash30005,

ho appena visto il tuo ultimo post di ieri sera.
Il rapidshare non mi permette di scaricare lo zip che mi hai mandato.
Ad ogni modo il codice che mi hai passato mette a posto i dati in un modo eccellente.
Ovviamente io sono alle prime armi quindi magari per me è il top già questo :)

Grazie ancora tante
carmelo.nicita
Utente Junior
 
Post: 20
Iscritto il: 14/09/09 07:42

Re: Apertura file txt anomali con Excel

Postdi Flash30005 » 15/09/09 13:18

Ho effettuato l'upload del file su quest'altro server

http://www.filedropper.com/pppp2

Scarica il file perché secondo me quei codici tolgono solo i quadretti (o interpretazioni dei simboli che tu hai nel file txt)
mentre la macro da me realizzata toglie proprio quelli presentati da te nel tuo post (freccette, asterischi normali e ovali etc) che hanno un proprio numero Ascii

In pratica, dopo l'esecuzione della macro, dovresti avere questo:

Immagine

Ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Apertura file txt anomali con Excel

Postdi carmelo.nicita » 16/09/09 11:31

Ciao Flash30005,

grazie mille ancora... ho preso lo zip.
In effetti così è più pulita!!!

Grazie ancora del tuo aiuto :)

Ciao
carmelo.nicita
Utente Junior
 
Post: 20
Iscritto il: 14/09/09 07:42


Torna a Applicazioni Office Windows


Topic correlati a "Apertura file txt anomali con Excel":


Chi c’è in linea

Visitano il forum: Nessuno e 10 ospiti