Discussion :

[Invité]

Bonjour à tous,

Voila je souhaiterais écrire dans un fichier des données avec un format bien défini.

Par exemple, je souhaiterais un fichier de ce type :

Nom ; Prénom ;

Avec nom de taille 20 caractères et prénom de 20 caractère également. Si j'ai un prénom de 5 lettres, alors je devrais ajouter 15 caractères blanc (vide) à gauche de celui-ci.

Ca me donnerais donc ceci :

"***************nicos" ; "***************nicos"

Existe-t-il une fonction qui fait ca ?

Merci d'avance pour votre aide

[Phifi]

Pas à ma connaissance, mais tu peux en faire une facilement avec Trim(), Len() et String() voire Mid()

[ProgElecT]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub Form_Load()
Dim A1 As String, A2 As String, A3 As String
Me.Font.Name = "courier new"
Me.FillStyle = 0
Me.AutoRedraw = True
A1 = "Moi": A2 = "Un autre"
A3 = "la le mot est trop long"
If Len(A1) < 21 Then
 Me.Print String(20 - Len(A1), "*") & A1
 Else
 Me.Print Left(A1, 20)
End If
If Len(A2) < 21 Then
 Me.Print String(20 - Len(A2), "*") & A2
 Else
 Me.Print Left(A2, 20)
End If
If Len(A3) < 21 Then
 Me.Print String(20 - Len(A3), "*") & A3
 Else
 Me.Print Left(A3, 20)
End If

Un coup de F1 sur String, ou F2 -> rechercher "String", un coup sur le bouton "jumelles", et hop on a les explications

[zazaraignée]

Tu définis un type particulier avec tous les champs d'un enregistrement. Exemple:

Code :

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

1
2
3
4
5
6
7
Type MembreClub
    Nom As String * 20      ' chaîne de 20 caractères
    Prenom As String * 20   ' idem
    Adresse As String * 40  ' chaîne de 40 caractères
    DateNais As Date
    DateInscription As Date
End Type

[ProgElecT]

blanc (vide) à gauche

Là pour le type String * 20, les blancs sont à droite, il nous pose une colle, non ?

[zazaraignée]

En effet, j'avais pas remarqué... Mais en principe, les blancs sont à droite, non? Surtout si c'est pour enregistrer dans un fichier binaire...

[Invité]

Code :

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

 Nom As String * 20      ' chaîne de 20 caractères

Effectivement, cette solution place les blanc à droite
Pas de possibilité de les mettre à gauche ? (sans faire de gros traitement sur les chaines de caractères).

[Phifi]

(sans faire de gros traitement sur les chaines de caractères).

Faut quand même pas exagérer ! Tu as la longueur fixe de ton champ final (tu peux même passer une longueur de remplissage variable)

Tu passes ta chaine en argument et tu récupères quelques de formaté à ta guise :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Function FillRight(Byval machaine as String) As String
   Dim lonchain as Integer
   '
   lonchain = Len(machaine)
   If lonchain<20 Then
       FillRight = String(20 - longchain, " ")  & machaine
   Else
       FillRight = Left(machaine, 20)
   End If
   '
End Function