String/比較

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

;--------------------------------------------
; 文字列操作モジュール（strcmp）hiroki版
; HSP3.0              by hiroki (2006/1/16)
;--------------------------------------------
#module "mod_string_operation"
#defcfunc _strcmp str _s1 , str _s2
    ; 大文字小文字区別あり 'A'<'a' となります。
    ; 全角判定完全無視!! ^^;
    s1=_s1 : s2=_s2
    repeat
        c1=peek(s1,cnt) : c2=peek(s2,cnt)
        if (c1=0) | (c2=0) : break
        if c1 ! c2 : return c1-c2
    loop
    if (c1=0) & (c2=0) : return 0
    if c1>0 : return 1
    return -1
#global

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12

// もうすっかり忘れてた･･･strcmp()と同じ実装でこんな感じとか･･･
#module
#defcfunc strcmp str p1, str p2
    s1 = p1: s2 = p2
    repeat
        c1 = peek(s1,cnt)
        c2 = peek(s2,cnt)
        if (c1 ! c2) | c1=0: break
    loop
    return c1-c2
#global
    mes strcmp("ab","abb")