macro excel : da XLS generare txt posizione lunghezza

[buni75]

buongiorno,

con una macro di excel, nella quale incrocio 2 file txt, devo ottenere un output .txt con struttura di posizione e lunghezza, niente TAB.
finché si tratta di incrociare i dati con la macro riesco, ma la parte di output .txt e posizione lunghezza no.

qualcuno può aiutarmi?

grazie, Buni

esempio finale :

https://fil.email/TynfL

[Anthony47]

Senza file di esempio su cui provare si puo' solo parlare "in linea di massima".
Quindi, in linea di massima, mi pare che vuoi ottenere dei campi che hanno una lunghezza prefissata; partendo da una STRINGA1 e sapendo che devi produrre una stringa di lunghezza X, allora devi accodare (se allineamento Left) o premettere (se allineamento Right) una sequenza di "spazi". Esempio

Codice: Seleziona tutto

NewString = STRINGA1 & String(X - len(STRINGA1)


La variabile NewString conterra' il campo normalizzato con allineamento a sinistra.

Quando hai dei numeri, allora devi prima trasformarli in stringhe di formato desiderato e poi premetti gli spazi voluti.
Es, se la variabile Prezzo contiene un valore:

Codice: Seleziona tutto

prezzoTxt = Format(Prezzo, "0.000")
NewString = String(X - len(prezzoTxt) & prezzoTxt


Idem con le date.

Se con questi spunti non risolvi allora dovresti pubblicare file esemplificativi su cui lavorare.

Ciao

[buni75]

ciao

ecco il link per scaricare l'output finale : https://fil.email/1dGOTe
finché si tratta di accorpare dati con la macro sono OK, mi manca la conoscenza per fare salvataggio in txt con specifiche di posizione, lunghezza, allineamento e nome del file.

Buni

[buni75]

salve,

ho risolto parzialmente con questo codice :

Dim riga As Range, pattern As String
Dim s1 As String, s2 As String, s3 As String, s4 As String, s5 As String, s6 As String, s7 As String

pattern = "1234567890123456789012345678901234567890"
Open "C:\Users\Francesco Tribuni\Documents\Progetti\Juwelo\esportato.txt" For Output As #1

For Each riga In Range("a1:a10000").Rows
s1 = Format(riga.Cells(, 1), "!@@@@@@@@@@@@@")
s2 = Format(riga.Cells(, 2), "!@@@@@@@@")
s3 = Format(riga.Cells(, 3), "!@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@")
s4 = Format(riga.Cells(, 4), "!@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@")
s5 = Format(riga.Cells(, 5), "!@@@@@@@@")
s6 = Format(riga.Cells(, 6), "!@@@")
s7 = Format(riga.Cells(, 7), "!@@@@@@@@@@@@@@@@@@@@@")

Print #1, s1 & s2 & s3 & s4 & s5 & s6 & s7
Next
Close

End Sub

ho comunque neccessità che la colonna S7 sia allineata a destra.
come si fa?

grazie, Buni

[Anthony47]

Allora, ho capito che nel foglio Excel tu hai 7 campi (erano 8 nelle prime specifiche, ma mi pare che hai accorpato <PROVIDER> e <PARCEL_ID> in una unica cella e un unico campo di 13 crt), a partire da riga 1 verso il basso (quindi A1:Gxxx).
Se e' cosi', questa macro potra' aiutarti a creare il file txt col formato che aspetti:

Codice: Seleziona tutto

Option Base 1
Sub Buni75()
Dim myForm, myType, I As Long, J As Long, myBlk As String
'Lunghezza campi:
myForm = Array(13, 8, 40, 33, 8, 3, 21)  '
'TIPO: 0=stringa, left;1=data, left; 2=Numero 3 dec, right
myType = Array(0, 1, 0, 0, 1, 0, 2)
Close #1
'>>> nella prossima riga usare il corretto Percorso /Nome file:
Open "C:\Users\USER\Downloads\byBUNI75_AAAA-MM-GG.Ctr_1234_B60921.txt" For Output As #1
For I = 1 To Cells(Rows.Count, 1).End(xlUp).Row
    myBlk = ""
    For J = 1 To UBound(myForm)
        If myType(J) = 0 Then
            myBlk = myBlk & Left(Cells(I, J), myForm(J)) & String(myForm(J) - Len(Left(Cells(I, J), myForm(J))), " ")
        ElseIf myType(J) = 1 Then
            myBlk = myBlk & Left(Cells(I, J), myForm(J)) & String(myForm(J) - Len(Left(Cells(I, J), myForm(J))), " ")
        ElseIf myType(J) = 2 Then
            myBlk = myBlk & String(myForm(J) - Len(Format(Cells(I, J), "0.000")), " ") & Format(Cells(I, J), "0.000")
        End If
    Next J
Debug.Print myBlk
Print #1, myBlk
Next I
Close #1
End Sub


Mettila in un nuovo Modulo del vba, in modo che l'istruzione Option Base 1 sia in testa a tutto.
La riga marcata >>> va personalizzata col tuo Path/nomefile.

Come capirai, in myForm ho inserito la larghezza che devono avere i singoli campi, e in myType il tipo di contenuto dei campi; io ho capito solo cammin facendo che anche quella che pensavo dovessere essere una data (tipo 2, nel mio standard) in realta' e' una stringa, ma mi sono limitato a inserire nel blocco If myType la stessa istruzione sia per il tipo 0 (stringa) che il tipo 2.

Prova e fai sapere...

Ciao

[buni75]

eccezionale!!!!

ora ti chiedo un'ultima cortesia : devo dare un naming preciso al file e utilizzerei il codice che segue

Fname = "GLS." & Format(date, "yyyy-mm-dd") & ".Ctr_" & Format(time, "HHmm") & ".txt"

va attivato con DIM? dove le metto le righe necessarie?

grazie ancora, BUNI75

[Anthony47]

La cosa piu' elementare e' che inserisci in due varianti il Percorso e il NomeFile, e poi li combini; esempio:

Codice: Seleziona tutto

myPath = "C:\Users\USER\Downloads\"    '<<< il TUO percorso, con \ finale
Fname = "GLS." & Format(date, "yyyy-mm-dd") & ".Ctr_" & Format(time, "HHmm") & ".txt"


Poi invece della Open col nome fisso di file farai:

Codice: Seleziona tutto

Open (myPath & Fname) For Output As #1

Ciao