Bonjour,
Mon problème est très simple, je voudrais créer une chaine de caractère en fonction d'un calcul (lors du programme)
Par exemple suite au calcul j'obtiens par exemple 5
Donc créer une chaine de 5 " "
Pourquoi me direz vous ?
J'ai une instruction du type suivant pour remplir une zone de liste
et je voudrais que les espaces soit bien délimité
solde est un nombre décimal
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 lsthist.Items.Add(Format(Dat, "dd/MM/yyyy") & " " & solde & " " & _ Op & " " & mont & " = " & res & " " & Jt)
de même que mont
et res
La ligne que j'obtiens est en fait du type
Je voudrais que toutes les valeurs soient bien alignée
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 12/12/2007 5000 + 500.50 = 5500.50 ajout sur le compte 15/12/2007 5500 - 10.50 = 5489.50 retrait sur le compte
Pour cela je par du principe que toute mes valeurs chiffrées on une longueur maximale de 11 caractères
et donc je devrais pour chaque chiffre calculer le nombre d'espace à mettre pour que cela s'aligne avec la ligne suivante
Je devrais utiliser une instruction du type string(cal," ") Mais le problème c'est que je me rapelle plus de l'instruction
pour avoir alors le bon alignement j'aurais une ligne du genre
J'obtiendrais alors un résultat du type
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 ' ' ' sepA=str(11- string-length(Solde)," ") & " " sepB=str(11-string-length(mont)," ") & " " sepC=str(11-string-length(res)," ")& " " lsthist.Items.Add(Format(Dat, "dd/MM/yyyy") & " " & solde & sepA & Op _ & sepB & mont & sepC & " = " & res & sepD & & Jt)
En fait à ce moment tout est parfaitement aligné
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 12/12/2007 5000 + 500.50 = 5500.50 ajout sur le compte 15/12/2007 5500 - 10.50 = 5489.50 retrait sur le compte
Quelqu'un pourrait-il m'aider
Partager