Discussion :

[vinz78]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[omen999]

salut,

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

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

cette ligne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[vinz78]

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

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[omen999]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

au lieu de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

element.value = b.Readline

[vinz78]

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

bonne journée