Macro/IsSJIS

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20

 
 
 
 
 
 
 
 
-
|
-
|
-
|
!
|
!
 
 
 

// sample for hsp3
s = "hspＨＳＰ"
gosub *chk
poke s, strlen(s)-1, 0
gosub *chk
stop
*chk
repeat strlen(s)
    if IsSJIS1st(peek(s, cnt)){
        mes ""+cnt+":漢字第一バイト"
        if IsSJIS2nd(peek(s,cnt+1)){
            mes ""+(cnt+1)+":漢字第二バイト"
        }else{
            mes "ShiftJIS文字列でない": break
        }
        continue cnt+2
    }
    mes ""+cnt+":ASCII文字"
loop
return