J'ai un fichier TXT, comprenant une vingtaine de lignes. Chaque ligne se
compose de deux données (p.ex.: "UserName","Charles")
La première données est le nom du contrôle TextBox de ma boîte de dialogue,
et le second, sa valeur.
Est-il possible de compléter la boîte de dialogue en important les infos du
fichier TXT d'une manière plus élégante, en évitant le Select Case ?
Pour l'instant, je procède de la manière suivante:
FileNum=FreeFile
Open strFile For Input As #FileNum
While Not EOF(FileNum)
Input #FileNum, CtrlName, CtrlValue
select Case CtrlName
Case "UserName"
Me.UserName=CtrlValue
Case .....
......
End Select
Wend
Close #FileNum
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Charles
Merci, j'ai trouvé :-)))))
"Charles" <A S a écrit dans le message de news:%23MKwLUS$
Bonjour,
J'ai un fichier TXT, comprenant une vingtaine de lignes. Chaque ligne se compose de deux données (p.ex.: "UserName","Charles") La première données est le nom du contrôle TextBox de ma boîte de dialogue,
et le second, sa valeur.
Est-il possible de compléter la boîte de dialogue en important les infos du
fichier TXT d'une manière plus élégante, en évitant le Select Case ?
Pour l'instant, je procède de la manière suivante:
FileNum=FreeFile Open strFile For Input As #FileNum While Not EOF(FileNum) Input #FileNum, CtrlName, CtrlValue select Case CtrlName Case "UserName" Me.UserName=CtrlValue Case ..... ...... End Select Wend Close #FileNum
D'avance merci pour aide Charles
Merci, j'ai trouvé :-)))))
"Charles" <A S cschauss@pt.lu> a écrit dans le message de
news:%23MKwLUS$DHA.684@tk2msftngp13.phx.gbl...
Bonjour,
J'ai un fichier TXT, comprenant une vingtaine de lignes. Chaque ligne se
compose de deux données (p.ex.: "UserName","Charles")
La première données est le nom du contrôle TextBox de ma boîte de
dialogue,
et le second, sa valeur.
Est-il possible de compléter la boîte de dialogue en important les infos
du
fichier TXT d'une manière plus élégante, en évitant le Select Case ?
Pour l'instant, je procède de la manière suivante:
FileNum=FreeFile
Open strFile For Input As #FileNum
While Not EOF(FileNum)
Input #FileNum, CtrlName, CtrlValue
select Case CtrlName
Case "UserName"
Me.UserName=CtrlValue
Case .....
......
End Select
Wend
Close #FileNum
"Charles" <A S a écrit dans le message de news:%23MKwLUS$
Bonjour,
J'ai un fichier TXT, comprenant une vingtaine de lignes. Chaque ligne se compose de deux données (p.ex.: "UserName","Charles") La première données est le nom du contrôle TextBox de ma boîte de dialogue,
et le second, sa valeur.
Est-il possible de compléter la boîte de dialogue en important les infos du
fichier TXT d'une manière plus élégante, en évitant le Select Case ?
Pour l'instant, je procède de la manière suivante:
FileNum=FreeFile Open strFile For Input As #FileNum While Not EOF(FileNum) Input #FileNum, CtrlName, CtrlValue select Case CtrlName Case "UserName" Me.UserName=CtrlValue Case ..... ...... End Select Wend Close #FileNum
