Discussion :

[JBLCN]

Je dispose d'une table sous access avec differents champs de longueurs variables.

Je voudrais creer à partir de cette table un fichier texte, sans séparateurs, ou chaque champ aura une longueur fixe.

Exemple de champs: ville 25 caracteres, nombre d'habitants : 8 caracteres et...

Pour obtenir :

Pour obtenir :

Trion-suroise..........25000
Villefranche............32000
Perfusi..................45000

Avce les points en moins !

Merci de votre aide

[argyronet]

Bonjour (non facultatif sur ce forum).

Tu utilise un FSO (FileSystemObject) pour construire ton fichier avec les méthodes Write et compagnie...
Tu prends un objet Recordset qui parcours ta table enregistrement par enregistrement et qui selon le champ examiner lui affecte la longueur souhaitée avec une fonction maison :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Function FormaterAvecEspaces(ByVal Champ As String, _
ByVal Longueur As Integer) As String
Dim strNouveauChamp As String
Dim intEcart As Integer

&#160;&#160;If Len(Champ) < Longueur Then
&#160;&#160;&#160;&#160;intEcart = Longueur - Len(Champ)
&#160;&#160;&#160;&#160;strNouveauChamp = Champ & String(intEcart, " ")
&#160;&#160;Else
&#160;&#160;&#160;&#160;strNouveauChamp = Champ
&#160;&#160;End If
&#160;&#160;FormaterAvecEspaces = strNouveauChamp
End Function

qui te retourne le champ dans la bonne longueur.

Une variable Buffer se rempli d'elle même, c'est à dire qu'elle concatène chaque champ traité par la dite fonction et arrivé au dernier champ de l'enregistrement en cours, tu y ajoutes un vbCrlf puis boucle jusqu'au dernier.

Bien entendu, tu dois avoir une variable tableau des longueurs indexées pour chaque champ qui correpond à la longueur souhaité pour chacun d'eux. Au fur et à mesure que tu lis les champs, tu affectes au paramètre Longueur de la fonction FormaterAvecEspaces, la valeur correspondante...

Une fois ton buffer rempli, tu créés un fichier avec FSO et tu écris le buffer dedans.

C'est terminé.

Argy