Procedure Unicode Vers Ansi

[brossden]

Bonjour à tous
Je ne sais pas si cela peut intéresser quelqu'un ou si cette procedure exite déjà mais comme je ne l'ai pas trouvée et que j'en ai eu besoin la voici !

Code : Tout sélectionner

Procedure.s UnicodeVersAnsi(ttx.s)
  txt.s=""
  x= @ttx -1
  For n=1 To Len(ttx)
    txt = txt + Chr(255 & PeekA(x+n))
  Next
  ProcedureReturn txt.s
EndProcedure

Voilà, je pense qu'elle parle d'elle même !

Bonne journée à tous

[falsam]

Ca doit fonctionner avec la version 5.61 de PureBasic ?

Code : Tout sélectionner

Procedure.s UnicodeVersAnsi(ttx.s)
  txt.s=""
  x= @ttx -1
  For n=1 To Len(ttx)
    txt = txt + Chr(255 & PeekA(x+n))
  Next
  ProcedureReturn txt.s
EndProcedure

;Transformation d'une chaine ASCII vers unicode 
*UTF8 = UTF8("Héhé") 

;Visualisation du résultat
ShowMemoryViewer(*UTF8, 6) ;Héhé

;Ici j'ai l'impression que ça ne fonctionne pas
Debug UnicodeVersAnsi(PeekS(*UTF8))
;ou
Debug UnicodeVersAnsi("Héhé")

[Micoute]

Bonjour falsam, hélas non, ton exemple ne fonctionne avec aucune version de PureBasic.

[Kwai chang caine]

C'est dingue mon cher DENIS (que je salut bien bas au passage )
Les grands esprits se rencontrent, moi aussi hier je me battais avec l'UNICODE pour faire causer VB6 et les DLL pb désormais UNICODE in vitam eternam

Et LUNASOLE sur le US, m'a donné cette combine qui est courte et efficace, ça peut peut etre aussi servir
http://www.purebasic.fr/english/viewtop ... 71#p511071

Code : Tout sélectionner

EnableExplicit
; str$   :   PB unicode string
; RETURN:   ascii string packed into PB unicode string
Procedure$ ToAscii (str$)
   Protected out$ = Space(1 + Len(str$) / 2)
   PokeS(@out$, str$, -1, #PB_Ascii)
   ProcedureReturn out$
EndProcedure
; back to unicode
Procedure$ FromAscii (str$)
   ProcedureReturn PeekS(@str$, -1, #PB_Ascii)
EndProcedure



ProcedureDLL.s Essai(Texte.s)
 texte = FromAscii(texte)
 MessageRequester("Unicode variable", texte)
 
 texte = ToAscii(texte)
 ProcedureReturn Texte
EndProcedure

Que le grand esprit de la "Brosse à dent" soit avec toi, vieux poteau de mes débuts

[Micoute]

Merci Kwai chang caine, ça fonctionne merveilleusement bien.

[Kwai chang caine]

De rien mon bon MICOUTE...
Moi j'suis le serveur....c'est le cuisto qu'il faut remercier en cuisine
Moi dans ce domaine, j'sais même pas allumer le gaz

[Micoute]

Je dois te remercier quand même, car sans ton intervention, je n'aurais à remercier personne.

[Zorro]

ben non !!

aucun de vos codes ne marche avec l'exemple de Falsam !!

si on fait bouffer de l'UTF8 a vos codes, ils se gaufrent !!

la preuve le code a KCC et a BrossDen

Code : Tout sélectionner

Procedure.s ToAscii (str$)
; KCC
   Protected out$ = Space(1 + Len(str$) / 2)
   PokeS(@out$, str$, -1, #PB_Ascii)
   ProcedureReturn out$
EndProcedure
; back to unicode
Procedure.s FromAscii (str$)
   ProcedureReturn PeekS(@str$, -1, #PB_Ascii)
EndProcedure

Procedure.s UnicodeVersAnsi(ttx.s)
;BrossDen
  txt.s=""
  x= @ttx -1
  For n=1 To Len(ttx)
    txt = txt + Chr(255 & PeekA(x+n))
  Next
  ProcedureReturn txt.s
EndProcedure





*UTF8 = UTF8("Héhé")

;********* teste KCC ****************************************

t$=Peeks(*UTF8)
texte.s = ToAscii( t$)
MessageRequester("Version travail en Memoire", texte.s+space(255))

texte.s = ToAscii("Héhé")
MessageRequester("Version Travail sur Chaine", texte.s+space(255))

; *************************************************************


; ******************* test BrossDen *******************************

t$=Peeks(*UTF8)
texte.s = UnicodeVersAnsi(t$)
MessageRequester("Version travail en Memoire", texte.s+space(255))


texte.s = UnicodeVersAnsi("Héhé")
MessageRequester("Version Travail sur Chaine", texte.s+space(255))

; ******************************************************************

ps: j'ai la (une) solution , je la donnerai plus tard

[falsam]

La procédure de BrossDen ne fonctionne pas, c'est ce que j'ai tenté de montrer avec mes codes.

ps: j'ai la (une) solution , je la donnerai plus tard

J'ai aussi donné une solution à Blendman.

J'ai stocké un fichier test.txt au format unicode sur un serveur.

La suite à lire sur ce lien : http://www.purebasic.fr/french/viewtopi ... 34#p194834

[Zorro]

oui mais tu ne transforme pas l'UTF8 en Ascii !
tu lui permet de lire de l'UTF8 , c'est pas la meme chose

[Kwai chang caine]

si on fait bouffer de l'UTF8 a vos codes, ils se gaufrent !!

J'y comprend toujours rien...mais tout d'un coup ça me reviens qu'il me semble que l'unicode que je devais retourner à VB etait de UTF16 comme me l'a expliqué TsSoft le soit disant "vrai" UNICODE, c'est peut être la raison que ça marche pas...enfin j'dis ça...j'dis rien
http://www.purebasic.fr/english/viewtop ... 65#p511065

[Ollivier]

Ah non, ça ne va pas recommencer dans des débats de 10 pages où chacun fout sa sauce, dans un 1er temps, après il y en a qui commencent à dire qu'ils se sont faits piquer leur recette en traitant les autres de pirates, dans un second temps. Lancer de ramponneaux dans un troisième temps.

Puis une fois que tout le monde est bien gaufré, qu'il y a des dents abandonnées, on se rend compte qu'il y a une simple API pour Windows et une simple API pour Linux, et puis c'est marre.