PureBasic

Code : Tout sélectionner

  *MemoireID = AllocateMemory(500)
  Debug *MemoireID
  SetClipboardText(Str(*MemoireID))
  If *MemoireID
    PokeS(*MemoireID, "1234",#PB_Ascii)   
    PokeS(*MemoireID+8, "1234") 
    
    ShowMemoryViewer(*MemoireID, 16) ; Affiche l'adresse du tampon suivi de 48 E9 6C E9 00
    CallDebugger
    FreeMemory(*MemoireID)  
  Else
    Debug "Impossible d'allouer la mmoire demande !"
  EndIf
  
  

Code : Tout sélectionner

   *MemoireID = AllocateMemory(500)
  Debug *MemoireID
  SetClipboardText(Str(*MemoireID))
  If *MemoireID
  
	 car.s="é" ; <-- code "é" en UTF8
	   PokeS(*MemoireID,car.s,#Pb_UTF8)   
 
    ShowMemoryViewer(*MemoireID, 16) ; Affiche l'adresse du tampon puis les Words  <<---- n'affiche pas le décodage ....

	 ; pour afficher le decodage il faut faire :
	Debug "Le caractere  est : "+ Chr( PeekA(*MemoireID+2)+64 ) ; on lit le Deuxieme Word et on ajoute 64
	 
    FreeMemory(*MemoireID) 
  Else
    Debug "Impossible d'allouer la mmoire demande !"
  EndIf
 
  

Code : Tout sélectionner

Procedure PokeS_Ascci(addresse,ligne$,rien=0)
  
  *asc=Ascii(ligne$)
  CopyMemory(*asc ,addresse, Len(ligne$))
  FreeMemory(*asc)

  
EndProcedure

Code : Tout sélectionner

*Ascii = Ascii("Hélé")
  ShowMemoryViewer(*Ascii, MemorySize(*Ascii)) ; Affiche l'adresse du tampon suivi de 48 E9 6C E9 00
    
  Debug PeekS(*Ascii, -1, #PB_Ascii) ; Affiche "Hélé"

Code : Tout sélectionner

Declare.s utf8toascii(ttx.s,mode)
 
 
 ;;*Ascii = Ascii("Hélé")  <<<< ceci ne transforme pas de l'unicode en Ascii , ça creer simplement un pointeur sur une chaine qui est Ascii deja a la base .....
 *UTF8 =UTF8("Hélé") ; mais si on part d'une chaine qui n'est pas AScii mais UTF8 ça ne marche pas !
 
 
  ShowMemoryViewer(*UTF8, MemorySize(*UTF8)) ; 
   
  Debug PeekS(*UTF8, -1, #PB_Ascii) ; essaye d'Affiche "Hélé"  au format Ascii ....marche pas ! ça affiche "Hélé"
  
  ; pareille si tu fais :
  
  *Ascii = Ascii("Hélé") 
  Debug PeekS(*ascii, -1, #PB_Ascii) 
  
  ; La seule Alternative pour Transformer de L'unicode (UTF8) en Ascii c'est de DECODER la chaine ! 
  ; comme ceci :
  Vraie_chaine_Ascii.s=UTF8toAscii(Peeks(*Ascii) ,#true)
  
  debug  "une Vraie chaine Ascii -> " +Vraie_chaine_Ascii.s
  
  
;- Zone Procedures
Procedure.s UTF8toAscii(ttx.s,Mode)
		; by Zorro / Dobro
		Protected Sortie.s="" ,decal=1 ,i,Long
		If Mode=#true ; travail en memoire
				Long=Len(ttx.s)*2 ; on prevoi un peu large !
		Else ; Travail sur caractere
				Long=Len(ttx.s)+1
		Endif
		For i=0 to long
				If Mode=#True ; travail sur memoire
						Code.c=PeekA(@ttx.s+i)
				Else
						Code.c=Asc(Mid(ttx.s,i+decal,1))
				Endif
				IF Code<127 
						Sortie.s=Sortie.s+chr(Code.c)
				Else
						; Traitement .
						If Mode=#True ; Travail sur memoire
								Code1.c=PeekA(@ttx.s+i)
								Code2.c=PeekA(@ttx.s+i+1)
						Else
								Code1.c=Asc(Mid(ttx.s,i+decal,1))
								Code2.c=Asc(Mid(ttx.s,i+decal+1,1))
						Endif
						; Verif
						Sortie.s=Sortie.s+chr(Code2.c+64)
						i=i+1
				Endif
		Next i
		ProcedureReturn Sortie.s
EndProcedure
  

Code : Tout sélectionner

machaineunicode.s = "Hélé"

taille = StringByteLength(machaineunicode)
Debug PeekS(@machaineunicode, taille, #PB_Unicode)
ShowMemoryViewer(@machaineunicode, taille)

CallDebugger

*machaineascii = Ascii(machaineunicode) ; Ici, la chaîne unicode est convertie en ASCII
ShowMemoryViewer(*machaineascii, MemorySize(*machaineascii))
Debug PeekS(*machaineascii, -1, #PB_Ascii)

CallDebugger

*machaineutf8 = UTF8(machaineunicode) ; Ici, la chaîne unicode est convertie en UTF8
Debug PeekS(*machaineutf8, SizeOf(*machaineutf8), #PB_UTF8)
ShowMemoryViewer(*machaineutf8, taille)

CallDebugger

machaineunicode = PeekS(*machaineascii, SizeOf(*machaineascii), #PB_Ascii) ; Ici, la chaîne ASCII est convertie en Unicode
taille = StringByteLength(machaineunicode)
Debug PeekS(@machaineunicode, taille, #PB_Unicode)
ShowMemoryViewer(@machaineunicode, taille)

CallDebugger

machaineunicode = PeekS(*machaineutf8, SizeOf(*machaineutf8), #PB_UTF8) ; Ici, la chaîne UTF8 est convertie en Unicode
taille = StringByteLength(machaineunicode)
Debug PeekS(@machaineunicode, taille, #PB_Unicode)
ShowMemoryViewer(@machaineunicode, taille)

Code : Tout sélectionner

 machaineAscii.s = chr($48)+chr($E9)+chr($6C)+chr($E9) ; on fabrique une vraie chaine ASCII 
machaineutf8.s="Hélé" ; <<<--- ceci est une VRAIE chaine UTF8


*machaineascii = Ascii(machaineutf8.s) ; Ici, la chaîne est  sensé etre convertie en ASCII
ShowMemoryViewer(*machaineascii, MemorySize(*machaineascii))
Debug PeekS(*machaineascii, -1, #PB_Ascii) ; ce n'est pas le cas, elle affiche toujours "Hélé" ...... elle n'est pas décodée !!! alors qe ma procedure DECODE ;)
; ma procedure fait une Vraie conversion UTF8 ---> ASCII puisqu'elle effectue un DECODAGE de la chaine ...
CallDebugger


*machaineutf8 = UTF8(machaineAscii.s) ; Ici, la chaîneAscii est convertie en UTF8 <<<<<--- NON CAR
taille = StringByteLength(machaineAscii.s)
Debug PeekS(*machaineutf8, SizeOf(*machaineutf8), #PB_UTF8) ; ça devrai dans ce cas afficher "Hélé" dans le debugger , et ce n'esst pas le cas
ShowMemoryViewer(*machaineutf8, taille)

CallDebugger

Code : Tout sélectionner

mafaussechaineAscii.s = Chr($48)+Chr($E9)+Chr($6C)+Chr($E9) ; on fabrique une fausse chaine ASCII 

CallDebugger
ShowMemoryViewer(@mafaussechaineAscii, StringByteLength(mafaussechaineAscii))

mafaussechaineutf8.s="Hélé" ; <<<--- ceci N'est PAS une VRAIE chaine UTF8 

CallDebugger
ShowMemoryViewer(@mafaussechaineutf8, StringByteLength(mafaussechaineutf8))

Code : Tout sélectionner

*MemoireID = AllocateMemory(500)
  Debug *MemoireID
  SetClipboardText(Str(*MemoireID))
  If *MemoireID
    PokeS(*MemoireID, "1234",4,#PB_Ascii)  ;;; N'oubliez pas la longueur en ASCII 
    PokeS(*MemoireID+8, "1234")
   
    ShowMemoryViewer(*MemoireID, 16) ; Affiche l'adresse du tampon suivi de 48 E9 6C E9 00
    CallDebugger
    FreeMemory(*MemoireID) 
  Else
    Debug "Impossible d'allouer la mmoire demande !"
  EndIf

Code : Tout sélectionner

Procedure.i Unicode2ASC(string.s)
  If Len(string) <= 0
    Debug "String is empty"
    ProcedureReturn #False
  EndIf
  *asciibuffer = AllocateMemory(Len(string) + 1)
  If *asciibuffer
    PokeS(*asciibuffer, string, Len(string), #PB_Ascii)  ; Don't forget ASCII length
  Else
    Debug "Can't allocate needed memory"
    ProcedureReturn #False
  EndIf
  ProcedureReturn *asciibuffer
EndProcedure

Procedure.s Asc2Unicode(*string)
  If *string = 0 Or MemorySize(*string) <= 0
    Debug "String is empty"
    ProcedureReturn ""
  EndIf
  ProcedureReturn PeekS(*string, MemorySize(*string) - 1, #PB_Ascii)
EndProcedure

;- MAIN

OpenConsole()
NativeUnicodeString.s = "hélé"
PrintN(NativeUnicodeString)

*ConvertedASCIIString = Unicode2ASC(NativeUnicodeString.s)

PrintN(Asc2Unicode(*ConvertedASCIIString))

ShowMemoryViewer(*ConvertedASCIIString, MemorySize(*ConvertedASCIIString))
CallDebugger

FreeMemory(*ConvertedASCIIString) ; Don't forget to free ASCII memory buffer