[00555] 1292 byte
投稿日時: 2002年1月16日(水) 18時19分51秒
ホスト名: pl091.nas323.soka.nttpc.ne.jp(210.165.163.187)

Re: BREGEXP DLL ラッパーDLL β公開

投稿者: 安久津
e-mail: （入力されていません）
   URL: （入力されていません）

つづき。
// バスト 83 以上 のアイドルを表示。(^^;)古い
//  ##c = hidemaruhandle(0);
//  openfile "oldidole.txt";
// if( basename != "oldidole.txt" ){ beep; endmacro; }
  gofiletop; if( code != 0x0d ) insertfix "\n";
  $$kekka = "バスト 83 以上のアイドル\n";
  searchdown "^.+$", regular;
  while( result ){
    $$rd = gettext( seltopx, seltopy, selendx, selendy );
    escape;
    call bregsplit $$rd, "/,/";
    ##len = ##return;
    if( ##len > 0 ){
      if( val($SUB[5]) >= 83 ){
        $$tmp = leftstr($SUB[1] + "            ", 14);
        $$kekka = $$kekka + $$tmp + $SUB[5] + "\n";
      }
    }
    finddown;
  }
  message $$kekka;
endmacro;
bregsplit:
  $$st = $$1; // string
  $$re = $$2; // regular expression
  ##lm = ##3; // limit
  if( loaddllfile != hidemarudir + "\\bre_wrap.dll" ){
    $__DLL = loaddllfile; // もともと使っていた DLL 退避。
    loaddll hidemarudir + "\\bre_wrap.dll";
    if( ! result ) return -2;
  }
  ##len = dllfunc("BRE_SPLIT", $$re, $$st, ##lm);
  ##i = 0; // ##i = 1 の方がいいのかな？
  while( dllfunc("BRE_HASMORERESULTS") ){
    $$p = dllfuncstr("BRE_GETNEXT");
    if( $$p == "" ) break;
    $SUB[##i] = dllfuncstr("BRE_POSTOSTR", $$p);
    ##i = ##i + 1;
  }
  // if( $__DLL != "" ) loaddll $__DLL; // だからクドイって。
return ##len;
// では。

<550> BREGEXP DLL ラッパーDLL β公開 (杉浦　まさき) 01/15 02:55
└<551> Re: BREGEXP DLL ラッパーDLL β公開 (安久津) 01/15 19:02
　└<552> Re: BREGEXP DLL ラッパーDLL β公開 (安久津) 01/15 19:04
　　└<553> Re: BREGEXP DLL ラッパーDLL β公開 (杉浦 まさき) 01/15 22:37
　　　└<554> Re: BREGEXP DLL ラッパーDLL β公開 (安久津) 01/16 18:18
　　　　└>555< Re: BREGEXP DLL ラッパーDLL β公開 (安久津) 01/16 18:19
　　　　　└<556> Re: BREGEXP DLL ラッパーDLL β公開 (杉浦　まさき) 01/16 23:01
　　　　　　└<557> Re: BREGEXP DLL ラッパーDLL β公開 (安久津) 01/17 02:09
　　　　　　　└<558> Re: BREGEXP DLL ラッパーDLL β公開 (安久津) 01/17 02:10
　　　　　　　　└<559> Re: BREGEXP DLL ラッパーDLL β公開 (杉浦　まさき) 01/18 00:30
　　　　　　　　　└<560> Re: BREGEXP DLL ラッパーDLL β公開 (安久津) 01/18 10:45
　　　　　　　　　　└<561> Re: BREGEXP DLL ラッパーDLL β公開 (杉浦　まさき) 01/19 01:32
　　　　　　　　　　　└<562> Re: BREGEXP DLL ラッパーDLL β公開 (安久津) 01/19 17:43