Envoyer une partie d'une chaine de chaque ligne
cs_rober
Messages postés
86
Date d'inscription
vendredi 29 novembre 2002
Statut
Membre
Dernière intervention
21 septembre 2010
-
17 oct. 2006 à 22:54
jrivet Messages postés 7392 Date d'inscription mercredi 23 avril 2003 Statut Membre Dernière intervention 6 avril 2012 - 18 oct. 2006 à 08:59
jrivet Messages postés 7392 Date d'inscription mercredi 23 avril 2003 Statut Membre Dernière intervention 6 avril 2012 - 18 oct. 2006 à 08:59
A voir également:
- Envoyer une partie d'une chaine de chaque ligne
- Javascript partie entiere - Forum Javascript / DHTML
- Partie entière d'un double ✓ - Forum Java
- Partie entière d'un nombre ✓ - Forum C / C++ / C++.NET
- Simplifier une fraction en ligne - Forum C / C++ / C++.NET
- Parcourir une chaine de caractère en python ✓ - Forum Python
2 réponses
mortalino
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
18
17 oct. 2006 à 23:15
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
<small>Coloration syntaxique automatique [mortalino] </small>
@++
<hr width ="100%" size="2" />
--Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
/DIV>
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
<small>Coloration syntaxique automatique [mortalino] </small>
@++
<hr width ="100%" size="2" />
--Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
/DIV>
jrivet
Messages postés
7392
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
60
18 oct. 2006 à 08:59
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.
@+, Ju£i?n
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.
@+, Ju£i?n
