VB access : Export en fichier texte : Incrémenter un N° de ligne

Question

Bonjour à tous, je suis débutant en VB 

Je construis un fichier texte  via Access contenant :

une ligne début
n lignes enregistrements (données d'une requête)
une ligne Fin 

J'utilise une fonction pour chaque type de ligne avec la commande file.WriteLine et c'est ok 

Mon problème est que je doit numéroter toutes les lignes avec un N° incrémental :

0000001
0000002
0000003
etc

et je ne sais pas comment faire.

Si quelqu'un peut me donner une piste, ça m'aiderai beaucoup ?

Merci d'avance

NHenry · Answer

Bonjour, 

Tu fais comment on export actuellement ?

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS, ce lien ou encore celui-ci[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : )
[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés./list
---
Mon site

Manu1070 · Answer

Bonjour

J'Utilise le code suivant avec une fonction pour l&#8217;entête, une pour les enrts et une pour l'enpieds 

file.WriteLine EnteteFichier(RS)
LRK = "select * from sel"
Set RS = CurrentDb.OpenRecordset(LRK)
Do While Not RS.EOF
file.WriteLine Enregistrement(RS)
RS.MoveNext
Loop
file.WriteLine EnpiedFichier(RS)
End Sub

Function EnteteFichier(RecS)
RES_Entete = ""
    RES_Entete = RES_Entete & "XX"
    RES_Entete = RES_Entete & "XX"
    RES_Entete = RES_Entete & "XX"
    RES_Entete = RES_Entete & "XX"
EnteteFichier = RES_Entete
End Function

idem pour les enrts et l'empieds

NHenry · Answer

Bonjour, 

Le code montré répond partiellement à la question, étant donné que la fonction Enregistrement n'est pas montrée.
De plus, pense à lire le point 2 de ma signature.

Sinon, il te faut une variable de comptage dans ta fonction qui contient ta boucle 
Do While Not RS.EOF 
Puis tu passes la variable dans la fonction Enregistrement en argument ByRef.

Au vu du code, je doute que ton langage soit VB.NET, peux-tu confirmer ?

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS, ce lien ou encore celui-ci[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : )
[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés./list
---
Mon site

VB access : Export en fichier texte : Incrémenter un N° de ligne

3 réponses

Votre réponse

Discussions similaires