Exporter un tableau dans un fichier texte (séparateur et retours à la ligne)
Soyez le premier à donner votre avis sur cette source.
Snippet vu 9 261 fois - Téléchargée 30 fois
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.
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 ;)
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
- Exporter un tableau dans un fichier texte (séparateur et retours à la ligne)
- Retour a la ligne c# - Forum C# / .NET
- Afficher un tableau php en html - Conseils pratiques -PHP
- Retour à la ligne c++ - Forum C / C++ / C++.NET
- N retour a la ligne - Forum PHP
- Python lire fichier texte ligne par ligne - Forum Python
23 août 2006 à 08:41
oui effectivement, je suis allé un peu vite et j'ai oublié de le supprimer.
La fonction export, je ne vais pas l'utiliser de suite, je dois finir l'interface utilisateur de mon programme (donc lecture seulement,à moins que je créé un "mouchard" pour savoir qui utilise le programme) et en dernier je referai une interface pour le gestionnaire (moi)
22 août 2006 à 19:55
je n'ai pas testé, mais à première vue ce n'est pas mal! Bonne utilisation de Freefile, de Lbound et Ubound, code bien indenté.
QQ petites choses:
- tu as gardé baseArray en paramètre optionel mais le code ne l'utilise pas. Tu peux donc l'enlever.
- Je ne vois pas ce que fait l'instruction tLine tData(k, LBound(tData(), 2)) qui suit le For k ...
=> Tu dupliques le premier élément de chaque ligne?? Ceci peut être enlevé à mon avis. Une erreur de copy/paste?
- Il n'y a pas besoin de redimensionner tdata(). Il est alloué par l'appelant, la fonction peut juste l'utiliser, il n'y a rien de plus à faire.
Bonne continuation :-)
21 août 2006 à 17:10
ReDim tdata(LBound(résultat(), 1) To UBound(résultat(), 1), LBound(résultat(), 2) To UBound(résultat(), 2))
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.