龙龙仔，问个问题

onej

龙龙仔，能详细解释一下吗？ dispbbs.asp?boardID=3&ID=11277&page=1

alin

一样的，只是十六进制和十进制的表达不同。

onej

谢谢楼上!

onej

命令: (FIND_SERIALNUMBER "c:")
-1400584404 →16进制：537B38D4
命令: (dos_serialno)
"AC84C72C" →10进制： 2894382892
不一样呀!

alin

命令: (MI_HTOI "AC84C72C")
-1400584404 ;; ! ***************************************************************************
;; ! MI_htoi
;; ! ***************************************************************************
;; ! Function : Convert from hexadecimal string to integer
;; ! Argument : 'str' - Hexadecimal String
;; ! Return : The decimal integer
;; ! Update : August 6, 1998
;; ! e-mail : rakesh.rao@4d-technologies.com
;; ! Web : www.4d-technologies.com
;; ! **************************************************************************** (defun MI_htoi (str / prmpt num int)
(setq int 0 str (strcase str) ;force str uppercase
prmpt (strcat "\nInvalid hex value " str) ;build error prompt
)
(while ;process each
(/= 0 (setq num (substr str 1 1) ;get 1st character
str (substr str 2) ;remainder
num (ascii num) ;return ascii value
) )
(if (setq num ;return base 10 value
(cond
( (< num 48) (prompt prmpt)) ;not a number
( (< num 58) (- num 48)) ;convert 0-9
( (< num 65) (prompt prmpt)) ;not a number
( (< num 71) (- num 55)) ;convert A-F
( T (prompt prmpt))
) )
(setq int (+ int (* (expt 16 (strlen str)) num))) ;accumulate
) )
)

竹子

alian能不能问一个问题呀！你能发悄悄话给我吗！我有事求你！