cs_rober
Messages postés86Date d'inscriptionvendredi 29 novembre 2002StatutMembreDernière intervention21 septembre 2010
-
17 oct. 2006 à 22:54
jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 2012
-
18 oct. 2006 à 08:59
Rober
Pouvez vous me dire ou ca coince
Open "C:\cao\EspaceProE.ini" For Input As #1
Text1.text = Input(LOF(1), 1)
Close #a
Dim strTemp As String
Dim TbleLignes As Variant
Dim TbleSChaine As Variant
Dim iPnt As Integer
Dim jPnt As Integer
strTemp = Text1.text
TbleLignes = Split(strTemp, vbCrLf) 'séparer les lignes
For iPnt = 0 To UBound(TbleLignes) 'pour chaque ligne
strTemp = TbleLignes(iPnt)
TbleSChaine = Split(strTemp, "|") 'on separe sur le |
List1.AddItem TbleSChaine(UBound(TbleSChaine)) 'on ajoute que le dernier élément
Next
j'ai une erreur sur cette ligne et je ne vois pas la solution
mortalino
Messages postés6786Date d'inscriptionvendredi 16 décembre 2005StatutMembreDernière intervention21 décembre 201118 17 oct. 2006 à 23:15
Salut,
essaie comme ceci :
Dim FF As Integer
FF = FreeFile()
' FreeFile, c'est mieux, ça attribue un numéro de libre (au cas où tu aies
' plusieurs fichiers texte d'ouverts
Open "C:\cao\EspaceProE.ini" For Input As #FF
Text1.text = Input(LOF(FF), 1)
Close #FF 'attention, 1 et a, c'est pas pareil, ton fichier
' restait donc ouvert
Dim strTemp As String
Dim TbleLignes() As String 'correction ici, les () et le type de donnée
Dim TbleSChaine() As String 'correction ici, les () et le type de donnée
Dim iPnt As Integer
Dim jPnt As Integer
strTemp = Text1.text
TbleLignes = Split(strTemp, vbCrLf) 'séparer les lignes
For iPnt = 0 To UBound(TbleLignes) 'pour chaque ligne
strTemp = TbleLignes(iPnt)
TbleSChaine = Split(strTemp, "|") 'on separe sur le |
List1.AddItem TbleSChaine(UBound(TbleSChaine))
'on ajoute que le dernier élément
Next iPnt
jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 201260 18 oct. 2006 à 08:59
Salut,
J'ajouterai simplement qu 'il faut verifier aussi que StrTemp Soit bien diferrent de VbNullString ("") car sinon erreur d'indice en dehors de la plage.