cs_JeffC1977
Messages postés928Date d'inscriptionvendredi 10 novembre 2000StatutMembreDernière intervention23 septembre 2023
-
8 janv. 2008 à 15:31
cs_JeffC1977
Messages postés928Date d'inscriptionvendredi 10 novembre 2000StatutMembreDernière intervention23 septembre 2023
-
8 janv. 2008 à 16:26
Salut à tous...
J'ai un problème... avec l'écriture dans un fichier....
Je cré un fichier mais je suis incapable d'écrire dans ce fichier... Le texte qui devrait être inscrit dans le fichier s'inscrit dans ma Form ??????? Je comprend vraiment pas pourquoi....
Voyez-vous pourquoi ça s'inscrit sur ma form ????
P.S. Ce que je veux enregistrer se trouve dans un ListData.
Merci de votre aide
Voici mon code....
Dim i as Integer
Dim iFile As Integer
iFile = FreeFile
CommonDialog1.CancelError = False
CommonDialog1.Flags = cdlOFNFileMustExist Or cdlOFNPathMustExist
CommonDialog1.Filter = "Fichiers TXT (*.txt)|*.txt"
CommonDialog1.InitDir = "m:\Carnet"
CommonDialog1.DialogTitle = "Enregistrer"
If Len(txtFichier.Text) = 11 Then
CommonDialog1.FileName = Left(txtFichier.Text, 7)
ElseIf Len(txtFichier.Text) = 12 Then
CommonDialog1.FileName = Left(txtFichier.Text, 8)
End If
CommonDialog1.ShowSave
Open CommonDialog1.FileName For Output As iFile 'Ouverture d'un fichier Output
For i = 0 To ListData.ListCount - 1
Print iFile, ListData.List(i)
Next
Close iFile
cs_Exploreur
Messages postés4821Date d'inscriptionlundi 11 novembre 2002StatutMembreDernière intervention15 novembre 201615 8 janv. 2008 à 15:43
Salut,
Essaye avec ce que je viens de mettre nen rouge :
Dim i as Integer
Dim iFile As Integer
iFile = FreeFile
CommonDialog1.CancelError = False
CommonDialog1.Flags = cdlOFNFileMustExist Or cdlOFNPathMustExist
CommonDialog1.Filter = "Fichiers TXT (*.txt)|*.txt"
CommonDialog1.InitDir = "m:\Carnet"
CommonDialog1.DialogTitle = "Enregistrer"
If Len(txtFichier.Text) = 11 Then
CommonDialog1.FileName = Left(txtFichier.Text, 7)
ElseIf Len(txtFichier.Text) = 12 Then
CommonDialog1.FileName = Left(txtFichier.Text, 8)
End If
CommonDialog1.ShowSave
Open CommonDialog1.FileName For Output As #iFile 'Ouverture d'un fichier Output
For i = 0 To ListData.ListCount - 1
Print #iFile, ListData.List(i)
Next
Close #iFile
pile_poil
Messages postés682Date d'inscriptionvendredi 6 avril 2007StatutMembreDernière intervention 4 août 20126 8 janv. 2008 à 15:51
Explorer tu as raison pour le #
par contre
pour le print je suis moins d'accord avec toi
pour preuve voir l'extrait de la doc de VB6 ci dessous
Note Si vous souhaitez lire ultérieurement un
fichier à l'aide de l'instruction Input #, utilisez l'instruction
Write # plutôt que l'instruction Print # pour écrire les données
dans ce fichier. L'utilisation de l'instruction Write # garantit
l'intégrité de chaque champ de données grâce à une délimitation précise, de
sorte que le fichier peut ensuite être relu à l'aide de l'instruction Input
#. L'instruction Write # permet également une lecture correcte du
fichier, quels que soient les paramètres régionaux.
cs_Exploreur
Messages postés4821Date d'inscriptionlundi 11 novembre 2002StatutMembreDernière intervention15 novembre 201615 8 janv. 2008 à 15:57
Pile-Poil >> Lol....Je ne t'ais pas contre-dit...J'ai juste répondu à son problème. Maintenant il fait comme bon lui semble, c'est son code après tout....
cs_JeffC1977
Messages postés928Date d'inscriptionvendredi 10 novembre 2000StatutMembreDernière intervention23 septembre 20234 8 janv. 2008 à 16:26
Re...
Pour répondre à tes questions...
A quoi te sert le test Len sur ta zone de texte:
Et bien dans le programme le fichier peut avoir (toujours)soit 11 ou 12 caractères...
T080108.XCA ou TC080108.XCA
Le fichier XCA est un fichier "non traité". Une fois traité, l'utilisateur le sauvegarde en .TXT
Ce code sert uniquement à inscrit le même nom de fichier sans le .XCA. Ainsi l'utilisateur n'a pas à réinscrire le nom du fichier. et à appuyer sur Enregistrer. Le fichier s'enregistre en .TXT. Je laisse apparitre la boite de dialogue au cas où l'utilisateur préfère changer le nom du fichier.
Pour ce qui est du bouton Annuler... J'ai pas vraiment tester mais pour le moment ca génère ausun erreur...
Que me suggères-tu ???