Heeeeelp !!!

[honkytonk]

This program consists of allocating availability to slots.
The slots are 3 per day on 5 days numbered from 1 to 15 (3 * 5)
Availability also.
Since two participants are required for each slot, I make two consecutive passes, removing the availabilities used in the first pass.
The problem: disp $ (a, x) = "" delete all on the first pass.
So I did that; and now it comes out too
I only want two
I have done many and many tests;
I give my tongue to the cat.


    NOMAINWIN
   WindowWidth = 950: WindowHeight = 450
   UpperLeftX = 10: UpperLeftY = 20
   TEXTEDITOR #w.disp, 10, 50, 250, 330
   TEXTEDITOR #w.aff, 290, 50, 600, 330
   GRAPHICBOX #w.m 5, 5, 935, 390
   OPEN "Help" FOR window_nf AS #w
   #w, "TRAPCLOSE [closeHelp]"
   #w.m  "down;fill darkgreen;color white;backcolor darkgreen"
   dim donne$(100): dim disp$(100,20): dim aff$(100)
   #w.disp, "!font courrier 11 bold": #w.aff, "!font courrier 11 bold"
   #w.m, "place 10 20": #w.m, "\ Disponibilités": #w.m, "place 290 20": #w.m, "\ Affectations  (Lundi, mardi...ect ares the days of the week)"
  ' gosub [chargedisp]
  '--------------- that To avoid the data file
  donne$(1)="participant 1: 1 2 6 12"
  donne$(2)="participant 2: 2 4 5 8"
  donne$(3)="participant 3: 3 4 7 8"
  donne$(4)="participant 4: 3 6 7 11 13 14"
  donne$(5)="participant 5: 1 5 10 12 14 15"
  donne$(6)="participant 6: 1 5 9 10 13"
  donne$(7)="participant 7: 3 6 8 11 13 15"
 n=7
   for a=1 to n
       for x=1 to len(donne$(a))
         if word$(donne$(a),x)="" then exit for
         disp$(a,x)=word$(donne$(a),x)
       next x
   next a
     for x=1 to n
       for y=1 to len(donne$(x))
       if word$(donne$(x),y)="" then exit for
         #w.disp, disp$(x,y)+" ";
       next y
       #w.disp, ""
     next x
  ' wait
  '-------------------- Program ---------------
   '1st passe-------------------

  for a=1 to n
  print
    For x=3 to len(donne$(a))
      if word$(donne$(a),x)="" then exit for
      d$=disp$(a,x)
      print d$
     select case d$
       case "1"
       aff$(1)="Lundi 11h15 à: 13h00:  "+word$(donne$(a),1)+" "+word$(donne$(a),2)
       case "2"
       aff$(2)="Lundi 13h00 à: 14h45:  "+word$(donne$(a),1)+" "+word$(donne$(a),2)
       case "3"
       aff$(3)="Lundi 14h45 à: 16h30:  "+word$(donne$(a),1)+" "+word$(donne$(a),2)
       case "4"
       aff$(4)="Mardi 11h15 à: 13h00:  "+word$(donne$(a),1)+" "+word$(donne$(a),2)
       case "5"
       aff$(5)="Mardi 13h00 à: 14h45:  "+word$(donne$(a),1)+" "+word$(donne$(a),2)
       case "6"
       aff$(6)="Mardi 14h45 à: 16h30:  "+word$(donne$(a),1)+" "+word$(donne$(a),2)
       case "7"
       aff$(7)="Mercredi 11h15 à: 13h00:  "+word$(donne$(a),1)+" "+word$(donne$(a),2)
       case "8"
       aff$(8)="Mercredi 13h00 à: 14h45:  "+word$(donne$(a),1)+" "+word$(donne$(a),2)
       case "9"
       aff$(9)="Mercredi 14h45 à: 16h30:  "+word$(donne$(a),1)+" "+word$(donne$(a),2)
       case "10"
       aff$(10)="Jeudi 11h15 à: 13h00:  "+word$(donne$(a),1)+" "+word$(donne$(a),2)
       case "11"
       aff$(11)="Jeudi 13h00 à: 14h45:  "+word$(donne$(a),1)+" "+word$(donne$(a),2)
       case "12"
       aff$(12)="Jeudi 14h45 à: 16h30:  "+word$(donne$(a),1)+" "+word$(donne$(a),2)
       case "13"
       aff$(13)="Vendredi 11h15 à: 13h00:  "+word$(donne$(a),1)+" "+word$(donne$(a),2)
       case "14"
       aff$(14)="Vendredi 13h00 à: 14h45:  "+word$(donne$(a),1)+" "+word$(donne$(a),2)
       case "15"
       aff$(15)="Vendredi 14h45 à: 16h30:  "+word$(donne$(a),1)+" "+word$(donne$(a),2)
     end select
    next x
  next a
 ' for x=1 to 15
 '   #w.aff, aff$(x)
 ' next x
  '------------------------------------
  ' 2nd passe------------------------------------
for a=1 to n
   [ret]
    For x=3 to len(donne$(a))
      if word$(donne$(a),x)="" then exit for
      d$=disp$(a,x)
     select case d$
     print d$
       case "1"
       if aff$(1)=word$(donne$(a),1)+" "+word$(donne$(a),2) then a=a+1: goto  [ret]
       aff$(1)=aff$(1)+" et: "+word$(donne$(a),2)
       case "2"
       if aff$(2)=word$(donne$(a),1)+" "+word$(donne$(a),2) then a=a+1: goto  [ret]
       aff$(2)=aff$(2)+" et: "+word$(donne$(a),2)
       case "3"
       if aff$(3)=word$(donne$(a),1)+" "+word$(donne$(a),2) then a=a+1: goto  [ret]
       aff$(3)=aff$(3)+" et: "+word$(donne$(a),2)
       case "4"
       if aff$(4)=word$(donne$(a),1)+" "+word$(donne$(a),2) then a=a+1: goto  [ret]
       aff$(4)=aff$(4)+" et: "+word$(donne$(a),2)
       case "5"
       if aff$(5)=word$(donne$(a),1)+" "+word$(donne$(a),2) then a=a+1: goto  [ret]
       aff$(5)=aff$(5)+" et: "+word$(donne$(a),2)
       case "6"
       if aff$(6)=word$(donne$(a),1)+" "+word$(donne$(a),2) then a=a+1: goto  [ret]
       aff$(6)=aff$(6)+" et: "+word$(donne$(a),2)
       case "7"
       if aff$(7)=word$(donne$(a),1)+" "+word$(donne$(a),2) then a=a+1: goto  [ret]
       aff$(7)=aff$(7)+" et: "+word$(donne$(a),2)
       case "8"
       if aff$(8)=word$(donne$(a),1)+" "+word$(donne$(a),2) then a=a+1: goto  [ret]
       aff$(8)=aff$(8)+" et: "+word$(donne$(a),2)
       case "9"
       if aff$(9)=word$(donne$(a),1)+" "+word$(donne$(a),2) then a=a+1: goto  [ret]
       aff$(9)=aff$(9)+" et: "+word$(donne$(a),2)
       case "10"
       if aff$(10)=word$(donne$(a),1)+" "+word$(donne$(a),2) then a=a+1: goto  [ret]
       aff$(10)=aff$(10)+" et: "+word$(donne$(a),2)
       case "11"
       if aff$(11)=word$(donne$(a),1)+" "+word$(donne$(a),2) then a=a+1: goto  [ret]
       aff$(11)=aff$(11)+" et: "+word$(donne$(a),2)
       case "12"
       if aff$(12)=word$(donne$(a),1)+" "+word$(donne$(a),2) then a=a+1: goto  [ret]
       aff$(12)=aff$(12)+" et: "+word$(donne$(a),2)
       case "13"
       if aff$(13)=word$(donne$(a),1)+" "+word$(donne$(a),2) then a=a+1: goto  [ret]
       aff$(13)=aff$(13)+" et: "+word$(donne$(a),2)
       case "14"
       if aff$(14)=word$(donne$(a),1)+" "+word$(donne$(a),2) then goto  [ret]
       aff$(14)=aff$(14)+" et: "+word$(donne$(a),2)
       case "15"
       if aff$(15)=word$(donne$(a),1)+" "+word$(donne$(a),2) then goto  [ret]
       aff$(15)=aff$(15)+" et: "+word$(donne$(a),2)
     end select
    next x
  next a
  for x=1 to 15
    #w.aff, aff$(x)
  next x
 wait
'---------------------
 [chargedisp]
     n=0
     open "dispos.txt" for input as #d
       while eof(#d)=0
       line input #d, donn$
       n=n+1: donne$(n)=donn$
       for x=1 to len(donne$(n))
         if word$(donne$(n),x)="" then exit for
         disp$(n,x)=word$(donne$(n),x)
       next x
       wend
     close #d
     for x=1 to n
       for y=1 to len(donne$(x))
       if word$(donne$(x),y)="" then exit for
         #w.disp, disp$(x,y)+" ";
       next y
       #w.disp, ""
     next x
 return
 [closeHelp]
   CLOSE  #w
   END


[tsh73]

I added condition to the first pass so if line is already selected by participant 1, it will not be changed by later participants
And wrapped up second pass into something smaller
checking that
1) it is valid slot number 1..15 (instead of select case)
2) checked that second participant is not added yet
3) checked that first added participant ( word$(aff$(dd),6) ) is not the one we consider at the moment ( word$(donne$(a),2) )
- then add second participant.

NOMAINWIN
   WindowWidth = 950: WindowHeight = 450
   UpperLeftX = 10: UpperLeftY = 20
   TEXTEDITOR #w.disp, 10, 50, 250, 330
   TEXTEDITOR #w.aff, 290, 50, 600, 330
   GRAPHICBOX #w.m 5, 5, 935, 390
   OPEN "Help" FOR window_nf AS #w
   #w, "TRAPCLOSE [closeHelp]"
   #w.m  "down;fill darkgreen;color white;backcolor darkgreen"
   dim donne$(100): dim disp$(100,20): dim aff$(100)
   #w.disp, "!font courrier 11 bold": #w.aff, "!font courrier 11 bold"
   #w.m, "place 10 20": #w.m, "\ Disponibilites": #w.m, "place 290 20": #w.m, "\ Affectations  (Lundi, mardi...ect ares the days of the week)"
  ' gosub [chargedisp]
  '--------------- that To avoid the data file
  donne$(1)="participant 1: 1 2 6 12"
  donne$(2)="participant 2: 2 4 5 8"
  donne$(3)="participant 3: 3 4 7 8"
  donne$(4)="participant 4: 3 6 7 11 13 14"
  donne$(5)="participant 5: 1 5 10 12 14 15"
  donne$(6)="participant 6: 1 5 9 10 13"
  donne$(7)="participant 7: 3 6 8 11 13 15"
 n=7
   for a=1 to n
       for x=1 to len(donne$(a))
         if word$(donne$(a),x)="" then exit for
         disp$(a,x)=word$(donne$(a),x)
       next x
   next a
     for x=1 to n
       for y=1 to len(donne$(x))
       if word$(donne$(x),y)="" then exit for
         #w.disp, disp$(x,y)+" ";
       next y
       #w.disp, ""
     next x
  ' wait
  '-------------------- Program ---------------
   '1st passe-------------------
  for a=1 to n
  print
    For x=3 to len(donne$(a))
      if word$(donne$(a),x)="" then exit for
      d$=disp$(a,x)
      print d$
'add ( if aff$(1)="" then ) so each line work only once
     select case d$
       case "1"
       if aff$(1)="" then aff$(1)="Lundi 11h15 a: 13h00:  "+word$(donne$(a),1)+" "+word$(donne$(a),2)
       case "2"
       if aff$(2)="" then aff$(2)="Lundi 13h00 a: 14h45:  "+word$(donne$(a),1)+" "+word$(donne$(a),2)
       case "3"
       if aff$(3)="" then aff$(3)="Lundi 14h45 a: 16h30:  "+word$(donne$(a),1)+" "+word$(donne$(a),2)
       case "4"
       if aff$(4)="" then aff$(4)="Mardi 11h15 a: 13h00:  "+word$(donne$(a),1)+" "+word$(donne$(a),2)
       case "5"
       if aff$(5)="" then aff$(5)="Mardi 13h00 a: 14h45:  "+word$(donne$(a),1)+" "+word$(donne$(a),2)
       case "6"
       if aff$(6)="" then aff$(6)="Mardi 14h45 a: 16h30:  "+word$(donne$(a),1)+" "+word$(donne$(a),2)
       case "7"
       if aff$(7)="" then aff$(7)="Mercredi 11h15 a: 13h00:  "+word$(donne$(a),1)+" "+word$(donne$(a),2)
       case "8"
       if aff$(8)="" then aff$(8)="Mercredi 13h00 a: 14h45:  "+word$(donne$(a),1)+" "+word$(donne$(a),2)
       case "9"
       if aff$(9)="" then aff$(9)="Mercredi 14h45 a: 16h30:  "+word$(donne$(a),1)+" "+word$(donne$(a),2)
       case "10"
       if aff$(10)="" then aff$(10)="Jeudi 11h15 a: 13h00:  "+word$(donne$(a),1)+" "+word$(donne$(a),2)
       case "11"
       if aff$(11)="" then aff$(11)="Jeudi 13h00 a: 14h45:  "+word$(donne$(a),1)+" "+word$(donne$(a),2)
       case "12"
       if aff$(12)="" then aff$(12)="Jeudi 14h45 a: 16h30:  "+word$(donne$(a),1)+" "+word$(donne$(a),2)
       case "13"
       if aff$(13)="" then aff$(13)="Vendredi 11h15 a: 13h00:  "+word$(donne$(a),1)+" "+word$(donne$(a),2)
       case "14"
       if aff$(14)="" then aff$(14)="Vendredi 13h00 a: 14h45:  "+word$(donne$(a),1)+" "+word$(donne$(a),2)
       case "15"
       if aff$(15)="" then aff$(15)="Vendredi 14h45 a: 16h30:  "+word$(donne$(a),1)+" "+word$(donne$(a),2)
     end select
    next x
  next a
 ' for x=1 to 15
 '   #w.aff, aff$(x)
 ' next x
  '------------------------------------
  ' 2nd passe------------------------------------
for a=1 to n
   [ret]
    For x=3 to len(donne$(a))
      if word$(donne$(a),x)="" then exit for
      d$=disp$(a,x)
      dd=val(d$)
      if 1<=dd and dd <=15 then
       if instr(aff$(dd), ": et:")= 0 _ 'second not added
           and word$(donne$(a),2)<>word$(aff$(dd),6) then _ 'first not used
               aff$(dd)=aff$(dd)+" et: "+word$(donne$(a),2)
       end if
    next x
  next a

  for x=1 to 15
    #w.aff, aff$(x)
  next x
 wait
'---------------------
 [chargedisp]
     n=0
     open "dispos.txt" for input as #d
       while eof(#d)=0
       line input #d, donn$
       n=n+1: donne$(n)=donn$
       for x=1 to len(donne$(n))
         if word$(donne$(n),x)="" then exit for
         disp$(n,x)=word$(donne$(n),x)
       next x
       wend
     close #d
     for x=1 to n
       for y=1 to len(donne$(x))
       if word$(donne$(x),y)="" then exit for
         #w.disp, disp$(x,y)+" ";
       next y
       #w.disp, ""
     next x
 return
 [closeHelp]
   CLOSE  #w
   END



[honkytonk]

Wow! that's efficiency!
it will make me think a lot.
Thank you so much.

[honkytonk]

To say that I tried things:
I added this: "a1$ = a1$ + str$(a): x1$ = x1$ + str$(x)"
On each line of the 1st pass.
Then, with that: a1$ = right$(a1$,1): x1$ = right$(x1$,1): disp$(val(a1$),val(x1$)) = ""
I deleted the selected ones
it worked but it gave more than two.
Your method works much better; well done!