[..] Menu déroulant avec base de données

[gege]

Bonjour,

Après différentes recherches infructueuses je désirerais avoir un menu déroulant qui me donne des noms de personnes
(que je puisse sélectionner individuellement pour les mettre dans une variable) qui se trouvent dans un fichier texte

exemple liste de noms.txt "base de données"
essayez de me donner un exemple concret
merci d'avance

[legend]

exemple liste de noms.txt "base de données"

un ficher texte n'est pas une base de donnés.
oui cela est faisable avec un ficher (peut importe l'extension) ou une base de donnés pour une meilleure organisation et sécurité.
pour l'affichage et la sélection, les fonctionnalités basiques d'une gui.

indices :

Code : Tout sélectionner

FileRead ou FileReadLine
StringSplit
fonctions de gestion de gui (Gui........)
 

c'est vraiment pas dur, si tu veut apprendre a coder commence avec ça.
je t'aiderais si tu bloque.

[Tlem]

Désolé legend, j'étais en train de coder pendant votre réponse.

@gege
Votre demande est plus ou moins vague, mais voici un code correspondant au cahier des charges :

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

Global $BDD = "base de données.txt"

GUICreate("Ma GUI", 226, 90, -1, -1)
Global $Valider = GUICtrlCreateButton("Valider", 75, 48, 75, 25)
Global $Combo = GUICtrlCreateCombo("Choisissez un nom", 16, 16, 193, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))


GUICtrlSetData ($Combo, _LectureBase())
GUISetState(@SW_SHOW)



While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

        Case $Valider
            MsgBox(64 + 8192, "Info", "Vous avez sélectionné : " & GUICtrlRead($Combo))

    EndSwitch
WEnd

Func _LectureBase()
    $hFile = FileOpen($BDD)
    If $hFile = -1 Then
        MsgBox(16, "Erreur", "Erreur de lecture du fichier de base de données")
        Exit
    EndIf

    Local $Datas

    While 1
        Local $Line = FileReadLine($hFile)
        If @error = -1 Then ExitLoop

        $Datas &= $Line & "|"
    WEnd

    FileClose($hFile)
    Return $Datas
EndFunc   ;==>_LectureBase

On supposera que le fichier des noms est du genre :

Code : Tout sélectionner

gege
Tlem
legend
Thierry
...

[legend]

t'as bien fait. j'ai pas fait de code parce que je suis paresseux

Après différentes recherches infructueuses

j'en doute!
faut travailler dur pour devenir programmeur

[zeshrek]

un ficher texte n'est pas une base de donnés.

Si !
Une basse de données, c'est :

Fichier ou ensemble de fichiers disque ou mémoire permettant le stockage permanent ou temporaire et l'accès à des informations structurées.

(...) une base de données (Abr. : « BD » ou « BdD ») est un lot d'informations stockées dans un dispositif informatique

Base de données, ensemble de données logiquement liées entre elles et utilisables pour des applications distinctes

Donc vu que son fichier stocke des données de facon organiser (un nom par ligne, c'es une structure, même si elle est hyper simple) pour y accéder (via un script autoit), il s'agit de facto d'une base de données.
Base de donnée ne veut pas forcément dire SGBD/SGBDR avec serveur, langage de requete et tout le tintouin !


Ceci étant posé, voici ma modeste contribution (sans FileRead ou FileReadLine, ni même StringSplit)

► Afficher le texte

Code : Tout sélectionner

#include <File.au3>
#include <Array.au3>

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

Global $DbName = "test.txt"

Dim $FileRead, $Data
Global $Form1, $Btn1, $Combo

_FileReadToArray($DbName, $FileRead)
$Data = _ArrayToString($FileRead, "|", 1)

$Form1 = GUICreate("Sélectionnez un nom", 256, 90)
$Btn1 = GUICtrlCreateButton("Ok", 85, 48, 75, 25)
$CmbTitle="Choisissez un nom..."
$Combo = GUICtrlCreateCombo($CmbTitle, 16, 16, 220, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))

GUICtrlSetData($Combo, $Data)
GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Btn1
            If GUICtrlRead($Combo) <> $CmbTitle Then
                MsgBox(64 + 8192, "Choix", "Nom sélectionné : " & GUICtrlRead($Combo))
            Else
                MsgBox(16 + 8192, "Erreur", "Veuillez choisir un nom")
            EndIf
    EndSwitch
WEnd
 

[Tlem]

voici ma modeste contribution (sans FileRead ou FileReadLine, ni même StringSplit)

Ha !!!

Et dans _FileReadToArray() et _ArrayToString(), ils utilisent quoi à ton avis.

[zeshrek]

J'veux surtout pas l'savoir

[legend]

un ficher texte n'est pas une base de donnés.

Si !
Une basse de données, c'est :

Fichier ou ensemble de fichiers disque ou mémoire permettant le stockage permanent ou temporaire et l'accès à des informations structurées.

l’extension est juste pour indiquer comment lire le contenu du fichier, donc si la structure n'est pas décrite dans l'extension elle est décrite dans le code du programme ce qui rend tout type de ficher une base de donnés.

l’extension indique comment lire le contenu du fichier, donc si la structure n'est pas décrite dans l'extension elle est décrite dans le code du programme ce qui rend tout type de ficher une base de donnés.
je suppose que la structure n'est donc pas dans le fichier mais dans le code.

[zeshrek]

Peu importe ou est indiquée la struture. Ca peut etre un fichier propriétaire, et donc dont la structure est gérer dans le programme.
Ceci dit, il a bien indiqué quelle structure il voulait : 1 nom par ligne.

[jchd]

D'accord sur ce point, mais tu as occulté la suite de ce qu'en dit Wikipédia :

Les technologies existantes permettent d'organiser et de structurer la base de données de manière à pouvoir facilement manipuler le contenu et stocker efficacement de très grandes quantités d'informations

C'est là que se situent les véritables distinctions.
Si on change un caractère dans la troisième entrée d'un fichier texte "structuré" , on doit récrire l'ensemble du fichier. S'il comporte une "très grande quantité d'informations", je sais pas moi, un fichier de recensement avec 60 millions d'entrées, on en a terminé avec l'efficacité.
De même pour retrouver Michel Tartempion dans ce bazar, mieux vaudrait avoir un distributeur de boissons proche et pas cher.

C'est un simple fichier de données sans organisation, point.

[zeshrek]

Hum.... pas entierement d'accord
Il est vrai que si il doit se pogner une liste de 60.000.000 entrées dans sa liste déroulante, ca risque de pas etre ce qu'il y a de plus rapide, ni même faisable (en admetant qu'il y ait assez de mémoire pour tout stocker, un tableau autoit est limité non ?).
Par contre pour son cas, cad une liste d'une dizaine ou une vingtaine d'entrées, c'est suffisant.
Bref on est plus face a une inadaptation de l'outil pour l'usage qu'on veut en faire. Une analogie : Pour creuser le trou de ma piscine, on a pas pris la pelle et le seau de mon petit neveux de 6 ans, mais une bonnne vieille pelleteuse. N'empeche que le môme il serait vachement emm*rdé si a la plage on lui refilait une pelleteuse pour faire mumuse !
Et pourtant les deux servent juste a faire des trous qu'on rempli de flotte pour patauger.

Maintenant, si on en revient au fichier texte, les données y sont facilement manipulables (il suffit d'un éditeur de texte pour ajouter une entrée), et on peut facilement y stocker de grandes quantités d'information.Il est même possible d'en stocker plus en zipant a la vollée, ou en transcodant le texte sur 7 bits, de facon a stocker 2 caracteres par octet, mais ce serait au dépend de la facilité d'accès

Enfin si il faut tout réécrire faire une modif à la 3eme entrée, c'est juste parceque le moteur de la base de donnée (donc en l'occurence le script) a été développé dans un langage (autoit) qui n'a pas de fonction qui gere l'écriture d'une ligne bien précise (pour info le basic avec lequel j'ai commencé a faire mumuse y a 30 ans avait une instruction qui permettait ce genre de manipulation...).
Mais si tu prends ce ficher, tu peux avoir une 'base de données' d'une seule table avec un enregistrement par ligne, et 2 champs, le nom et le prénom, avec comme séparateur de champs l'espace (ou pour reprendre l'exemple de tlem, un seul champs.
C'est un format de fichier 'propriétaire' dont la structure est tres limitée, mais elle existe.

Enfin pour philosopher, un "fichier texte", ca en veut rien dire. Un fichier est un fichier, il est composé d'octets, et c'est sa lectue puis son inteprétation qui lui donne un sens.

Mais je l'ai dit, je suis d'accord avec toi, ce n'est pas une base de donnée au sens ou on l'entend de nos jours, et elle ne nécéssite certainement un DBA. C'est juste que je tilte quand je lis des énormités du genre "un fichier txt n'est pas une BDD"
Fin du troll pour moi

[jchd]

en transcodant le texte sur 7 bits, de facon a stocker 2 caracteres par octet

L'octet à 14 bits, c'est juste ça qu'il faut pour résoudre le problème des dettes souveraines : on va serrer très fort les bits dans les octets, exactement comme on va tous se serrer la ceinture.

Il y en a peut-être à qui ça ferait le plus grand bien, de bouffer un temps des nèfles et des courants d'air ...

[legend]

et moi je retire ce que j'ai dit a propos des fichiers texte (bonne chance jchd )

voici ma modeste contribution (sans FileRead ou FileReadLine, ni même StringSplit)

Ha !!!

Et dans _FileReadToArray() et _ArrayToString(), ils utilisent quoi à ton avis.

une Dll peut être

[gege]

Bonjour,

Merci à tous
Tout particulièrement à Zeshrek et Tlem pour sa démonstration
Avec votre aide j'ai réussi à faire une guise avec 2 menus déroulants avec à l'intérieur des noms de classes et d'élèves pour créer une suite de dossiers Serait-il possible d'avoir un complément d'informations Pour corser l'affaire, il faudrait que chaque classe corresponde à un groupe d'élèves 6B : Christine : pascal ….. puis 3A :André : Gérard…
Serait il possible d’avoir des explications sur chaque ligne du programme
un bouton quitter que je n'arrive pas à faire fonctionner
+ la création des dossiers par les variables
Peu ton avoir 1 seul fichier .txt pour les différentes classe + nom prenom
Merci à tous
gege

► Afficher le texte

Code : Tout sélectionner

#include <File.au3>
#include <Array.au3>
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Global $DbName = "Classe.txt"
Global $DbName1 = "Nom Prenom.txt"

Dim $FileRead, $Data
Dim $FileRead1, $Data1
Global $Form1, $Btn1, $Combo
Global $Form11, $Btn11, $Combo1

_FileReadToArray($DbName, $FileRead)
$Data = _ArrayToString($FileRead, "|", 1)
_FileReadToArray($DbName1, $FileRead1)
$Data1 = _ArrayToString($FileRead1, "|", 1)

$Form1 = GUICreate("CLASSE + NOM PRENOM", 500, 200, -1, -1)
$Btn1 = GUICtrlCreateButton("Ok", 336, 24, 65, 41)
GUICtrlSetFont(-1, 15, 400, 2, "Arial")

$CmbTitle="Choisissez une Classe..."
$Combo = GUICtrlCreateCombo($CmbTitle, 40, 24, 249, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))
GUICtrlSetFont(-1, 15, 400, 2, "Arial")

$CmbTitle1="Choisissez un Nom..."
$Combo1 = GUICtrlCreateCombo($CmbTitle1, 40, 80, 249, 20, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))
GUICtrlSetFont(-1, 15, 400, 2, "Arial")

$exititem = GUICtrlCreateButton("QUITER", 336, 120, 80, 41)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")

GUICtrlSetData($Combo, $Data)
GUISetState(@SW_SHOW)
GUICtrlSetData($Combo1, $Data1)
GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Btn1
            If  GUICtrlRead($Combo) <> $CmbTitle And GUICtrlRead($Combo1) <> $CmbTitle1 Then
            msgbox(0,"", "CLASSE ="&$Combo & @CRLF & "NOM-PRENOM ="&$Combo1)

            Global $Destination = "c:\TITI"
            DirCopy(@ScriptDir, $Destination&"\"&$Combo&"\"&$Combo1&""&" "&@MON&"-"&@MDAY&"-"&@YEAR&" "&@HOUR&"h"&@MIN&"m"&@SEC&"s")

            Else
                MsgBox(16 + 8192, "Erreur", "Veuillez choisir CLSSE et NOM ")

        EndIf

    EndSwitch
WEnd

[legend]

pour le bouton exit faut ajouter ces 2lignes avant le endswitch :

Code : Tout sélectionner

case $exititem
exit

pour créer un dossier (facile a trouver avec une petite recherche sur le fofo)
la fonction : DirCreate ($chemin)
le chemin peut être variable.

pour stocker le tout en un seul ficher.
on suppose que la lecture du fichier est stockée dans $fichier.

► Afficher le texte

Code : Tout sélectionner

$fichier = "ligne" & @CRLF _
&"ligne1" & @CRLF _
&"ligne2" & @CRLF _
&"ligne3" & @CRLF _
&"ligne4" & @CRLF _
& "bidouille" & @CRLF _ ; séparation entre les 2parties, peut être n'importe quel mot qui n'existe pas dans le texte
&"Tlem" & @CRLF _
&"Zshrek" & @CRLF _
&"ogre vert" & @CRLF _
&"TT22" & @CRLF
msgbox (0, "", $fichier)
$split = stringsplit ($fichier, "bidouille", 1)
msgbox (0, "", $split[1])
msgbox (0, "", $split[2])



 

[mikell]

il faudrait que chaque classe corresponde à un groupe d'élèves 6B : Christine : pascal ….. puis 3A :André : Gérard…

Dans ce cas peut-être qu'un fichier ini serait mieux, de la forme (par exemple)

Code : Tout sélectionner

[6B]
1=Christine
2=Pascal

[3A]
1=André
2=Gérard
 

On lit les classes avec : $eleves = IniReadSection("fichier.ini", "6B")
ce qui renvoie : $eleves[0][0] = nombre d'élèves dans la classe 6B, et $eleves[1][1] = Christine, $eleves[2][1] = Pascal, etc
C'est plus simple pour renvoyer ensuite dans une combo
Par exemple (pour faire simple) :

Code : Tout sélectionner

If GuiCtrlRead($combo1) = "6B" Then $eleves = IniReadSection("fichier.ini", "6B")

Et hop on alimente la combo2 avec une boucle For qui liste les valeurs renvoyées

Code : Tout sélectionner

For $i = 1 To $eleves[0][0]
   GuiCtrlSetData($combo2, $eleves[$i][1] & "|")   ; noms des élèves
Next

Ouala

Bonus : placé en début de script, IniReadSectionNames("fichier.ini") renvoie le nombre de classes et une liste de toutes les classes, ce qui permet de remplir la combo1 ...

[zeshrek]

La solution de mikell est pas mal du tout.
Sauf que j'ai l'impression qu'on a pas tout le cahier des charges, et du coup, je vais commencer a douter. Parceque si on doit avoir encore des ajouts, on va p'tet passer rapidement a une petite base SQL, sans quoi on va tres vite tomber dans les travers que soulevait jchd tout a l'heure.
Donc si il n'y a rien de plus que les classes et les eleves par classe, ca ira. Maintenant si tu veux mettre je sais pas moi, leurs notes par matiere, ou leurs emplois du temps, ce genre de trucs... passe au SQL

[bloodwolff]

voici ma modeste contribution (sans FileRead ou FileReadLine, ni même StringSplit)

Ha !!!

Et dans _FileReadToArray() et _ArrayToString(), ils utilisent quoi à ton avis.

Probablement des Regex

[mikell]

si il n'y a rien de plus que les classes et les eleves par classe, ca ira. Maintenant si tu veux mettre je sais pas moi, leurs notes par matiere, ou leurs emplois du temps, ce genre de trucs...

Ah mais, ya encore une place (juste une) dans le fichier ini pour mettre un renseignement, si on l'écrit comme ça

Code : Tout sélectionner

[6B]
Christine=renseignement1
Pascal=renseignement2

Pour l'instant un fichier ini correspond nickel au cahier des charges initial et à l'exemple de script présenté... après, on verra
... mais l'ogre a un flair redoutable

[jchd]

Connaissant mon addiction à SQLite, je m'abstiens de m'étendre plus (ça serait déjà torché).