FILE名:FILE_int2one_one2int_str.hsp
#module m_tb_char2int // 2byte文字を数字に変換して返す #defcfunc tb_char2int str p1,int p2 if strlen(p1)!=2{ logmes "tb_char2int内のerror" logmes "tb_char2intに渡す文字列の長さは2にして下さい" logmes "p1:"+p1 return -1 } if (p2==10|p2==16)==0{ logmes "tb_char2int内のerror" logmes "tb_char2intに渡すp2の値は10か16にして下さい" logmes "p2:"+p2 return -2 } // p2の値が10ならtb_char2int10 if p2==10{ return tb_char2int10(p1) } // p2の値が16ならtb_char2int16 if p2==16{ return tb_char2int16(p1) } return 1 // 2byte文字を数字に変換して返す 1byte目*256+2byte目 #defcfunc tb_char2int16 str p t=p n=peek(t,0)*256 n+=peek(t,1) return n // 2byte文字を数字に変換して返す 1byte目*1000+2byte目 #defcfunc tb_char2int10 str p t=p n=peek(t,0)*1000 n+=peek(t,1) return n #global // 数字の文字を返す #module m_int2one_or_two_str #define global ctype get_int2one_or_two_str(%1,%2=16) int2one_or_two_str(%1,%2) #defcfunc int2one_or_two_str int p1,int p2 if 256 > p1:return int2one_str(p1) if p2==10:return int2two_str_10(p1) if p2==16:return int2two_str_16(p1) logmes "int2one_or_two_str内のerror" logmes "int2one_or_two_strに渡すp2の値は16か10にして下さい" logmes "p2:"+p2 return "false" // pの値の数字の文字を返す #defcfunc int2one_str int p sdim s,16 poke s,0,p // pの値の数字の2byte文字を返す return s #defcfunc int2two_str_16 int p if 256>p{ logmes "int2two_str_16内のerror" logmes "tb_char2intに渡すpの値は256以上にして下さい" logmes "p:"+p return "false" } sdim s,16 poke s,0,(p/256) poke s,1,(p\256) return s // pの値の数字の2byte文字を返す。値は1byte目*1000+byte目 #defcfunc int2two_str_10 int p if 1000>p{ logmes "int2two_str_10内のerror" logmes "tb_char2intに渡すpの値は1000以上にして下さい" logmes "p:"+p return "false" } sdim s,16 poke s,0,(p/1000) poke s,1,(p\1000) return s #global logmes int2two_str_16(tb_char2int("あ",16))+":"+str(tb_char2int("あ",16)) logmes int2two_str_16(tb_char2int("い",16))+":"+str(tb_char2int("い",16)) logmes int2two_str_16(tb_char2int("う",16))+":"+str(tb_char2int("う",16)) logmes int2two_str_16(tb_char2int("ア",16))+":"+str(tb_char2int("ア",16)) logmes int2two_str_16(tb_char2int("イ",16))+":"+str(tb_char2int("イ",16)) logmes int2two_str_16(tb_char2int("ウ",16))+":"+str(tb_char2int("ウ",16)) logmes int2two_str_16(tb_char2int("一",16))+":"+str(tb_char2int("一",16)) logmes int2two_str_16(tb_char2int("二",16))+":"+str(tb_char2int("ニ",16)) logmes int2two_str_16(tb_char2int("三",16))+":"+str(tb_char2int("三",16)) logmes int2two_str_10(tb_char2int("あ",10))+":"+str(tb_char2int("あ",10)) logmes int2two_str_10(tb_char2int("い",10))+":"+str(tb_char2int("い",10)) logmes int2two_str_10(tb_char2int("う",10))+":"+str(tb_char2int("う",10)) logmes int2two_str_10(tb_char2int("ア",10))+":"+str(tb_char2int("ア",10)) logmes int2two_str_10(tb_char2int("イ",10))+":"+str(tb_char2int("イ",10)) logmes int2two_str_10(tb_char2int("ウ",10))+":"+str(tb_char2int("ウ",10)) logmes int2two_str_10(tb_char2int("一",10))+":"+str(tb_char2int("一",10)) logmes int2two_str_10(tb_char2int("二",10))+":"+str(tb_char2int("ニ",10)) logmes int2two_str_10(tb_char2int("三",10))+":"+str(tb_char2int("三",10)) logmes str(tb_char2int("aa",10)) logmes str(tb_char2int("あ",10)) logmes str(tb_char2int("abc",10)) logmes str(tb_char2int("いい",10)) logmes str(tb_char2int("あ",10)) logmes str(tb_char2int("あ",16)) logmes str(tb_char2int("あ",9)) logmes "あ:"+str(tb_char2int("あ",16)) logmes "あ:"+str(tb_char2int("あ",10)) logmes "い:"+str(tb_char2int("い",16)) logmes "い:"+str(tb_char2int("い",10)) logmes "う:"+str(tb_char2int("う",16)) logmes "う:"+str(tb_char2int("う",10)) logmes "ア:"+str(tb_char2int("ア",16)) logmes "ア:"+str(tb_char2int("ア",10)) logmes "イ:"+str(tb_char2int("イ",16)) logmes "イ:"+str(tb_char2int("イ",10)) logmes "ウ:"+str(tb_char2int("ウ",16)) logmes "ウ:"+str(tb_char2int("ウ",10)) logmes "一:"+str(tb_char2int("一",16)) logmes "一:"+str(tb_char2int("一",10)) logmes "二:"+str(tb_char2int("二",16)) logmes "二:"+str(tb_char2int("二",10)) logmes "三:"+str(tb_char2int("三",16)) logmes "三:"+str(tb_char2int("三",10)) logmes "あ:"+str(tb_char2int16("あ")) logmes "あ:"+str(tb_char2int10("あ")) logmes "い:"+str(tb_char2int16("い")) logmes "い:"+str(tb_char2int10("い")) logmes "う:"+str(tb_char2int16("う")) logmes "う:"+str(tb_char2int10("う")) logmes "ア:"+str(tb_char2int16("ア")) logmes "ア:"+str(tb_char2int10("ア")) logmes "イ:"+str(tb_char2int16("イ")) logmes "イ:"+str(tb_char2int10("イ")) logmes "ウ:"+str(tb_char2int16("ウ")) logmes "ウ:"+str(tb_char2int10("ウ")) logmes "一:"+str(tb_char2int16("一")) logmes "一:"+str(tb_char2int10("一")) logmes "二:"+str(tb_char2int16("二")) logmes "二:"+str(tb_char2int10("二")) logmes "三:"+str(tb_char2int16("三")) logmes "三:"+str(tb_char2int10("三")) logmes int2one_str('A')+":"+'A' logmes int2one_str('B')+":"+'B' logmes int2one_str('C')+":"+'C' logmes int2one_str('a')+":"+'a' logmes int2one_str('b')+":"+'b' logmes int2one_str('c')+":"+'c' logmes int2one_str('0')+":"+'0' logmes int2one_str('1')+":"+'1' logmes int2one_str('2')+":"+'2' logmes int2one_str('\\')+":"+'\\' logmes int2one_str('\"')+":"+'\"' logmes int2one_str(' ')+":"+' ' logmes get_int2one_or_two_str('a')+":"+'a' logmes get_int2one_or_two_str('A')+":"+'A' logmes get_int2one_or_two_str('1')+":"+'1' logmes get_int2one_or_two_str(' ')+":"+' ' logmes get_int2one_or_two_str(tb_char2int("あ",16))+":"+str(tb_char2int("あ",16)) logmes get_int2one_or_two_str(tb_char2int("ア",16))+":"+str(tb_char2int("ア",16)) logmes get_int2one_or_two_str(tb_char2int("一",16))+":"+str(tb_char2int("一",16)) //logmes "あ:"+str(tb_char2int("あ",16)) //logmes int2one_str_16(tb_char2int("あ",16))+":"+str(tb_char2int("あ",16)) /*logmes int2one_str('B')+":"+'B' logmes int2one_str('C')+":"+'C' logmes int2one_str('a')+":"+'a' logmes int2one_str('b')+":"+'b'*/ |