Apertura file txt anomali con Excel

[carmelo.nicita]

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

[pietrol]

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

[carmelo.nicita]

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...

[ricky53]

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

[Flash30005]

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

[ricky53]

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

Ciao da Ricky53

[carmelo.nicita]

Ciao Flash30005,

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

Grazie infinite

[Flash30005]

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

[carmelo.nicita]

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

[Flash30005]

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:



Ciao

[carmelo.nicita]

Ciao Flash30005,

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

Grazie ancora del tuo aiuto

Ciao