大文字小文字変換モジュール

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30

#ifndef __MOD_STRLU_AS__
#const  __MOD_STRLU_AS__
#module "m_strlu"
#uselib "user32.dll"
#func CharLower@m_strlu "CharLowerA" var
#func CharUpper@m_strlu "CharUpperA" var
 
; 文字列を小文字に変換
#deffunc strlower var v1
    CharLower v1
    return
 
; 文字列を大文字に変換
#deffunc strupper var v1
    CharUpper v1
    return
 
; strlower の関数版
#defcfunc strlowerf str s1, local l1
    l1 = s1
    strlower l1
    return l1
 
; strupper の関数版
#defcfunc strupperf str s1, local l1
    l1 = s1
    strupper l1
    return l1
#global
#endif  ; end of __MOD_STRLU_AS__

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10

#include "mod_strlu.as"
 
    buf = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
    strlower buf
    mes buf
    strupper buf
    mes buf
    mes strlowerf("ABCDEFGHIJKLMNOPQRSTUVWXYZ")
    mes strupperf(strlowerf("ABCDEFGHIJKLMNOPQRSTUVWXYZ"))
    stop