Exporter un tableau dans un fichier texte (séparateur et retours à la ligne)

Commenter

Contenu du snippet

Il s'agit de l'inverse de la fonction que proposait Jean_Marc_N2. http://www.vbfrance.com/codes/IMPORTATION-FICHIER-TXT-SERVANT-MINI-BASE-DONNEES-SEPARATEURS_39150.aspx. Cette fois ce n'est pas l'import d'un tableau a partir d'un fichier texte mais l'export d'un tableau vers un fichier texte.

Source / Exemple : 


Private Function ExportTxtFile(ByVal fileName As String, ByVal separator As String, ByRef tData() As String, ByRef errorString As String, Optional ByVal baseArray As Integer = 1) As Boolean
Dim f As Integer
Dim tLine As String
Dim tSplit As String
Dim buffer As String
Dim nbItem As Long
Dim k As Long, l As Long

    On Error GoTo ExportTxtFile_ERR
    
    f = FreeFile()
    Open fileName For Output As #f
              
    
    For k = LBound(tData(), 1) To UBound(tData(), 1)
         tLine = tData(k, LBound(tData(), 2))
        For l = LBound(tData(), 2) + 1 To UBound(tData(), 2)
            tLine = tLine & separator & tData(k, l)
        Next l
        Print #f, tLine
     Next k
     
     Close #f
  
    ExportTxtFile = True

ExportTxtFile_END:
    Exit Function
    
ExportTxtFile_ERR:
    errorString = Err.Description
    Resume ExportTxtFile_END
End Function

Conclusion :


cette fonction s'appelle de cette manière:
Dim sResult as string()
Dim r As Boolean, szErr As String

r = ExportTxtFile("F:\gestion doc en prgramation\feuilles\resultat.txt", "<%;%>", sResult(), szErr, 1)

"<%;%>" est le séparateur que j'ai choisi

r est une valeur booléne. Vrai=>
le tableau a été exporté
Faux=< le tableau n'a pas été exporté

Merci Jean Marc, là je n'ai pas fait grand chose ;)

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (gnieark)