Hatena::Groupputikonclub

DEF置き場

DEF置き場

他の人に使ってもらって構わない自作命令置き場です。

IsSmall関数

小文字かどうか調べます。文字コードか文字を渡してください。

  • 対応文字 a-z,ぁ-ぉ,っ,ゃ-ょ,ゎ(および、対応するカタカナ)
  • 非対応文字 全角英字、半角カタカナ、上記に無い文字(ヶ、ヵなど)

COMMON DEF ISSMALL(S$)

 VAR B,C

 VAR T$

 IF S$>0<3 THEN

  C=S$

 ELSE

  C=ASC(S$)

 ENDIF

 IF C>&H30A0 THEN DEC C,96

 IF C==ASC("っ") THEN RETURN 1

 IF C==ASC("ゎ") THEN RETURN 1

 B=C>=ASC("ぁ") && C<=ASC("ぉ")

 B=B || (C>=ASC("ゃ") && C<=ASC("ょ"))

 B=B && C AND 1

 B=B || (C>=ASC("a") && C<=ASC("z"))

 RETURN B

END

ダイアログ向け変換関数

3種類の記号を変換します。

  • "?" → "?"(全角化)
  • "\" → 改行
  • "<HR>" → 1行分の横棒

COMMON DEF CV$(T$)

 VAR S$=""+T$

 WHILE INSTR(S$,"?")+1

  S$[INSTR(S$,"?")]=CHR$(&HFF1F)

 WEND

 WHILE INSTR(S$,"<HR>")+1

  S$=SUBST$(S$,INSTR(S$,"<HR>"),4,"\"+""*19)

 WEND

 WHILE INSTR(S$,"\")+1

  S$[INSTR(S$,"\")]=CHR$(10)

 WEND

 RETURN S$

END