Lire un fichier texte dans un combo
cs_seb41
Messages postés
58
Date d'inscription
jeudi 16 janvier 2003
Statut
Membre
Dernière intervention
27 juillet 2004
-
13 mai 2003 à 10:03
stevebelgium Messages postés 180 Date d'inscription lundi 17 mars 2003 Statut Membre Dernière intervention 7 juin 2003 - 13 mai 2003 à 10:13
stevebelgium Messages postés 180 Date d'inscription lundi 17 mars 2003 Statut Membre Dernière intervention 7 juin 2003 - 13 mai 2003 à 10:13
A voir également:
- Lire un fichier texte dans un combo
- Vba écrire dans un fichier texte - Conseils pratiques -Visual Basic / VB.NET
- Fichier .ini - Conseils pratiques -Visual Basic / VB.NET
- Roulettechat texte - Forum PHP
- Lire un fichier texte python - Forum Python
- Application pour lire fichier pdf sur android ✓ - Forum Java
1 réponse
stevebelgium
Messages postés
180
Date d'inscription
lundi 17 mars 2003
Statut
Membre
Dernière intervention
7 juin 2003
1
13 mai 2003 à 10:13
13 mai 2003 à 10:13
' VB 6 => pour le function split
' fichier = c:\a.txt et > 1 lignes
' control = combo1
Private Sub Command2_Click()
Dim Temp As String
Dim arr
Temp = ""
Open "c:\a.txt" For Input As #1
Temp = Input(LOF(1), #1)
Close #1
arr = Split(Temp, Chr$(13))
Me.Combo1.AddItem Mid(arr(0), 1)
For x = 1 To UBound(arr)
Me.Combo1.AddItem Mid(arr(x), 2)
Next
End Sub
stevebelgium
' fichier = c:\a.txt et > 1 lignes
' control = combo1
Private Sub Command2_Click()
Dim Temp As String
Dim arr
Temp = ""
Open "c:\a.txt" For Input As #1
Temp = Input(LOF(1), #1)
Close #1
arr = Split(Temp, Chr$(13))
Me.Combo1.AddItem Mid(arr(0), 1)
For x = 1 To UBound(arr)
Me.Combo1.AddItem Mid(arr(x), 2)
Next
End Sub
stevebelgium
