séparation de texte

Version imprimable

Salut,
Je débute en vb et j'aimerai avoir un peu d'aide sur ce code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Public Sub test3
 
            Dim fs, ligne
 
            Set fs = CreateObject("Scripting.FileSystemObject")
            Set b = fs.OpenTextFile("E:\wamp\www\Projet\Projet2\formulaire.txt", 1, 0)
 
            For Each element in form1
                element = split(element.name, " : " , element.value, 1)
                element.value = b.Readline                                             
            Next
 
            b.Close            
 
End Sub

J'ai une erreur je pense que sa vient de cette ligne
element = split(element.name, " : " , element.value, 1)

Je souhaite séparer element.name de element.value

personne ne peut m'aider ? :cry:

29/05/2007, 11h47
omen999

salut,

Citation:

Je souhaite séparer element.name de element.value

ça tombe bien parce qu'a priori cette séparation est déjà faite :mrgreen:

cette ligne:

Code:

element = split(element.name, " : " , element.value, 1)

cherche plutôt à diviser la propriété chaine element.name en un tableau composé de plusieurs sous-chaines séparées par le caractère : et c'est sans doute pas une bonne idée de lui donner le nom de l'instance de classe element
comment element est-il défini ?

element est meme pas défini enfin dans une autre procédure donc effectivement je peux pas m'en servir.
Je vois pas trop ce que tu veux dire par

Citation:

cherche plutôt à diviser la propriété chaine element.name en un tableau composé de plusieurs sous-chaines séparées par le caractère :

mon fichier texte ce décompose comme sa

Nom : Mr X

et je cherche a récupérer juste Mr X dans le champ de mon formulaire

Ce code
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Public Sub test3 Dim fs, ligne Dim contenu Set fs = CreateObject("Scripting.FileSystemObject") Set b = fs.OpenTextFile("E:\wamp\www\Projet\Projet2\formulaire.txt", 1, 0) For Each element in form1 element.value = b.Readline Next b.Close End Sub
me met Nom : Mr X dans mon formulaire

29/05/2007, 14h49
omen999
Code:

1 2 sBuf=b.Readline element.value = Mid(sBuf,InStr(1,sBuf,":",1)+1)
au lieu de

Code:

element.value = b.Readline
30/05/2007, 09h45
vinz78

Merci beaucoup omen tu as résolu un problème sur lequel je flanchais depuis pas mal de temps :D

bonne journée