🚀 go-pugleaf

T.FUJII <t-fujii@interlink.or.jp> wrote in article
<60s92p$991@tegtan.interlink.or.jp>...

$B$I$&$b!"(BMedia io $B$N!!(BMasaya Hirano $B$G$9!#(B
$BD>@\!"<ALdEy$K4X78$N$J$$Ej9F$G?=$7Lu$J$$$N$G$9$,!"(B

> Function MyHex(ByVal A, B As String) As Byte
> 

$B$N$H$3$m$,!"5$$K$J$j$^$7$F!&!&!&!#(B
$B$b$7$+$9$k$H!"F#0f$5$s$O!"#V#B$N0z?t@k8@$r#C8@8lE*$K(B
$B9M$($F$*$i$l$k$N$G$O!&!&!&!&!#(B
$B>e5-$N@k8@$@$H!"(B"ByVal"$B$O!"(B"A" $B$@$1$K!"(B"AS String"
$B$O(B "B" $B$@$1$KM-8z$G$9!#(B

$B>e5-@k8@$G$O!"(BMyHex(Null, "5")$B$J$s$F>l9g$,DL$C$F(B
$B$7$^$$$^$9!#(B
$B!J(BNot Len(Null) = 1 $B$NO@M}<0$NCM$O>o$K(B Null$B!"$D$^$j(B
$B!!(BTrue$B$K$O$J$j$^$;$s!#!K(B

$B;d$N>!<j$J2r<a$G$O!"(B
Function MyHex(ByVal A As String, ByVal B As String) As Byte
$B$G$O!"$J$$$+$H!&!&!&!#(B

$B>e5-(B Function $B$,!"!I#1J8;zL\$O(B Variant$B7?(B $B$G!"#2J8;zL\(B
$B$@$1(B ByRef $B$G;2>H$9$k!I$H$$$&;EMM$G$"$k$J$i$P!"$3$N(B
$BEj9F$OL5;k$7$F!"2<$5$$!#(B

--------------------------------------------------------------------
Media io _ Masaya Hirano
mailto:masayah@mbox.kyoto-inet.or.jp
http://web.kyoto-inet.or.jp/people/masayah/
$B$*OM$S!'#H#P7G:\$N!G(BLa_Vessel$B!G$K$O#V#B%i%s%?%$%`$NB>$K(BMfc42d.dll$B$r(B
$B!!!!!!!!I,MW$H$9$k$3$H$N5-:\$,$b$l$F$*$j$^$7$?!#$;$C$+$/%@%&%s%m!<%I(B
$B!!!!!!!!$7$FD:$$$?$N$K!"F0$+$J$+$C$?J}!"K\Ev$K?=$7Lu8f:B$$$^$;$s$G$7$?!#(B
--------------------------------------------------------------------


$B!!(B