[VB6] Création de fichier texte dont le titre est automatiquement généré [Résolu]
A voir également:
- [vb6] création de fichier texte dont le titre est automatiquement généré
- Formatage fichier texte (pour sous-titre par ex.) - Codes sources - Visual Basic / VB.NET (Fichier / Disque)
- Visual Basic / VB.NET : Gestion dsn sqlserver et creation de fichier texte pour pouvoir importer des - Guide
- VB6 inserer dans fichier texte ✓ - Forum - VB.NET
- Arbre binaire: création d'un lexique a partir d'un fichier texte et statistiques [vc++ 6.0] - Codes sources - C / C++ / C++.NET (Chaînes de caractères)
- Création d'un dossier avec 5 fichiers textes et suppression de l'ensemble - Codes sources - C# / .NET (Fichiers / Disque)
4 réponses
PhilocheMan
- Messages postés
- 55
- Date d'inscription
- jeudi 28 juillet 2005
- Statut
- Membre
- Dernière intervention
- 23 mars 2006
Salut,
Dim fso, strName, i&
Set fso = CreateObject("Scripting.FileSystemObject")
Do
i& = i& + 1
strName = "c:\monchemin\FIC." & Format$(i&, "###") & ".txt"
Loop While (fso.FileExists(strName))
Set a = fso.CreateTextFile(strName, True)
Bon code
Dim fso, strName, i&
Set fso = CreateObject("Scripting.FileSystemObject")
Do
i& = i& + 1
strName = "c:\monchemin\FIC." & Format$(i&, "###") & ".txt"
Loop While (fso.FileExists(strName))
Set a = fso.CreateTextFile(strName, True)
Bon code
Salut,
Je suppose que c est cette partie qui te poses probleme:
'001' entier qui s'incrémente à chaque fois qu'on génére un fichier (doit être sauvegardé quelque part aussi dans un fichier sur le disque pour ne pas avoir 2 fichiers de même noms et pour garder trace de tous les anciens)
Si les fichiers crees sont toujours dans le meme repertoire, tu peux essayer de recuperer le nombre puis l'incrementer de 1
Du style:
Tu recuperes tous les nom de fichier cree et tu isole les numero avec Num = cint(Split(NomFichier, ".")(1))
@+, Julien
Pensez: Moteur de Recherche, Réponse Acceptée
Je suppose que c est cette partie qui te poses probleme:
'001' entier qui s'incrémente à chaque fois qu'on génére un fichier (doit être sauvegardé quelque part aussi dans un fichier sur le disque pour ne pas avoir 2 fichiers de même noms et pour garder trace de tous les anciens)
Si les fichiers crees sont toujours dans le meme repertoire, tu peux essayer de recuperer le nombre puis l'incrementer de 1
Du style:
Tu recuperes tous les nom de fichier cree et tu isole les numero avec Num = cint(Split(NomFichier, ".")(1))
@+, Julien
Pensez: Moteur de Recherche, Réponse Acceptée
Merci beaucoupr les amis et spécialement PhilocheMan pour l'astuce, j'aimerai bien completer cà par une autre partie qui dit que sur chaque fichier créé, doit comporter une ligne (enregistrement) dont les champs: ORDSEQCNS
"ORD" chaine de caractère fixe
"SEQ" entier, correspond à un numéro sequentiel (s'inrémentnat à chaque creation d'un fichier, 2 fichiers différents ne doivent pas porter un même numéro SEQ!!)
"CNS" champ non significatif, de longueur de 31 (doit être rempli de blancs!!)
Merci de m'apporter soutien.
"ORD" chaine de caractère fixe
"SEQ" entier, correspond à un numéro sequentiel (s'inrémentnat à chaque creation d'un fichier, 2 fichiers différents ne doivent pas porter un même numéro SEQ!!)
"CNS" champ non significatif, de longueur de 31 (doit être rempli de blancs!!)
Merci de m'apporter soutien.