Problème sur le Retour chariot
Résolu
gaudian
Messages postés
62
Statut
Membre
-
Mourad EL Bakkouri -
Mourad EL Bakkouri -
Bonjour,
Je souhaiterai savoir comment faire pour suprimer un retour chariot sous VB6.
Je vous présente comment est effectué mon enregistrement, je dispose d'une BDD sous Access avec un champ de Mémo qui s"intitule MatConf.
Losrsque j'affiche mon enregistrement (MatConf) par le biais d'un MsgBox, celui-ci apparaît de cette façon :
Commentaire 1
Commentaire 2
Commentaire 3
Voici mon bout de code
Je souhaiterai avoir l'affichage de cette façon :
Commentaire 1, Commentaire 2, Commentaire 3
Merci d'avance
Je souhaiterai savoir comment faire pour suprimer un retour chariot sous VB6.
Je vous présente comment est effectué mon enregistrement, je dispose d'une BDD sous Access avec un champ de Mémo qui s"intitule MatConf.
Losrsque j'affiche mon enregistrement (MatConf) par le biais d'un MsgBox, celui-ci apparaît de cette façon :
Commentaire 1
Commentaire 2
Commentaire 3
Voici mon bout de code
MsgBox Trim(Data1.Recordset.Fields(("MatConf")))
Je souhaiterai avoir l'affichage de cette façon :
Commentaire 1, Commentaire 2, Commentaire 3
Merci d'avance
A voir également:
- Problème sur le Retour chariot
- Retour à la ligne excel - Guide
- Retour à la ligne chatgpt - Forum PHP
- Retour à la ligne tchat. - Forum Réseaux sociaux
- Retour à la ligne google sheet ✓ - Forum Bureautique
- Aller à la ligne lors de la rédaction d'un message ✓ - Forum MacOS
12 réponses
Dans VB6, tu peux utiliser la fonction Asc pour trouver le code ascii du retour chariot.
Par exemple, dans une boucle for, tu peux faire comme ceci :
for Q = 0 to len(Data1.Recordset.Fields(("MatConf"))))
msgbox Asc(mID(Data1.Recordset.Fields(("MatConf")), Q, 1))
next Q
Ensuite tu utilise la fonction Replace pour remplacer ton retour chariot par une virgule ;)
Par exemple, dans une boucle for, tu peux faire comme ceci :
for Q = 0 to len(Data1.Recordset.Fields(("MatConf"))))
msgbox Asc(mID(Data1.Recordset.Fields(("MatConf")), Q, 1))
next Q
Ensuite tu utilise la fonction Replace pour remplacer ton retour chariot par une virgule ;)
Le retour chariot correspond à un code ASCII, donc peut-etre devrais-tu chercher le caractère "retour chariot" dans ta chaine, puis le remplacer par une virugule.
En réponse à ton code, mon application rentre dans la boucle arrivé à MsgBox.
Mon appli plante, il va directement en erreur
Mon appli plante, il va directement en erreur
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Il te met quoi en erreur ? Peut-etre mettre plutot Data1.Recordset.Fields(("MatConf")).value
Cependant cette boucle c'est juste pour trouver le code ASCII, mais tu pourrais le trouver dans une table ASCII.
Après à toi d'utiliser la fonction Replace dans une boucle FOR, c'est pas très compliqué je pense :)
Cependant cette boucle c'est juste pour trouver le code ASCII, mais tu pourrais le trouver dans une table ASCII.
Après à toi d'utiliser la fonction Replace dans une boucle FOR, c'est pas très compliqué je pense :)
comment fonctionne cette fonction replace?
je te pose peut etre des questions trop simple mais je débute en programmation
je te pose peut etre des questions trop simple mais je débute en programmation
D'accord. Pour la fonction Replace à toi de chercher un peu sur google.
Tape : vb6 fonction replace
Bon courage ;)
Tape : vb6 fonction replace
Bon courage ;)
C'est bon j'ai trouvé,
Il faut ajouter 2 Replace
newMatConf = Replace(Trim(Replace(Data1.Recordset.Fields(("MatConf")), Chr(10), "!")), Chr(13), "?")
Il faut ajouter 2 Replace
newMatConf = Replace(Trim(Replace(Data1.Recordset.Fields(("MatConf")), Chr(10), "!")), Chr(13), "?")
