Je reçois plusieurs fiches ini qui regroupent des informations propre à chaque étudiant inscrit dans mon cours de formation à distance (Suite à la suspension des cours présentiels à cause du Covid-19). Le nombre des étudiants peut attendre facilement entre 500 à 1.000 personnes (fichier ini).
Le système E-learning: Autosatisfaction des profs, les étudiants sont majoritairement insatisfaits des cours interactifs à travers la plateforme de leur établissement/université : Aucune formation sur le système E-learning, faible débit de connexion… Pour détourner ces contraintes épineuses, l’ensemble des enseignants ont adopté le partage de documents sous différents formats (PDF, Word, PPT).
Question : Comment convertir plusieurs fichiers .ini dans un seul tableau afin de faciliter la gestion des étudiants inscrits dans mon cours et leurs permettent de télécharger le cours de formation.
Merci pour votre aide.
Cordialement
Exemple de fichier ini:
Application01()
;*** Coordonnées de l'étudiant.
If $A1 <> "" Then IniWrite(@ScriptDir & "\Config.ini", "parametres", "$Civilité", $A1)
If $A2 <> "" Then IniWrite(@ScriptDir & "\Config.ini", "parametres", "$Nom", $A2)
If $A3 <> "" Then IniWrite(@ScriptDir & "\Config.ini", "parametres", "$Prenom", $A3)
If $A4 <> "" Then IniWrite(@ScriptDir & "\Config.ini", "parametres", "$DateNaissence", $A4)
If $A5 <> "" Then IniWrite(@ScriptDir & "\Config.ini", "parametres", "$EmailAcadimique", $A5)
If $A6 <> "" Then IniWrite(@ScriptDir & "\Config.ini", "parametres", "EmailPersonnel", $A6)
If $A7 <> "" Then IniWrite(@ScriptDir & "\Config.ini", "parametres", "$GSM", $A7)
If $A8 <> "" Then IniWrite(@ScriptDir & "\Config.ini", "parametres", "$WatsApp", $A8)
If $A9 <> "" Then IniWrite(@ScriptDir & "\Config.ini", "parametres", "$CNE", $A9)
If $A10 <> "" Then IniWrite(@ScriptDir & "\Config.ini", "parametres", "$Formation", $A10)
If $A11 <> "" Then IniWrite(@ScriptDir & "\Config.ini", "parametres", "$UtilisateurPoste", $A11)
If $A11 <> "" Then IniWrite(@ScriptDir & "\Config.ini", "parametres", "$DomaineDuPoste", $A12)
EndFunc