JG 98.03.27ﾕﾏｵjﾏ`g1  [困った姉妹] 98.03.28 混 L=2327 C=0074 GOTO *A: F=16,6 ~~~~~~~~~~~~~~~~~~~~~~  名前 順番 ~~~~~~~~~~~~~~~~~~~~~~  小泉 桃子 7  宮下 利絵 8  森 美鈴 9  三宅 玲美 10  三宅 玲子 11  小池 朱美 12  竹田 朝美 13  吉住 朋子 14 ~~~~~~~~~~~~~~~~~~~~~~  *A  SETX:1:3:2:7:3:14:ESC:[[18,1,1]]="*": ＊通信用の設定（初回のみ）   V1="三宅 玲子":V2="三宅 玲美": ＊この場合の、対象とするデ―タ。   SEQ[7,1]=CT: ＊目安となる行番号を入れる。  SH::C1=V1,V2::::: ＊２人が居るかどうかの検索。  IF Z36<2 THEN:X:STOP:ENDIF: ＊２人が揃ってなければ中止。   Z1=[H,T]:Z2=[T,T]: ＊該当デ―タの行番号を取得する。  V1=[H,H]:V2=[H,T]: X: ＊順番通り、氏名を取得し直す。   IF Z2-Z1>1 THEN:STOP:ENDIF: ＊２人が隣同士でなければ中止。  IF Z2=T1 THEN: ＊T1 最終計算行番号。  ML:\V1:(Z1-1): ＊上行へ移動させる。  ELSE:ML:\V2:(Z2+2): ＊下行へ移動させる。  ENDIF:   STOP:   22522/22523 MXF05171 きょうこ RE:[MEMO] 変数への代入方法２ (10) 98/03/25 08:20 22504へのコメント   皆さま、こんにちは。 *^^*   存在するかどうかは判らないが、同じ物が２つ出る事は無いデ―タ、且つ  どの行に出るかが判らないデ―タを基準にして、変数へ代入したい時。   その科目が発生したらどうとか、特定のファイルの番号が知りたいとか、  そのデ―タが発生した時、無い時、いつもする処理用に使っています。    ＜例題 たとえ話＞   或るところに、とっても仲の悪い姉妹の勤める会社が有りました。  毎日毎日、組み合わせを決める時、二人に注意を払うのが面倒でした。   適当に組み合わせが変わるようにロ―テ―ションを組んだり、それぞれの  都合を考慮に入れたり、折角作った順番だけに、出来る事なら変えたくな  いのです。 でも、２人が隣同士になった時は、なんとか引き離さないと、  トラブルのが目に見えています。   引き離しさえすれば、他の人とも仲良く出来、成績はとっても良いのです。  また、二人だけを固定したりして、余り目立たせたくは有りませんでした。  出来るだけ、「偶然」を装いたかったのです。   で、課長さんは、二人の順番が並んだ時のみ引き離すオ―トを作りました。   ＲＵＮ：： うっかり見逃しや忘れての、大喧嘩は無くなりましたとさ。   めでたし。めでたし。ヽ( ´O`)丿   DynaBookSS475 DX4/75 ※ 飛流 6x86-P200+ 10BASE-T  WinMT1.13 & NifTerm1.58 on Win4.00.950 きょうこ