Les grincheux font rarement avancer le Schmilblik, une simple remarque est plus pertinante.

Le bon code est :
Code : Tout sélectionner
#src=0
#dst=1
Lg=0
source$=OpenFileRequester("Fichier traité","*.*","*.*",1)
destin$=SaveFileRequester("Fichier à traiter","dump.hex","*.*",1)
temps = GetTickCount_()
If source$>""
If destin$>""
OpenFile(#src,source$)
CreateFile(#dst,destin$)
Lg = Lof(#src)
If Lg>0
*Source=AllocateMemory(Lg)
*Destin=AllocateMemory(Lg*3)
ReadData(#src,*Source,Lg)
For n=0 To Lg
m=n*3
dec=PeekC(*Source+n)
H=(dec/16)+48
If H>57 : H+7 :EndIf
b=(dec%16)+48
If b>57 : b+7 :EndIf
PokeW(*Destin+ m,(H*256)+b)
PokeC(*Destin+ m+2,44)
Next
WriteData(#dst,*Destin,Lg*3) ;>>>>>>>>>>>>>>>>> L'erreur était ici "Lg*3" au lieu de "Lgd"
EndIf
EndIf
EndIf
CloseFile(#src)
CloseFile(#dst)
MessageRequester("Etat du programme", "Conversion finie " +Str( GetTickCount_()-temps )+" ms")