Soyez le premier à donner votre avis sur cette source.
Snippet vu 9 261 fois - Téléchargée 30 fois
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
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.