hinekure.net が http://hspdev-wiki.net/ から自動クローリングした結果を表示しています。画像やリソースなどのリンクが切れています。予めご了承ください。
Macro/IsSJIS - HSP開発wiki
トップ    編集凍結 差分バックアップ添付複製名前変更リロード   新規一覧単語検索最終更新   最終更新のRSS

IsSJISマクロ

ShiftJISコードの漢字第一・第二バイトを判定するマクロです。

#define ctype IsSJIS1st(%1) (($81<=%1 & %1<=$9f)|($e0<=%1 & %1<=$fc)) ; 漢字第一バイトを判定
#define ctype IsSJIS2nd(%1) (($40<=%1 & %1<=$7e)|($80<=%1 & %1<=$fc)) ; 漢字第二バイトを判定

使用例

Everything is expanded.Everything is shortened.
  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 
 
 
 
 
 
 
 
-
|
-
|
-
|
!
|
!
 
 
 
// sample for hsp3
s = "hspHSP"
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

コメント

  • 文字コード関連のプラグインなら標準装備だと思いますが、プログラミング始めたばかりの人でも「HSP 漢字第一バイト 判定」などで検索したときにヒットするようにね...。定型処理だと思うのであっても無駄にはならないでしょう^^ -- 2006-09-21 (木) 15:18:49

URL B I U SIZE Black Maroon Green Olive Navy Purple Teal Gray Silver Red Lime Yellow Blue Fuchsia Aqua White

トップ    編集凍結 差分バックアップ添付複製名前変更リロード   新規一覧単語検索最終更新   最終更新のRSS
Last-modified: 2007-04-08 (日) 02:27:29 (2436d)