Conversion du code Ascii 146 (Apostrophe) [Résolu]

Signaler
-
 Cpapy -
Bonjour,

Je récupère du texte sur Internet que j'utilise dans un programme VB6.
L'analyse par mon programme de ce texte qui contient des apostrophes Asc(146) lui pose problème.

J'ai utilisé l'instruction suivante pour remplacer ce "faux" apostrophe. Malheureusement, cette instruction ne solutionne pas mon problème

Text1.text = replace(text1.text,asc(145),asc(39))  ou
Text1.text = replace(text1.text,asc(145),"'")

Par avance Merci pour votre aide

2 réponses

Messages postés
14790
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
15 mai 2021
155
Regardes l'aide et les différences entre ASC et CHR ...
Et tu as mis 145, pas 146 ...

J'interviens principalement en VB6 et VB.NET, avec un peu de C#, mais la modération m'amène souvent sur d'autre langages.
En VB.NET pensez à activer "Option Explicit" et "Option Strict"
Bonjour,

Finalement c'était très simple !

Text1.text = Replace(Text1.text, Chr(146), "'")