GML, 16진수를 10진수로 변환하는 스크립트 (HEX to DEC)

 

이 스크립트는 16진수 문자열을 10진수 실수로 변환해줍니다.

소문자 16진수 문자열도 지원하기를 원하시면 //num1=string_upper(num1) 의 주석을 제거해주시면 됩니다.

 

어렸을 때 만든 거라 최적화 부분이 잘 되어있는지는 모르겠네요.

스크립트 사용방법은, 변수 = 스크립트("A") 이런 식으로 사용하시면 됩니다.

 

///HEX to DEC: Real
 
var num1, length, total, va1, i, j;
 
num1=argument0
//num1=string_upper(num1)
while(string_copy(num1, 1, 1)="0"){num1=string_delete(num1, 1, 1)}
 
length=string_length(num1)
total=0
 
for(i=0; i!=length; i+=1)
{
    va1=1
    stringeses=string_copy(num1, 1, 1)
    num1=string_delete(num1, 1, 1)
    
    if stringeses="A"{stringeses="10"}
    if stringeses="B"{stringeses="11"}
    if stringeses="C"{stringeses="12"}
    if stringeses="D"{stringeses="13"}
    if stringeses="E"{stringeses="14"}
    if stringeses="F"{stringeses="15"}
    
    if length-i-2>=0{for(j=0; j!=length-i-2; j+=1){va1=va1*16}}
   
    if i+1!=length{total+=16*va1*real(stringeses)}
    else{total+=real(stringeses)}
}
 
return total
 
//ARG 0: HEX

 

http://cafe.naver.com/playgm