Accueil > Forum > > > > Texte séparé par une virgule dans une list et une textbox
 Texte séparé par une virgule dans une list et une textbox
lundi 16 juin 2003 à 14:50:21 |
Texte séparé par une virgule dans une list et une textbox
z980x
|
J' explique mon problème : J'ai une listbox et une textbox. J'ai un fichier texte dans le même répertoire avec par exemple: Visual,Basic Hello,World Je voudrais lors du lancement du programme, avoir la premiere partie de la ligne (ici Visual) dans la liste et la seconde partie (ici Basic) dans la textebox. La virgule jouant le séparateur... Ensuite, lorsque je clique sur un autre texte dans la liste, je veux que la textbox soit ce qu'il y a apres la virgule de la même ligne. Exemple : Je clique sur la chaine Hello dans la liste, je veux que la textebox affiche World Voila, merci pour votre aide... |
|
lundi 16 juin 2003 à 15:04:43 |
Re : Texte séparé par une virgule dans une list et une textbox
Zoltan67
|
essaie ça, ça marche si le fichier texte a la structure que tu as indiqué, avec 2 mots ( ou expressions ) par ligne, séparés par une virgule :
Option Explicit
Dim tbl(x, 2) As String 'ou x est le nombre de lignes de ton fichier, ou supérieur si tu ne le connais pas
Private Sub Form_Load()
Dim str As String
Dim i As Integer
Dim j As Integer
Open App.Path & "\toto.txt" For Input As #1
i = 0
While Not EOF(1)
Line Input #1, str
tbl(i, 0) = Left(str, InStr(str, ",") - 1) 'on récupère la partie à gauche de la virgule
tbl(i, 1) = Mid(str, InStr(str, ",") + 1)'on récupère la partie à droite de la virgule
i = i + 1
Wend
Close #1
For j = 0 To i
List1.AddItem tbl(j, 0)
Next
End Sub
Private Sub List1_Click()
Text1.Text = tbl(List1.ListIndex, 1)
End Sub
|
------------------------------- Réponse au message : ------------------------------- > J' explique mon problème : > > J'ai une listbox et une textbox. > J'ai un fichier texte dans le même répertoire avec par exemple: > > Visual,Basic > Hello,World > > > Je voudrais lors du lancement du programme, avoir la premiere partie de la ligne (ici Visual) dans la liste et la seconde partie (ici Basic) dans la textebox. La virgule jouant le séparateur... > > Ensuite, lorsque je clique sur un autre texte dans la liste, je veux que la textbox soit ce qu'il y a apres la virgule de la même ligne. > Exemple : > > Je clique sur la chaine Hello dans la liste, je veux que la textebox affiche World > > Voila, merci pour votre aide... |
|
lundi 16 juin 2003 à 15:41:38 |
Re : Texte séparé par une virgule dans une list et une textbox
z980x
|
ouahou ! Ca marche super bien ! Merci ! Mais malheureusement, je ne vais pas connaitre le nb de lignes. Quand tu dis "ou supérieur si tu ne le connais pas", ca veut dire quoi? Qu'il faut mettre ca: Dim tbl(>, 2) As String ou ca Dim tbl(<, 2) As String Parce que ca ne marche pas quand je fais ca ! Merci pour ton aide Voila ! ------------------------------- Réponse au message : ------------------------------- > essaie ça, ça marche si le fichier texte a la structure que tu as indiqué, avec 2 mots ( ou expressions ) par ligne, séparés par une virgule : > >
> Option Explicit
> Dim tbl(x, 2) As String 'ou x est le nombre de lignes de ton fichier, ou supérieur si tu ne le connais pas
>
> Private Sub Form_Load()
> Dim str As String
> Dim i As Integer
> Dim j As Integer
> Open App.Path & "\toto.txt" For Input As #1
> i = 0
> While Not EOF(1)
> Line Input #1, str
> tbl(i, 0) = Left(str, InStr(str, ",") - 1) 'on récupère la partie à gauche de la virgule
> tbl(i, 1) = Mid(str, InStr(str, ",") + 1)'on récupère la partie à droite de la virgule
> i = i + 1
> Wend
> Close #1
> For j = 0 To i
> List1.AddItem tbl(j, 0)
> Next
> End Sub
>
> Private Sub List1_Click()
> Text1.Text = tbl(List1.ListIndex, 1)
> End Sub
> |
> > > > ------------------------------- > Réponse au message : > ------------------------------- > > > J' explique mon problème : > > > > J'ai une listbox et une textbox. > > J'ai un fichier texte dans le même répertoire avec par exemple: > > > > Visual,Basic > > Hello,World > > > > > > Je voudrais lors du lancement du programme, avoir la premiere partie de la ligne (ici Visual) dans la liste et la seconde partie (ici Basic) dans la textebox. La virgule jouant le séparateur... > > > > Ensuite, lorsque je clique sur un autre texte dans la liste, je veux que la textbox soit ce qu'il y a apres la virgule de la même ligne. > > Exemple : > > > > Je clique sur la chaine Hello dans la liste, je veux que la textebox affiche World > > > > Voila, merci pour votre aide... > |
|
lundi 16 juin 2003 à 15:49:06 |
Re : Texte séparé par une virgule dans une list et une textbox
z980x
|
ah, un autre problème : Il me dit "indice en dehors de la plage..." Je ne sais pas pk. Voila ! ------------------------------- Réponse au message : ------------------------------- > ouahou ! Ca marche super bien ! Merci ! > Mais malheureusement, je ne vais pas connaitre le nb de lignes. > Quand tu dis "ou supérieur si tu ne le connais pas", ca veut dire quoi? Qu'il faut mettre ca: > > Dim tbl(>, 2) As String > ou ca > Dim tbl(<, 2) As String > > Parce que ca ne marche pas quand je fais ca ! > > Merci pour ton aide > Voila ! > > > ------------------------------- > Réponse au message : > ------------------------------- > > > essaie ça, ça marche si le fichier texte a la structure que tu as indiqué, avec 2 mots ( ou expressions ) par ligne, séparés par une virgule : > > > >
> > Option Explicit
> > Dim tbl(x, 2) As String 'ou x est le nombre de lignes de ton fichier, ou supérieur si tu ne le connais pas
> >
> > Private Sub Form_Load()
> > Dim str As String
> > Dim i As Integer
> > Dim j As Integer
> > Open App.Path & "\toto.txt" For Input As #1
> > i = 0
> > While Not EOF(1)
> > Line Input #1, str
> > tbl(i, 0) = Left(str, InStr(str, ",") - 1) 'on récupère la partie à gauche de la virgule
> > tbl(i, 1) = Mid(str, InStr(str, ",") + 1)'on récupère la partie à droite de la virgule
> > i = i + 1
> > Wend
> > Close #1
> > For j = 0 To i
> > List1.AddItem tbl(j, 0)
> > Next
> > End Sub
> >
> > Private Sub List1_Click()
> > Text1.Text = tbl(List1.ListIndex, 1)
> > End Sub
> > |
> > > > > > > > ------------------------------- > > Réponse au message : > > ------------------------------- > > > > > J' explique mon problème : > > > > > > J'ai une listbox et une textbox. > > > J'ai un fichier texte dans le même répertoire avec par exemple: > > > > > > Visual,Basic > > > Hello,World > > > > > > > > > Je voudrais lors du lancement du programme, avoir la premiere partie de la ligne (ici Visual) dans la liste et la seconde partie (ici Basic) dans la textebox. La virgule jouant le séparateur... > > > > > > Ensuite, lorsque je clique sur un autre texte dans la liste, je veux que la textbox soit ce qu'il y a apres la virgule de la même ligne. > > > Exemple : > > > > > > Je clique sur la chaine Hello dans la liste, je veux que la textebox affiche World > > > > > > Voila, merci pour votre aide... > > > |
|
lundi 16 juin 2003 à 16:09:27 |
Re : Texte séparé par une virgule dans une list et une textbox
Zoltan67
|
quand je dis supérieur, je veux dire une valeur supérieure au nombre de lignes ( si tu peux avoir un order d'idée du nombre ). comme ça, tu n'auras pas d'indice en dehors de la plage. sinon, au debut de ton form_load, tu rajoutes:
dim k as integer
k=0
open app.path & "\toto.txt" for input as #1
while not eof(1)
k=k+1
wend
close #1
redim tbl(k,2) as string
|
et ensuite tu replace tout le reste du code que je t'ai mis avant ------------------------------- Réponse au message : ------------------------------- > ah, un autre problème : > Il me dit "indice en dehors de la plage..." > Je ne sais pas pk. > Voila ! > > > ------------------------------- > Réponse au message : > ------------------------------- > > > ouahou ! Ca marche super bien ! Merci ! > > Mais malheureusement, je ne vais pas connaitre le nb de lignes. > > Quand tu dis "ou supérieur si tu ne le connais pas", ca veut dire quoi? Qu'il faut mettre ca: > > > > Dim tbl(>, 2) As String > > ou ca > > Dim tbl(<, 2) As String > > > > Parce que ca ne marche pas quand je fais ca ! > > > > Merci pour ton aide > > Voila ! > > > > > > ------------------------------- > > Réponse au message : > > ------------------------------- > > > > > essaie ça, ça marche si le fichier texte a la structure que tu as indiqué, avec 2 mots ( ou expressions ) par ligne, séparés par une virgule : > > > > > >
> > > Option Explicit
> > > Dim tbl(x, 2) As String 'ou x est le nombre de lignes de ton fichier, ou supérieur si tu ne le connais pas
> > >
> > > Private Sub Form_Load()
> > > Dim str As String
> > > Dim i As Integer
> > > Dim j As Integer
> > > Open App.Path & "\toto.txt" For Input As #1
> > > i = 0
> > > While Not EOF(1)
> > > Line Input #1, str
> > > tbl(i, 0) = Left(str, InStr(str, ",") - 1) 'on récupère la partie à gauche de la virgule
> > > tbl(i, 1) = Mid(str, InStr(str, ",") + 1)'on récupère la partie à droite de la virgule
> > > i = i + 1
> > > Wend
> > > Close #1
> > > For j = 0 To i
> > > List1.AddItem tbl(j, 0)
> > > Next
> > > End Sub
> > >
> > > Private Sub List1_Click()
> > > Text1.Text = tbl(List1.ListIndex, 1)
> > > End Sub
> > > |
> > > > > > > > > > > > ------------------------------- > > > Réponse au message : > > > ------------------------------- > > > > > > > J' explique mon problème : > > > > > > > > J'ai une listbox et une textbox. > > > > J'ai un fichier texte dans le même répertoire avec par exemple: > > > > > > > > Visual,Basic > > > > Hello,World > > > > > > > > > > > > Je voudrais lors du lancement du programme, avoir la premiere partie de la ligne (ici Visual) dans la liste et la seconde partie (ici Basic) dans la textebox. La virgule jouant le séparateur... > > > > > > > > Ensuite, lorsque je clique sur un autre texte dans la liste, je veux que la textbox soit ce qu'il y a apres la virgule de la même ligne. > > > > Exemple : > > > > > > > > Je clique sur la chaine Hello dans la liste, je veux que la textebox affiche World > > > > > > > > Voila, merci pour votre aide... > > > > > > |
|
lundi 16 juin 2003 à 19:07:39 |
Re : Texte séparé par une virgule dans une list et une textbox
z980x
|
En fait j'ai réglé le pb d'indice en dehors de la plage.... Par contre, il y a un pb. Si ton code tombe sur le ligne vide, il se plante, enfin, il ne marche pas. Tu peux me dire comment faire pour que quand il y a une ligne vide, il s'arrete. (car c'est la dernière ligne du fichier texte, alors il peut s'arréter...) Merci d'avance ! Voila ! ------------------------------- Réponse au message : ------------------------------- > ah, un autre problème : > Il me dit "indice en dehors de la plage..." > Je ne sais pas pk. > Voila ! > > > ------------------------------- > Réponse au message : > ------------------------------- > > > ouahou ! Ca marche super bien ! Merci ! > > Mais malheureusement, je ne vais pas connaitre le nb de lignes. > > Quand tu dis "ou supérieur si tu ne le connais pas", ca veut dire quoi? Qu'il faut mettre ca: > > > > Dim tbl(>, 2) As String > > ou ca > > Dim tbl(<, 2) As String > > > > Parce que ca ne marche pas quand je fais ca ! > > > > Merci pour ton aide > > Voila ! > > > > > > ------------------------------- > > Réponse au message : > > ------------------------------- > > > > > essaie ça, ça marche si le fichier texte a la structure que tu as indiqué, avec 2 mots ( ou expressions ) par ligne, séparés par une virgule : > > > > > >
> > > Option Explicit
> > > Dim tbl(x, 2) As String 'ou x est le nombre de lignes de ton fichier, ou supérieur si tu ne le connais pas
> > >
> > > Private Sub Form_Load()
> > > Dim str As String
> > > Dim i As Integer
> > > Dim j As Integer
> > > Open App.Path & "\toto.txt" For Input As #1
> > > i = 0
> > > While Not EOF(1)
> > > Line Input #1, str
> > > tbl(i, 0) = Left(str, InStr(str, ",") - 1) 'on récupère la partie à gauche de la virgule
> > > tbl(i, 1) = Mid(str, InStr(str, ",") + 1)'on récupère la partie à droite de la virgule
> > > i = i + 1
> > > Wend
> > > Close #1
> > > For j = 0 To i
> > > List1.AddItem tbl(j, 0)
> > > Next
> > > End Sub
> > >
> > > Private Sub List1_Click()
> > > Text1.Text = tbl(List1.ListIndex, 1)
> > > End Sub
> > > |
> > > > > > > > > > > > ------------------------------- > > > Réponse au message : > > > ------------------------------- > > > > > > > J' explique mon problème : > > > > > > > > J'ai une listbox et une textbox. > > > > J'ai un fichier texte dans le même répertoire avec par exemple: > > > > > > > > Visual,Basic > > > > Hello,World > > > > > > > > > > > > Je voudrais lors du lancement du programme, avoir la premiere partie de la ligne (ici Visual) dans la liste et la seconde partie (ici Basic) dans la textebox. La virgule jouant le séparateur... > > > > > > > > Ensuite, lorsque je clique sur un autre texte dans la liste, je veux que la textbox soit ce qu'il y a apres la virgule de la même ligne. > > > > Exemple : > > > > > > > > Je clique sur la chaine Hello dans la liste, je veux que la textebox affiche World > > > > > > > > Voila, merci pour votre aide... > > > > > > |
|
Cette discussion est classée dans : textbox, texte, liste, virgule, séparé
 Répondre à ce message
 Sujets en rapport avec ce message
pb saisie de texte dans textbox [ par footyak ]
bonjour, j'ai un pb: lorsque je saisis la valeur numérique d'un résultat et qu'il ya une virgule , le prog ne prend que la première valeur avant la vi
HELP! comment inverser du texte séparé par // dans une cellule? [ par nicobentz ]
bonjour, j'ai une colonne contenant des cellules du type: //liste de mots1//liste de mots2//liste de mots3... je souhaite avoir: //liste de mots3/
Centré du Texte Verticalement dans une TextBox [ par bb181185 ]
Bonjour à tous,Est-il possible de centré du Texte verticalement dans une TextBox?Merci d'avance
Sauvegarde du contenu d'une TextBox et DTPicker [ par Pdm59 ]
Bonjour,J'utilise une textbox et un DTPicker pour gerer des taches (une sorte d'alarme). J'aimerai qu'une fois que l'utilisateur est choisi sa date av
Supprimer une partie de texte [ par AlexPoulard ]
Bonjour, je voudrais connaître un code qui permet de supprimer une partie d'un texte. Je m'explique :Je créé un programme pour reconnaitre les icones
Textbox et retour à la ligne [ par jekifvb6 ]
Bonjour à toutes et tous, J'ai créé une form avec une picture box et un textbox (ou richtextbox aussi) et j'aimerais que le texte que je tape dans mo
Copier un texte dans une appli. externe(sendmessage) [ par element1488 ]
Bonjour à tous, Le but est de faire apparaitre une liste de choix par un hotkey. Lorsque l'utilisateur click la liste, le choix sélectionné est copié
Textbox suivit automatique ?? [ par ABF ]
Bonjours,j'aurais aimer savoir comment et s'il est possible de:Lorsque j'ouvre un fichier ou que j'ajoute du texte ... dans une textbox (txt.Text = tx
Selection du texte d'un control TextBox [ par LUSTRUCRU ]
BonjourJe souhaite sélectionner automatiquement le texte en bleu (ou autre couleur) se trouvant dans un textbox (dans un UserForm sur Excel) après sel
un bouton rechercher [ par kanabinch ]
Cette fois-ci j'ai une listebox où précédemment j'ai pu enregistrer des mots dans celle-ci. (qui ont été vérifié grâce à la table ascii...)En fait mon
 Livres en rapport
|
Derniers Blogs
 GESTION D'EXCEPTION AVEC LES TASKSGESTION D'EXCEPTION AVEC LES TASKS par richardc
Nous avons vu dans un précédent article comment utiliser Task pour effectuer des opérations dans un autre thread.
Malheureusement, comme tout le monde n'est pas parfait, il se peut que cette exécution se passe mal et qu'une exception se produise.
La...
Cliquez pour lire la suite de l'article par richardc DéMARRONS AVEC LES TASKSDéMARRONS AVEC LES TASKS par richardc
Que vous le vouliez ou non, le développement multi-tâche est maintenant une obligation pour toute nouvelle application. Il est donc vital d'en comprendre les mécanismes et de s'y mettre le plus tôt possible.
En attendant le .NET Framework 4.5 avec le...
Cliquez pour lire la suite de l'article par richardc SLIDE & DéMO TECHDAYS 2012 - FAST & FURIOUS XAML APPSSLIDE & DéMO TECHDAYS 2012 - FAST & FURIOUS XAML APPS par Vko
Retrouvez les slides et les démo de ma session Fast & Furious XAML Apps. A ceux qui se posent la question : "est-ce que le code de la DataGrid est disponible?", je vous répondrais "pas encore". Je vais mettre en place un projet codeplex pour part...
Cliquez pour lire la suite de l'article par Vko XNA IS DEAD!XNA IS DEAD! par richardc
Depuis la semaine dernière (et grâce aux TechDays 2012), je me penche activement sur la nouvelle version de Windows, aka Windows 8. Vous me direz, il était temps puisque la première preview date de Septembre dernier.
OK. Remarquez, on n'en est qu'aux...
Cliquez pour lire la suite de l'article par richardc TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 !TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 ! par ROMELARD Fabrice
Speakers: Fabrice Meillon et Stanislas Quastana Cette session est basée entièrement sur celle donnée lors de la BUILD cet hiver. Il n'y a pas d'ajout d'information en rapport avec cet évènement passé. Windows 8 Server sera intégralem...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice
Logiciels
 DocTranslate (V3.1.0.0)DOCTRANSLATE (V3.1.0.0)DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom... Cliquez pour télécharger DocTranslate Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System
|