/*#TITLE# 全てのMDL File データーベース作成マクロ */ /* MKALL_MDLDB.MAC 2006.4.14 kita */ clear(); MENU/OFF LIST/OFF cmd = "!'find /home/acad/files -name" + " '*MDL'" + " -print > /home/acad/mdl_db'"; [cmd] mdl_no = 0;flg = 0; fp = fopen("/home/acad/mdl_db","r"); fpk = fopen("/home/acad/kensaku_db","w"); do{ mdl_name = fgets(200,fp); if(vtype(mdl_name) == 4){ /* 文字列 */ mdl_no +=1; MODEL/READ [mdl_name] mdl_name = fname("#MODEL#",#CURFILNAME); /* echo mdl_name; getany(1); */ tmp = vtype(#MDLTTL201); if(tmp == 0 || tmp == 5){ mttl201 = "|";} /* モデル主タイトルが空 */ else{mttl201 = #MDLTTL201;} ss = mdl_name + " " + mttl201 + "\n"; fputs(ss,fpk); } else { flg = 1;} /* File 読み込み完了 */ }while(flg == 0); fclose(fp); fclose(fpk); exit;