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
 LINQ TO ENTITIESLINQ TO ENTITIES par Matthieu MEZIL
Cette semaine je suis à Montréal en tant que speaker sur Entity Framework pour l'évènement confoo . J'en profite pour remercier les organisateurs de cet évènement de m'avoir fait confiance et Access-IT de m'avoir permis d'y participer. En parallèle, j'ai ...
Cliquez pour lire la suite de l'article par Matthieu MEZIL FAIRE APPARAITRE L'ONGLET 'DéVELOPPEUR' DANS OFFICE 2010FAIRE APPARAITRE L'ONGLET 'DéVELOPPEUR' DANS OFFICE 2010 par neodante
La nouvelle interface d'Office 2010 à amener quelques modifications par rapport à celle de 2007. Certes mineures, ces modifications ont fait disparaître la case à cocher de l'onglet 'Développeur' en première page du panneau du 'bouton Office' (dans Office...
Cliquez pour lire la suite de l'article par neodante [ASTUCE] PATCH POUR MICROSOFT FORUMS NNTP BRIDGE V1[ASTUCE] PATCH POUR MICROSOFT FORUMS NNTP BRIDGE V1 par pierre
Si vous avez téléchargé comme moi Microsoft Forums NNTP Bridge V1 avant le 11 mars 2010 (voir [Astuce] Disponibilité de Microsoft Forum NNTP Bridge Version 1.0), un problème de date localisée pour les non anglais était présent. Un patch est disponibl...
Cliquez pour lire la suite de l'article par pierre PB LORS DE L'INSTALLATION SHAREPOINT 2010.PB LORS DE L'INSTALLATION SHAREPOINT 2010. par Patrick Guimonet
Lors de l'installation de SharePoint 2010, j'ai rencontré un problème de plantage à l'étape 5 du configuration Wizard. Ca se termine sur cet écran : Et en analysant le fichier de journalisation, on remarque vers la fin des 15000 et quelques lign...
Cliquez pour lire la suite de l'article par Patrick Guimonet [WF4] AJOUTER DES CONTRAINTES à UNE ACTIVITé (2/2)[WF4] AJOUTER DES CONTRAINTES à UNE ACTIVITé (2/2) par JeremyJeanson
Après mon précédent article qui attaque les contraintes par la fasse Nord de l'Everest. passons à la seconde possibilité offerte par WF4 pour valider une activité : la metadata . Je vous en ai déjà toucher un ou deux mots. La metadata dans WF4 est un élém...
Cliquez pour lire la suite de l'article par JeremyJeanson
Logiciels
 Xilisoft Convertisseur Vidéo Ultimate (5.1.39.0305)XILISOFT CONVERTISSEUR VIDéO ULTIMATE (5.1.39.0305)Xilisoft Convertisseur Vidéo Ultimate est un outil puissant de conversion vidéo, facile à utilise... Cliquez pour télécharger Xilisoft Convertisseur Vidéo Ultimate Xilisoft DVD Ripper Ultimate (5.0.64.0304)XILISOFT DVD RIPPER ULTIMATE (5.0.64.0304)Xilisoft DVD Ripper Ultimate est un logiciel excellent pour copier et convertir DVD vers presque ... Cliquez pour télécharger Xilisoft DVD Ripper Ultimate Rigs of Rods (63.3)RIGS OF RODS (63.3)c'est un jeu de multi-simulation camions,autobus voitures, avions, bateaux, hélicoptère avec défo... Cliquez pour télécharger Rigs of Rods Konvertor (4.00)KONVERTOR (4.00)Le logiciel est un gestionnaire multimedia affichant, jouant et convertissant plus de 2000 format... Cliquez pour télécharger Konvertor
|