//---------------------------------------------------------------------------
//  strlen2     :   文字列の文字数を数える。
//                  (２バイト文字も１文字と数える)
//      [Usage] :
//          call strlen2 $$str;
//          ##num = ##return;
//
//          $$str       :   文字列
//          ##num       :   文字数
//
strlen2:
    ##strlen = strlen( $$1 );
    ##i = 0;
    ##strlen2 = 0;
    while( ##i < ##strlen ){
        if( ( ascii( midstr( $$1, ##i, 2 ) ) & 0xff00 ) != 0 ){
            //---- 2ﾊﾞｲﾄ文字 ----//
            ##i = ##i + 2;
        } else {
            ##i = ##i + 1;
        }
        ##strlen2 = ##strlen2 + 1;
    }
    return ##strlen2;
//---------------------------------------------------------------------------