Alimenté combobox
Résolu
cs_petchy
Messages postés
710
Date d'inscription
jeudi 20 février 2003
Statut
Membre
Dernière intervention
19 mai 2015
-
29 déc. 2005 à 17:28
cs_petchy Messages postés 710 Date d'inscription jeudi 20 février 2003 Statut Membre Dernière intervention 19 mai 2015 - 29 déc. 2005 à 18:00
cs_petchy Messages postés 710 Date d'inscription jeudi 20 février 2003 Statut Membre Dernière intervention 19 mai 2015 - 29 déc. 2005 à 18:00
2 réponses
jpleroisse
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
27
29 déc. 2005 à 17:47
29 déc. 2005 à 17:47
Bonsoir,
Essaye ceci
Private Sub Command3_Click()
Dim FileName As String
Dim r As Long, c As Integer
Dim txt As String, Char As String * 1
Dim Data
Dim i As Integer
On Error Resume Next
FileName = "C:\Test.ini"
Open FileName For Input As #1
If Err <> 0 Then
MsgBox "Introuvable : " & FileName, vbCritical, "ERREUR"
Exit Sub
End If
r = 0
c = 0
txt = ""
Do Until EOF(1)
Line Input #1, Data
For i = 1 To Len(Data)
Char = Mid(Data, i, 1)
If Char = "," Then
c = c + 1
txt = ""
ElseIf i = Len(Data) Then
If Char <> Chr(34) Then txt = txt & Char
Combo1.AddItem txt
txt = ""
ElseIf Char <> Chr(34) Then
txt = txt & Char
End If
Next i
c = 0
r = r + 1
Loop
Close #1
End Sub
jpleroisse
Si une réponse vous convient, cliquez Réponse Acceptée.
Essaye ceci
Private Sub Command3_Click()
Dim FileName As String
Dim r As Long, c As Integer
Dim txt As String, Char As String * 1
Dim Data
Dim i As Integer
On Error Resume Next
FileName = "C:\Test.ini"
Open FileName For Input As #1
If Err <> 0 Then
MsgBox "Introuvable : " & FileName, vbCritical, "ERREUR"
Exit Sub
End If
r = 0
c = 0
txt = ""
Do Until EOF(1)
Line Input #1, Data
For i = 1 To Len(Data)
Char = Mid(Data, i, 1)
If Char = "," Then
c = c + 1
txt = ""
ElseIf i = Len(Data) Then
If Char <> Chr(34) Then txt = txt & Char
Combo1.AddItem txt
txt = ""
ElseIf Char <> Chr(34) Then
txt = txt & Char
End If
Next i
c = 0
r = r + 1
Loop
Close #1
End Sub
jpleroisse
Si une réponse vous convient, cliquez Réponse Acceptée.
cs_petchy
Messages postés
710
Date d'inscription
jeudi 20 février 2003
Statut
Membre
Dernière intervention
19 mai 2015
4
29 déc. 2005 à 18:00
29 déc. 2005 à 18:00
Re
merci jpleroisse,nickel
petchy
merci jpleroisse,nickel
petchy