CRÉATION D'UN FICHIER À PARTIR DE PLUSIEURS FICHIER (POUR ÉVITER LES COPIER-COLLER)

Commentaire de aloneinthedark le 16/07/2007 09:45:10

salut,

j'ai récupérer les valeurs boursières sur internet et les périodes de téléchargement sont limités, il y a donc plusieurs (voire plus d'une dizaine de fichier ) pour la même valeur il faut donc copier coller bout a bout pour avoir un seul fichier.
le File1.listcount -2  
en fait c'est File1.listcount -1 , il compte le nombre de fichier présent dans un controle filelistbox, le -1 est pour pointer sur la valeur de file1.listindex qui commance a zéro et que le filecount commance a 1 y 'a donc une différence de 1
pourquoi -2 avant et -1 maintenant?
avant je mettais le fichier crée dans le même repértoire mais il n'était pas pris en compte lors du listcount je l'ai crée dans un autre rep.
voilà...
a+

Commentaire de Patrice99 le 16/07/2007 13:52:21

On peut le faire via une simple commande dos : il suffit d'ajouter /b pour binaire et /Y pour mode automatique :
Copy /b /Y *.dat fusion.fus

Commentaire de clementpat le 16/07/2007 14:04:54

impeccable , mais le programme ajoute une ligne vide entre chaque fichier , comment faire pour ne pas avoir cette ligne vide ?

Commentaire de clementpat le 16/07/2007 14:37:13

le fichier me donne :

1
2
3
4

5
6
7
8

avec le point virgule cela me donne :

12345678

moi je veux que cela donne :

1
2
3
4
5
6
7
8

Commentaire de Renfield le 16/07/2007 14:58:47 administrateur CS

tout le code peut se résumer en :



Private Sub Drive1_Change()
    On Error Resume Next
    Dir1.Path = Drive1.Drive
    If Err Then
        MsgBox Err.Description, vbExclamation
        Drive1.Drive = Left$(Dir1.Path, 2)
    End If
End Sub

Private Sub Dir1_Change()
    File1.Path = Dir1.Path
End Sub

Private Sub Command1_Click()
Dim sDestPath As String
Dim hOutFile As Integer
Dim hInFile As Integer
Dim xbBuffer() As Byte
Dim i As Long
    If Right$(Dir1.Path, 1) = "\" Then
        sDestPath = Dir1.Path & "tmp"
    Else
        sDestPath = Dir1.Path & "\tmp"
    End If
    If Dir$(sDestPath, vbDirectory) = vbNullString Then
        MkDir sDestPath
    End If

    hOutFile = FreeFile
    Open sDestPath & "\Tmpfinal.txt" For Binary Access Write As #hOutFile
        For i = File1.ListCount - 1 To 0 Step -1
            hInFile = FreeFile
            Open Dir1.Path & "\" & File1.List(i) For Binary Access Read As #hInFile
                ReDim xbBuffer(LOF(hInFile))
                Get #hInFile, , xbBuffer
            Close hInFile
            
            Put hOutFile, , xbBuffer
            
            If i Then
                Put hOutFile, , vbCrLf
            End If
        Next i
    Close #hOutFile
    
    MsgBox "Terminé", vbInformation
End Sub

(je ne sais pas trop pourquoi les fichiers sont parcourus en sens inverse...)

Commentaire de clementpat le 16/07/2007 21:34:10

oui tu as raison , le curseur d'un des 2 fichiers etait mal placé.

ya plus de probleme .