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 entre" 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 dchargement de fichiers 1800 open "SFPutFile" for output as #2 1900 rem ---- recherche du premier thme et saut de l'entte ---- 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'entte " 2800 nouveautheme = 1 2900 rem ----- pour toutes les lignes du fichier ----- 3000 while eof(#1) = 0 3100 rem ----- criture du thme ----- 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),"
")=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),"