Fonction Split et virgule
Résolu
ggsab62
Messages postés
14
Date d'inscription
mardi 15 mars 2005
Statut
Membre
Dernière intervention
19 avril 2006
-
11 oct. 2005 à 11:48
ggsab62 Messages postés 14 Date d'inscription mardi 15 mars 2005 Statut Membre Dernière intervention 19 avril 2006 - 11 oct. 2005 à 14:25
ggsab62 Messages postés 14 Date d'inscription mardi 15 mars 2005 Statut Membre Dernière intervention 19 avril 2006 - 11 oct. 2005 à 14:25
A voir également:
- Gdfg5
- Split vb - Meilleures réponses
- Vb split - Meilleures réponses
- Remise en fonction - Forum C / C++ / C++.NET
- Sub ou fonction non définie - Forum VB.NET
- C# split ✓ - Forum C# / .NET
- Java arrondir 2 chiffres après virgule - Forum Java
- Delphi split string - Forum Delphi / Pascal
5 réponses
econs
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Membre
Dernière intervention
23 décembre 2008
24
11 oct. 2005 à 13:18
11 oct. 2005 à 13:18
Il faut remplacer :
Input #1, chaine ' **** Données Comp
par :
Line Input #1, chaine ' **** Données Comp
Input #1 va récupérer une ligne, jusqu'à l'élément "virgule"
Line Input #1 récupère la ligne complète.
Ce n'est pas Split qui pose problème, c'est Input !
Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.
Input #1, chaine ' **** Données Comp
par :
Line Input #1, chaine ' **** Données Comp
Input #1 va récupérer une ligne, jusqu'à l'élément "virgule"
Line Input #1 récupère la ligne complète.
Ce n'est pas Split qui pose problème, c'est Input !
Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.
econs
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Membre
Dernière intervention
23 décembre 2008
24
11 oct. 2005 à 12:07
11 oct. 2005 à 12:07
pas de problème chez moi avec le code suivant :
Dim chaine As String
Dim tablo() As String
Dim stemp As String
chaine = "ttt;ssdf;zert;tuij;zert;0,1;gfdfg;gdfg;5;35"
tablo = Split(chaine, ";")
For l = LBound(tablo) To UBound(tablo)
stemp = stemp & tablo(l) & vbCrLf
Next l
MsgBox stemp
Je ne vois pas pourquoi Split ferait des bétises avec la virgule. Split fonctionne très bien avec n'importe quel séparateur...
Peux-tu déposer ton code ici (du moins la partie concernée, les lignes
précédentes et suivantes). C'est toi qui doit faire une mauvaise
bidouille ...
Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.
Dim chaine As String
Dim tablo() As String
Dim stemp As String
chaine = "ttt;ssdf;zert;tuij;zert;0,1;gfdfg;gdfg;5;35"
tablo = Split(chaine, ";")
For l = LBound(tablo) To UBound(tablo)
stemp = stemp & tablo(l) & vbCrLf
Next l
MsgBox stemp
Je ne vois pas pourquoi Split ferait des bétises avec la virgule. Split fonctionne très bien avec n'importe quel séparateur...
Peux-tu déposer ton code ici (du moins la partie concernée, les lignes
précédentes et suivantes). C'est toi qui doit faire une mauvaise
bidouille ...
Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.
ggsab62
Messages postés
14
Date d'inscription
mardi 15 mars 2005
Statut
Membre
Dernière intervention
19 avril 2006
11 oct. 2005 à 12:40
11 oct. 2005 à 12:40
MERCI DE TA REPONSE
MAIS CA NE MARCHE PAS
voila la procedure que j utilise
je lis un fichier avec comme chaine le contenu de la variable chaine
Public Sub test()
Dim chaine As String
Dim tablo() As String
Dim stemp As String
With FPrincipal.CommonDialog
.DialogTitle = "Ouvrir Fichier"
.Filter = "Fichiers de Texte (*.TXT)|*.txt"
.InitDir = App.path
'.FileName = "test" 'valueName
.FilterIndex = 2
.Flags = cdlOFNCreatePrompt And cdlOFNOverwritePrompt
.ShowOpen
End With
Open FPrincipal.CommonDialog.FileName For Input As #1
Input #1, chaine ' **** Données Comp
'chaine = "PARAV;[CODSOC];'20031007';'GNC';'CTRMGE';'VTEL';' ';' ';' ';' ';' ';' ';1;0;0;0;0;0,1;0;0;'O'"
tablo = Split(chaine, ";")
For l = LBound(tablo) To UBound(tablo)
stemp = stemp & tablo(l) & vbCrLf
Next l
MsgBox stemp
Close #1
End Sub
merci d avance
MAIS CA NE MARCHE PAS
voila la procedure que j utilise
je lis un fichier avec comme chaine le contenu de la variable chaine
Public Sub test()
Dim chaine As String
Dim tablo() As String
Dim stemp As String
With FPrincipal.CommonDialog
.DialogTitle = "Ouvrir Fichier"
.Filter = "Fichiers de Texte (*.TXT)|*.txt"
.InitDir = App.path
'.FileName = "test" 'valueName
.FilterIndex = 2
.Flags = cdlOFNCreatePrompt And cdlOFNOverwritePrompt
.ShowOpen
End With
Open FPrincipal.CommonDialog.FileName For Input As #1
Input #1, chaine ' **** Données Comp
'chaine = "PARAV;[CODSOC];'20031007';'GNC';'CTRMGE';'VTEL';' ';' ';' ';' ';' ';' ';1;0;0;0;0;0,1;0;0;'O'"
tablo = Split(chaine, ";")
For l = LBound(tablo) To UBound(tablo)
stemp = stemp & tablo(l) & vbCrLf
Next l
MsgBox stemp
Close #1
End Sub
merci d avance
econs
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Membre
Dernière intervention
23 décembre 2008
24
11 oct. 2005 à 13:19
11 oct. 2005 à 13:19
d'où l'intérêt de déposer son code ...
Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.
Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
ggsab62
Messages postés
14
Date d'inscription
mardi 15 mars 2005
Statut
Membre
Dernière intervention
19 avril 2006
11 oct. 2005 à 14:25
11 oct. 2005 à 14:25
Merci MANU pour ta reponse
ca fonctionne
A+
ca fonctionne
A+
