Unire file CSV senza fine linea

[buni75]

buongiorno,

devo unire molti file csv con separatore ; dove non è presente il fine linea.
con il comando dos "copy *.csv nomefile.csv" il file che ne deriva è sempre di una sola linea, mentre se aggiungo a mano il fine linea su ogni file csv allora funziona.
c'è modo con una macro o con un comando di dos di unire questi file?

un saluto, Francesco

[Anthony47]

Allega per favore 4-5 file da unire.
Per le istruzioni su come allegare un file:
viewtopic.php?f=26&t=103893&p=605487#p605487

[buni75]

ecco i file

https://fil.email/yi1PY

Grazie, Francesco

[Anthony47]

Vedi se con questa macro ottieni il risultato voluto:

Codice: Seleziona tutto

Sub buniQueue()
Dim myF As String, myDir As String, newText As String
'
myDir = "C:\PERCORSO\"        '<<< Il path contenente i file csv con \ finale
myF = Dir(myDir & "*.csv")
Close #1: Close #2
Open myDir & "OutCsv.csv" For Output As #1
On Error GoTo gErr
Do
DoEvents
If myF = "" Then Exit Do
Open myDir & myF For Input As #2
    Line Input #2, friga
    newText = newText & friga & vbCrLf
goOn:
    Close #2
    myF = Dir
Loop
newText = Left(newText, Len(newText) - 1)
Print #1, newText
Close #1
Exit Sub
gErr:
If Err = 55 Then
    Err.Clear: Resume goOn
End If
End Sub


Viene creato un fiel OutCsv.csv, nella stessa directory dove si trovano i file originali.

Ciao

[buni75]

Perfetto!!!

grazie Anthony, see you soon

[buni75]

buongiorno Anthony,

ho provato modificando il codice ma senza successo : ora ho necessità di aggiungere, prima del finelinea, una S maiuscola per ogni riga.
ho provato anche registrando macro ma non ci riesco.
c'è un comando specifico che potrei inserire nel codice?

grazie, Buni

[patel]

i file non sono più disponibili, riallegali
intanto prova questa

Codice: Seleziona tutto

Sub buniQueue()
Dim myF As String, myDir As String, newText As String
'
myDir = "C:\PERCORSO\"        '<<< Il path contenente i file csv con \ finale
myF = Dir(myDir & "*.csv")
Close #1: Close #2
Open myDir & "OutCsv.csv" For Output As #1
On Error GoTo gErr
Do
DoEvents
If myF = "" Then Exit Do
Open myDir & myF For Input As #2
    Line Input #2, friga
    newText = newText & friga & "S" & vbCrLf  ' <<<< linea modificata
goOn:
    Close #2
    myF = Dir
Loop
newText = Left(newText, Len(newText) - 1)
Print #1, newText
Close #1
Exit Sub
gErr:
If Err = 55 Then
    Err.Clear: Resume goOn
End If
End Sub

[buni75]

è perfetto, grazie.

se volessi inserire -- FName = Format(Date, "yyyy-mm-dd") & ".Ctr_" & Format(Time, "HHmm") -- a che punto dovrei metterlo?

grazie, Buni

[patel]

non hai detto a cosa ti serve, quindi vado a intuito

Codice: Seleziona tutto

Sub buniQueue()
Dim myF As String, myDir As String, newText As String
'
myDir = "C:\PERCORSO\"        '<<< Il path contenente i file csv con \ finale
myF = Dir(myDir & "*.csv")
Close #1: Close #2
FName = Format(Date, "yyyy-mm-dd") & ".Ctr_" & Format(Time, "HHmm") & ".csv" '
Open myDir & FName For Output As #1
On Error GoTo gErr

per favore allega i file, vorrei collaudare la macro di Anthony

[buni75]

https://fil.email/2136BA

la necessità è di dare una prima parte di nome file standard e il resto con data, ora e .csv.
ho modificato con quanto mi hai scritto e ora ho ottenuto quanto sopra.

piuttosto non riesco a inserire la funzione di OPEN per aprire appena eseguita la macro.

ciao,
Buni

[patel]

non ho capito "ottenuto quanto sopra"
e neppure "non riesco a inserire la funzione di OPEN per aprire appena eseguita la macro"