Séparation

Résolu
cs_vinz78 Messages postés 207 Date d'inscription jeudi 24 mai 2007 Statut Membre Dernière intervention 24 juillet 2007 - 29 mai 2007 à 10:22
cs_vinz78 Messages postés 207 Date d'inscription jeudi 24 mai 2007 Statut Membre Dernière intervention 24 juillet 2007 - 30 mai 2007 à 13:50
bon je poste ici sa sera peut etre plus approprié qu'en vb.net



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 essayer sa mais sa me met 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

81 réponses

cs_vinz78 Messages postés 207 Date d'inscription jeudi 24 mai 2007 Statut Membre Dernière intervention 24 juillet 2007
30 mai 2007 à 09:43
Re,
On m'a dit d'essayer sa sur un autre forum.

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  
            sBuf=b.Readline
            element.value = Mid(sBuf,InStr(1,sBuf,":",1)+1)  
            Next
            b.Close
       
End Sub

j'ai essayer et sa marche =) sa met les champs dans le formulaire comme je voulais !

Merci à vous de m'avoir mis sur la voix car une bonne partit du code est inspiré de vous
 
Bonne journée et @+ (pour ceux qui voudrais essayer j'avais laissé tout mon code il y a quelque page de cela) .
3
drikce06 Messages postés 2237 Date d'inscription lundi 29 mai 2006 Statut Membre Dernière intervention 29 mai 2008 11
29 mai 2007 à 10:40
element = split(element.name, " : " , element.value, 1)


Cela vient de tes paramètres de split, tu ne dis pas par rapport à quoi il doit spliter

[javascript:hhobj_4.Click() tableau] de base zéro à une dimension contenant le nombre spécifié de sous-chaînes.

Syntaxe

Split(expression[,delimiter[,limit[,compare]]])

La syntaxe de la fonction Split comprend les [javascript:hhobj_5.Click() arguments nommés] suivants :

Élément |Description |----
expression, (Nouveau !!! Forum Exclusivement Office Et VBA By Mortalino)

Si la réponse vous convient: Réponse acceptée < body>
0
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 71
29 mai 2007 à 10:42
tu ne peux pas faire de For Each, ici....

lis ton fichier ligne a ligne....

Renfield
Admin CodeS-SourceS- MVP Visual Basic
0
cs_vinz78 Messages postés 207 Date d'inscription jeudi 24 mai 2007 Statut Membre Dernière intervention 24 juillet 2007
29 mai 2007 à 10:54
Ligne à Ligne ? mais si je ne fais pas de For each comment je fais cette ligne



element.value = b.Readline
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
drikce06 Messages postés 2237 Date d'inscription lundi 29 mai 2006 Statut Membre Dernière intervention 29 mai 2008 11
29 mai 2007 à 11:00
Pour lire un fichier text ligne par ligne: après en vbs je sais pas si ça marche:

Dim TaString As String


Open "E:\wamp\www\Projet\Projet2\formulaire.txt"
For Input As #1

While Not EOF(1)

Line Input #1, TaString

Wend

Close #1

 Drikce 06 (Nouveau !!! Forum Exclusivement Office Et VBA By Mortalino)

Si la réponse vous convient: Réponse acceptée < body>
0
cs_vinz78 Messages postés 207 Date d'inscription jeudi 24 mai 2007 Statut Membre Dernière intervention 24 juillet 2007
29 mai 2007 à 11:03
Je vais essayer et je te dit si sa marche merci
0
Shad108 Messages postés 8 Date d'inscription mardi 26 juillet 2005 Statut Membre Dernière intervention 29 mai 2007
29 mai 2007 à 11:12
Salut,

Je verrais bien quelque chose comme ca :

Dim fs As New Scripting.FileSystemObject
Dim fichier As Scripting.TextStream
Dim contenu() As String


Set fichier = fs.OpenTextFile(("h:\my documents\test.csv"), ForReading)


contenu = Split(fichier.ReadAll, ":")

For i = 0 To UBound(contenu)


   Debug.Print contenu(i)


Next

@+
0
Shad108 Messages postés 8 Date d'inscription mardi 26 juillet 2005 Statut Membre Dernière intervention 29 mai 2007
29 mai 2007 à 11:12
Salut,

Je verrais bien quelque chose comme ca :

Dim fs As New Scripting.FileSystemObject
Dim fichier As Scripting.TextStream
Dim contenu() As String


Set fichier = fs.OpenTextFile(("h:\my documents\test.csv"), ForReading)


contenu = Split(fichier.ReadAll, ":")

For i = 0 To UBound(contenu)


   Debug.Print contenu(i)


Next

@+
0
cs_vinz78 Messages postés 207 Date d'inscription jeudi 24 mai 2007 Statut Membre Dernière intervention 24 juillet 2007
29 mai 2007 à 11:24
sa marche pas il me dit qu'il attend la fin de l'instruction au niveau des Dim
0
drikce06 Messages postés 2237 Date d'inscription lundi 29 mai 2006 Statut Membre Dernière intervention 29 mai 2008 11
29 mai 2007 à 11:27
"sa marche pas il me dit qu'il attend la fin de l'instruction au niveau des Dim" Quel code as-tu mis?

 Drikce 06 (Nouveau !!! Forum Exclusivement Office Et VBA By Mortalino)

Si la réponse vous convient: Réponse acceptée < body>
0
cs_vinz78 Messages postés 207 Date d'inscription jeudi 24 mai 2007 Statut Membre Dernière intervention 24 juillet 2007
29 mai 2007 à 11:31
Public Sub test3
        
            Dim fs
            Dim fichier
            Dim contenu
            
            Set fs = CreateObject("Scripting.FileSystemObject")
            Set fichier = fs.OpenTextFile(("E:\wamp\www\Projet\Projet2\formulaire.txt"), 1)

            contenu = Split(fichier.ReadAll, ":")

            For i = 0 To UBound(contenu)
                For Each element in form1
                    element contenu(i)
                Next
            Next
        End Sub

J'ai du retirer ce qu'il y avait dans les Dim pour que sa marche
0
cs_vinz78 Messages postés 207 Date d'inscription jeudi 24 mai 2007 Statut Membre Dernière intervention 24 juillet 2007
29 mai 2007 à 11:35
j'ai essayer un peu de tous les codes c'est surement une erreur de ma part étant donné mon niveau mais je pense les avoir bien placés
0
PCPT Messages postés 13280 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 49
29 mai 2007 à 11:46
c'est la faite des doublons aujourd'hui?

relis ce qui t'a été indiqué sans ton précédent topic

<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp
0
jmfmarques Messages postés 7668 Date d'inscription samedi 5 novembre 2005 Statut Membre Dernière intervention 22 août 2014 28
29 mai 2007 à 11:51
Pour en revenir à ta toute première question
voilà un exemple (comment extraitre "toto" de la chaîne "titi : toto"

Private Sub Command1_Click()
   chaine_complete = "titi : toto"
   chaine_toto = Trim(Mid(chaine_complete, InStr(chaine_complete, ":") + 1))
 End Sub 

chaine_toto contiendra ainsi "toto"
0
cs_vinz78 Messages postés 207 Date d'inscription jeudi 24 mai 2007 Statut Membre Dernière intervention 24 juillet 2007
29 mai 2007 à 11:53
Merci je vais essayer !
0
cs_vinz78 Messages postés 207 Date d'inscription jeudi 24 mai 2007 Statut Membre Dernière intervention 24 juillet 2007
29 mai 2007 à 11:57
mon précédent topic ma pas spécialement aidé donc autant en faire un dans la bonne catégorie =)
0
cs_vinz78 Messages postés 207 Date d'inscription jeudi 24 mai 2007 Statut Membre Dernière intervention 24 juillet 2007
29 mai 2007 à 13:09
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 <!-- BEGIN TEMPLATE: bbcode_code -->

Code :

PublicSub test3

Dim fs, ligne
Dim contenu

Set fs = CreateObject("Scripting.FileSystemObject")
Set b = fs.OpenTextFile("E:\wamp\www\Projet\Projet2\formulaire.txt", 1, 0)

ForEach element in form1
 
element.value = b.Readline
 
Next

b.Close

EndSub

<!-- END TEMPLATE: bbcode_code -->

me met Nom : Mr X dans mon formulaire

Je veux juste le code pour qu'il s'affiche Mr X seulement
0
drikce06 Messages postés 2237 Date d'inscription lundi 29 mai 2006 Statut Membre Dernière intervention 29 mai 2008 11
29 mai 2007 à 13:20
La méthode que je t'ai donné pour lire fichier text fonctionne?

 Drikce 06 (Nouveau !!! Forum Exclusivement Office Et VBA By Mortalino)

Si la réponse vous convient: Réponse acceptée < body>
0
jmfmarques Messages postés 7668 Date d'inscription samedi 5 novembre 2005 Statut Membre Dernière intervention 22 août 2014 28
29 mai 2007 à 13:36
Et si le code que je t'ai proposé à 11 h 51 ne fonctionne pas(pour extraiure ce qui vient après le signe :) , celà veut dire que ton langage de développement n'est pas du VB ni, d'ailleurs, du VBA ...
0
cs_vinz78 Messages postés 207 Date d'inscription jeudi 24 mai 2007 Statut Membre Dernière intervention 24 juillet 2007
29 mai 2007 à 13:37
bah j'ai essayer mais dans ta méthode et dans les autre aussi les Dim "variable" as ne sont pas acceptés il me dit fin attendue alors je met juste Dim "variable" mais bon sa perd tout son sens...
0