Séparation

Résolu
Signaler
Messages postés
207
Date d'inscription
jeudi 24 mai 2007
Statut
Membre
Dernière intervention
24 juillet 2007
-
Messages postés
207
Date d'inscription
jeudi 24 mai 2007
Statut
Membre
Dernière intervention
24 juillet 2007
-
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

Messages postés
207
Date d'inscription
jeudi 24 mai 2007
Statut
Membre
Dernière intervention
24 juillet 2007

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) .
Messages postés
2237
Date d'inscription
lundi 29 mai 2006
Statut
Membre
Dernière intervention
29 mai 2008
11
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>
Messages postés
17288
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
71
tu ne peux pas faire de For Each, ici....

lis ton fichier ligne a ligne....

Renfield
Admin CodeS-SourceS- MVP Visual Basic
Messages postés
207
Date d'inscription
jeudi 24 mai 2007
Statut
Membre
Dernière intervention
24 juillet 2007

Ligne à Ligne ? mais si je ne fais pas de For each comment je fais cette ligne



element.value = b.Readline
Messages postés
2237
Date d'inscription
lundi 29 mai 2006
Statut
Membre
Dernière intervention
29 mai 2008
11
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>
Messages postés
207
Date d'inscription
jeudi 24 mai 2007
Statut
Membre
Dernière intervention
24 juillet 2007

Je vais essayer et je te dit si sa marche merci
Messages postés
8
Date d'inscription
mardi 26 juillet 2005
Statut
Membre
Dernière intervention
29 mai 2007

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

@+
Messages postés
8
Date d'inscription
mardi 26 juillet 2005
Statut
Membre
Dernière intervention
29 mai 2007

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

@+
Messages postés
207
Date d'inscription
jeudi 24 mai 2007
Statut
Membre
Dernière intervention
24 juillet 2007

sa marche pas il me dit qu'il attend la fin de l'instruction au niveau des Dim
Messages postés
2237
Date d'inscription
lundi 29 mai 2006
Statut
Membre
Dernière intervention
29 mai 2008
11
"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>
Messages postés
207
Date d'inscription
jeudi 24 mai 2007
Statut
Membre
Dernière intervention
24 juillet 2007

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
Messages postés
207
Date d'inscription
jeudi 24 mai 2007
Statut
Membre
Dernière intervention
24 juillet 2007

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
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
47
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
Messages postés
7668
Date d'inscription
samedi 5 novembre 2005
Statut
Membre
Dernière intervention
22 août 2014
27
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"
Messages postés
207
Date d'inscription
jeudi 24 mai 2007
Statut
Membre
Dernière intervention
24 juillet 2007

Merci je vais essayer !
Messages postés
207
Date d'inscription
jeudi 24 mai 2007
Statut
Membre
Dernière intervention
24 juillet 2007

mon précédent topic ma pas spécialement aidé donc autant en faire un dans la bonne catégorie =)
Messages postés
207
Date d'inscription
jeudi 24 mai 2007
Statut
Membre
Dernière intervention
24 juillet 2007

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
Messages postés
2237
Date d'inscription
lundi 29 mai 2006
Statut
Membre
Dernière intervention
29 mai 2008
11
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>
Messages postés
7668
Date d'inscription
samedi 5 novembre 2005
Statut
Membre
Dernière intervention
22 août 2014
27
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 ...
Messages postés
207
Date d'inscription
jeudi 24 mai 2007
Statut
Membre
Dernière intervention
24 juillet 2007

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...