100 cls 200 rem programme qui transforme un fichier questions_corrigees.html 300 rem en fichiers questions_pour_tableur.txt 400 rem ------ 500 dim ligne$(15) 600 cocher$ = "vrai/faux/ne sais pas" 700 vrai2$ = "" 800 vraivaleur = 1 900 faux2$ = "" 1000 fauxvaleur = 0 1100 nouveautheme = 0 1104 debut=0 1105 fin=0 1200 rem ------ ouverture des fichiers 1300 print "J'ouvre le fichier questions_corrigees.html en entrŽe" 1400 rem ---- SFGetFile pour appeler l'interface Macintosh de chargement de fichiers 1500 open "SFGetFile" for input as #1 1600 print "Dans quel fichier texte.txt voulez-vous le placer ?" 1700 rem ----- SFPutFile pour appeler l'interface Macintosh de dŽchargement de fichiers 1800 open "SFPutFile" for output as #2 1900 rem ---- recherche du premier thme et saut de l'entte ---- 2000 while eof(#1) = 0 2100 input #1,ligne$(5) ligne$(1)=ligne$(2) ligne$(2)=ligne$(3) ligne$(3)=ligne$(4) ligne$(4)=ligne$(5) if instr(ligne$(5),cocher$) then exit while 2600 wend print "-->";ligne$(1);ligne$(2);ligne$(3);ligne$(4);ligne$(5) 2700 print "Fin de l'entte " 2800 nouveautheme = 1 2900 rem ----- pour toutes les lignes du fichier ----- 3000 while eof(#1) = 0 3100 rem ----- Žcriture du thme ----- 3200 if nouveautheme = 1 ligne$(4)=ligne$(1)+ligne$(2)+ligne$(3)+ligne$(4) print "----------";ligne$(4);"-------" 3210 if instr(ligne$(4),"") then 3220 debut= instr(ligne$(4),"")+3 3230 fin=instr(ligne$(4),"")-debut 3240 else 3250 debut=0 3260 fin=instr(ligne$(4),"")-1 3270 endif 3400 print "",mid$(ligne$(4),debut,fin) 3500 print #2 3600 print #2,"",mid$(ligne$(4),debut,fin) 3700 nouveautheme = 0 3800 endif 3900 rem ----- cherche et ecrit la question ---- 4000 for i = 1 to 500 4100 input #1,ligne$(1) 4600 if instr(ligne$(1),"
") ligne$(4)="" for ii=1 to 15 input #1,ligne$(5) if eof(#1) then exit for ligne$(1)=ligne$(2) ligne$(2)=ligne$(3) ligne$(3)=ligne$(4) ligne$(4)=ligne$(5) if instr(ligne$(5),cocher$) then ii=15 next ii 4900 nouveautheme = 1 i=500 6500 endif 6600 if len(ligne$(1)) = 0 then 6606 if eof(#1) then i=500 6609 endif 6610 if instr(ligne$(1),"

") then 6612 print mid$(ligne$(1),1,instr(ligne$(1),"

")-1) 6614 print #2,mid$(ligne$(1),1,instr(ligne$(1),"

")-1) 6616 ligne$(1)="
" 6650 endif 6652 if instr(ligne$(1),"

")=1 then 6654 ligne$(1)=mid$(ligne$(1),4) 6658 endif 6700 if instr(ligne$(1),"cases3.gif") then 6800 print vraivaleur,mid$(ligne$(1),len(vrai2$)+1);" "; 6900 print #2,vraivaleur,mid$(ligne$(1),len(vrai2$)+1);" "; 7000 endif 7100 if instr(ligne$(1),"cases4.gif") then 7200 print fauxvaleur,mid$(ligne$(1),len(faux2$)+1);" "; 7300 print #2,fauxvaleur,mid$(ligne$(1),len(faux2$)+1);" "; 7400 endif 7500 if instr(ligne$(1),"
") then 7600 if len(ligne$(1)) < 5 then 7700 rem --- "saut de ligne suppimŽ" 7800 else 7900 print mid$(ligne$(1),1,instr(ligne$(1),"
")-1) 8000 print #2,mid$(ligne$(1),1,instr(ligne$(1),"
")-1) 8100 endif 8200 endif 8205 if instr(ligne$(1),"


") or eof(#1) then 8206 rem --- "je saute le HR ou la fin de fichier" 8207 else 8300 if (instr(ligne$(1),"cases3.gif")) = 0 then 8400 if (instr(ligne$(1),"cases4.gif")) = 0 then 8500 if (instr(ligne$(1),"
")) = 0 then 8600 print ligne$(1);" "; 8700 print #2,ligne$(1);" "; 8800 endif 8900 endif 9000 endif 9005 endif 9100 next i 9200 rem ----- fin de la boucle gŽnŽrale 9300 wend 9400 rem --- ferme les fichiers 9500 close #2 9600 close #1 9700 print "c'est fini"