Combobox lier à un fichier txt [Résolu]

Signaler
Messages postés
36
Date d'inscription
dimanche 8 octobre 2006
Statut
Membre
Dernière intervention
12 mars 2010
-
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
-
Bonjour,

Voilà mon souci:
J'ai une combobox qui est lier à un fichier TXT par le code
Dim hMenu As Long
Dim menuItemCount As Long
Dim A1 As String
    
   Open "C:\Rapport événement\Base de donnée SITES adresse.txt" For Input As #1
While Not EOF(1)
Line Input #1, A1$
ComboNumero.AddItem (A1$)
Wend
Close #1


Mon soucis est que je voudrai avoir juste les 5 premières chiffres de chaque ligne et non toutes les lignes complète dans ma combobox

Mon fichier txt à son contenue comme:

05245 [tab] test1
05558 [tab] test2
13549 [tab] test3
16545 [tab] test4
48987 [tab] test5
...

Comment je dois faire?
merci de votre aide

5 réponses

Messages postés
36
Date d'inscription
dimanche 8 octobre 2006
Statut
Membre
Dernière intervention
12 mars 2010

Private Sub Form_Load()
ComboNumero.Visible = True
Image1.Visible = True
Text3.Visible = False
Label8.Visible = False
Dim l As String 'déclare la variante
Dim a As String 'déclare la variante


Dim i2%, j2%
aFile3 = GetColumnsFromFile("C:\Rapport événement\Base de donnée SITES adresse.txt", vbTab)
For i2 = 1 To UBound(aFile3)
Combo1.AddItem aFile3(i2, 1)
Next i2

Open "C:\Rapport événement\Base de Donnée Type inter.txt" For Input As #1
While Not EOF(1)
Line Input #1, a$
Combo2.AddItem (a$)
Wend
Close #1

ComboNumero.Visible = True
Image1.Visible = True
Text3.Visible = False
Label8.Visible = False

Dim i%, j%
aFile2 = GetColumnsFromFile("C:\Rapport événement\Base de donnée SITES adresse.txt", vbTab)
For i = 0 To UBound(aFile2)
ComboNumero.AddItem aFile2(i, 0)
Next i


End Sub
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
70
Salut
Bah utilise Left$ pour découper ton texte (un copain à Mid$ et Right$)

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
Messages postés
36
Date d'inscription
dimanche 8 octobre 2006
Statut
Membre
Dernière intervention
12 mars 2010

Bon je vous remercie sa fonctionne comme je veux:

'******************* Combo Numéro
Dim hMenu2 As Long
Dim menuItemCount2 As Long
Dim A12 As String
    
   Open "C:\Rapport événement\Base de donnée SITES adresse.txt" For Input As #1
While Not EOF(1)
Line Input #1, A12$
A12$ = Left$(A12$, 5) ' NOUVELLE LIGNES
ComboNumero.AddItem (A12$)
Wend
Close #1

'******************** Combo Site

Dim i%, j%
    aFile = GetColumnsFromFile("C:\Rapport événement\Base de donnée SITES adresse.txt", vbTab)
    For i = 1 To UBound(aFile)
        Combo1.AddItem aFile(i, 1)
    Next i


Maintenant encore une question est ce que s'est posible que quand je clique sur un numéro du comboNuméro il aparrait automatiquement l'autre moitier dans la Combo1 ?

Merci d'avance
Messages postés
36
Date d'inscription
dimanche 8 octobre 2006
Statut
Membre
Dernière intervention
12 mars 2010

Oupsss une erreur

je voulais dire:

Maintenant encore une question est ce que s'est posible que quand je clique sur un numéro du comboNuméro il aparrait automatiquement l'autre moitier dans une textBox ou un label ?

Merci d'avance
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
35
getcolumns!! :
tu as déjà tout, alors pourquoi relire 2 fois?

et à nous de deviner quelle est cette fonction? coup de bol :
http://www.codyx.org/snippet_recuperer-contenu-fichier-sous-forme-tableau-multidimensionnel-apres_508.aspx