| タイトル | ： インデックス索引を調べる関数 |
| 記事No | ： 2410 |
| 投稿日 | ： 2007/08/27(Mon) 14:00 |
| 投稿者 | ： MOTOYAMA+千葉県 |
三島の長谷川さんよりインデックス索引があるか、ないかを調べる方法
は？ということで質問をいただきましたので
「NAME関数の6」が該当すると答えました。
インデックスを作成するとき、まずはそのインデックス名がすでに作成
されているか、否かを調べて、存在すれば、先に削除してから、作成。
存在しなければ即、作成するというようにしています。
また、万が一を考えて、もし想定外で誰かが単独で手作業でインデックス
を作成する可能性も考えて、インデックスが作成されたバインダーも
チェックしています。
$フリガナ確認: CC;%V22;
LET X01=0; LET X01=NAME(6,"FURI");
IF X01=1 THEN GOTO $フリガナ削除;
IF X01=0 THEN GOTO $フリガナ作成;
$フリガナ削除: LET V01=LTINF$(8,5,"FURI")
IF V01<>V31 THEN GOTO $バインダー違う;
INDEX;D;%V01;FURI;Y;
$フリガナ作成: CLOSE;
INDEX;C;%V31;FURI;@フリガナ;A;;Y;
********************************
$バインダー違う: CLOSE; MESSAGE "指定のバインダーが違っています!! ";
GOTO $終了;
|