Conversion du code Ascii 146 (Apostrophe)Résolu

Question

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))  ouText1.text = replace(text1.text,asc(145),"'")  
Par avance Merci pour votre aide

NHenry · Answer

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"

Cpapy · Answer

Bonjour,

Finalement c'était très simple !

Text1.text = Replace(Text1.text, Chr(146), "'")

Conversion du code Ascii 146 (Apostrophe)

2 réponses

Votre réponse

Discussions similaires