Exercices à trous à partir de document.rtf (2 exemples de saisies et 2 exemples d'utilisation correspondante)

Télécharger le projet
Commenter

Description

info saisie.rtf (données.txt) (sur vb6)

...avertissement1: toujours du code bricolé; pas encore dans les règles...
-------------------------------------------------------
A partir d'un simple outil de saisie par sélection de mots ou groupes de mots sur une richtextbox [document.rtf -crééé au préalable (wordpad, word, OpenOffice...)- sélectionné par une dialoguebox],
deux exemples de saisies avec les logiciels d'utilisation correspondants:
1 - "saistrtf-txt" ou "sais1mrtf-txt" associé à "trou-ecrdsrtf"
> Saisie -**RAPIDE**- d'un seul mot(ou groupe de mots) avec possibilité d'ajouter une aide
en vue de proposer un simple texte de lecture à trous(recherche d'indices/anticipation puis selon aide choix par élimination,mémoire immédiate,etc...) - peut servir aussi pour de nombreux types d'exos à trous :
finir d'apprendre un résumé (mots-clés) (ou cacher les mots-clés d'un document :histoire-géo-SVT,...)
réponse à une question (doc.rtf constitué de questions-réponses /brèves et ciblées car on ne teste qu'une seule réponse possible/)
(ou définition -mot correspondant)(ou vocabulaire de langue :mot étranger-mot français),etc.... Je ne me souviens plus de toutes les utilisations que j'en ai faites.
(Les exos sont créés très rapidement. Il suffit d'avoir tapé ou scanné (puis arrangé) un doc.rtf
-J'ai testé les .vbp qui précèdent avec le document.rtf: "lionrat1.rtf" qui m'a permis de créer "lionrat1.txt"
L'exe a été testé avec une copie de cette info.("info.rtf")

2- "saisietrourtf2fic" ou "saisidetrourtf2fic" associé à "exodetrtf-txt" (det pour déterminants)
avertissement2 :il faut suivre à la lettre les consignes qui s'affichent et qui montrent le cheminement rigide de saisie:
1e partie:
sélection du déterminant et pointage de sa nature puis validation (appui sur bouton [saisie]);
sélection du nom déterminé puis validation (appui sur bouton [saisie]);
cette partie terminée, appui sur le bouton [fin de saisie]
puis sélection d'erreurs possibles et pointage de la nature des mots sélectionnés puis validation (appui sur bouton [saisie]);
enfin, appui sur le bouton [fin de saisie], relecture et appui sur le bouton [sauvegarde].
La saisie demande plus d'attention parce qu'l n'y a pas de retour arrière possible et que le programme de saisie poursuit bêtement son cheminement rigide.
(On peut cependant rattraper la sauce: en sélectionnant l'élément erroné sans le valider avec [saisie], sa position et sa longueur s'affichent; il suffit de les taper au bon endroit dans la textbox de données saisies -idem pour une nature oubliée- L'important est de bien respecter la structure de saisie qu'on observe dans la textbox.
Si nécessaire, on pensera aussi à changer le nombre d'éléments saisis (qui s'affiche après appui du bouton [fin de saisie] en début de série) -remarque: l'ensemble [position det,"determinant",longueur det,"nature det",position nom,"nom déterminé",longueur nom] forme 1 élément de saisie.
On peut bien sûr rouvrir le fichier.txt de même radical que le document.rtf et y taper les modif si nécessaire.

ici, adapté pour déterminant-nom associé
'mais on peut suivre la même procédure pour accord sujet-verbe; nom -adj qual; expression française-expression étrangère corresp.
' 1 élément saisi puis saisie de l'élément à associer (à condition qu'il y ait 1 pour 1)

-J'ai testé les .vbp qui précède avec le document.rtf: "lionratdet.rtf" qui m'a permis de créer "lionratdet.txt"
- j'ai fait aussi un test du .exe avec un texte sans déterminants "essaisansdet"...Ca marche quand même mais il faudrait ajouter au label1 "(Clique quand même sur le texte s'il n'y en a pas!)"!

-Il est bien sûr plus aisé d'utiliser .vbp que .exe afin de pouvoir varier à la demande -à condition d'avoir vb6-.
(J'ai pu,à partir de ce programme de saisie, réaliser RAPIDEMENT de multiples variantes pour de nombreux exos en toutes matières.)

les .exe sont cependant joints ici avec le suffixe .exo qu'il suffit de changer après décompression du zip.

Si c'est utile à quelqu'un, je répondrai avec plaisir (peut-être pas toujours immédiatement) à des demandes d'éclaircissements sur mes bricolages.

Source / Exemple : 


voir le nouveau zip [j'avais oublié les .exo (pardon, les .exe)]

Voici le coeur tout simple de la saisie:
Private Sub RichTextBox1_Click()
'*** sélection du mot ou de l'expression qui sera noté(e) avec ses coordonnées ds text2/ mémorisation de ces éléments [drep(n),repe(n),lrep(n)]
' ----------------------------------
'tpl= le doc.rtf
'pl0=position de départ du texte sélectionné
'pl1=nb de caractères du texte sélectionné
' puis variables qui mémorisent les données:
'exo=Nième sélection
'repe(exo)=texte sélectionné
'drep(exo)=position de départ du mot ou groupe de mots sélectionné
'lrep(exo)=nb de caractères du mot ou groupe de mots sélectionné
' ---------------------
elem = ""
tpl = RichTextBox1.Text: pl0 = RichTextBox1.SelStart: If pl0 > 0 And pl0 <= Len(tpl) Then Label1 = elem + ":   curseur:" + Str(pl0) + " =>" + Mid(tpl, pl0, 1)
pl = pl1
pl1 = RichTextBox1.SelLength
repe(exo) = Mid(tpl, pl0 + 1, pl1): Label1 = Str(pl0) + "," + repe(exo) + "," + Str(pl1) + elem: drep(exo) = pl0: lrep(exo) = pl1
End Sub

Conclusion :


toujours du code de débutant bricolé, mais ça m'a bcp servi, et si ça peut être utile à quelqu'un, merci.
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (oulipan)