Séparation

Résolu
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

j'ai beau trifouiller le code je pense qu'il est correct

        Public Sub test3            Const ForReading 1, ForWriting 2
           
            Dim  fs, b

            Set fs = CreateObject("Scripting.FileSystemObject")
            Set b = fs.OpenTextFile("E:\wamp\www\Projet\Projet2\formulaire.txt", 1, 0)
           
            while Not b.AtEndOfStream
                 wscript.echo b.ReadLine
            Wend
            For Each element in form1
            chaine_complete = "element.name : element.value"
            element.name = Trim(Mid(chaine_complete, InStr(chaine_complete, ":") + 1))
           
            element.value = b.Readline 
            Next
            b.Close
           
        End Sub   

sa me met toujour  wscript objet requis
Messages postés
2237
Date d'inscription
lundi 29 mai 2006
Statut
Membre
Dernière intervention
29 mai 2008
11
VBS

DSL problème de copier coller,

----
Const ForReading 1, ForWriting 2
Dim oFso, f
Set oFso = CreateObject("Scripting.FileSystemObject")
Set f = oFso.OpenTextFile("c:\tmp\fichier1.txt", ForReading)
while Not f.AtEndOfStream
wscript.echo f.ReadLine
Wend
f.Close





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

Si la réponse vous convient: Réponse acceptée < body>
Messages postés
2237
Date d'inscription
lundi 29 mai 2006
Statut
Membre
Dernière intervention
29 mai 2008
11
Les constantes doivent être déclarées avant toutes procédures et non dedans non?

 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
Je vais aller voir la mer pour me détendre un peu.
Mais avant de partir : juste une question, pour le cas où...
Il me semble que ton "hta" est capable de lire des scripts dans d'autres langages.
Il me semble toutefois que chaque script qu'on lui "refile" doit être précédé de l'indication du langage utilisé par ce script.
Si j'ai raison (je ne connais rien à hta dont je n'ai ljamais entendu parler jusqu'à ce jour) : as-tu bien fait celà ?
Messages postés
207
Date d'inscription
jeudi 24 mai 2007
Statut
Membre
Dernière intervention
24 juillet 2007

        Public Sub test3            Const ForReading 1, ForWriting 2
            
            Dim  fs, b

            Set fs = CreateObject("Scripting.FileSystemObject")
            Set b = fs.OpenTextFile("E:\wamp\www\Projet\Projet2\formulaire.txt", 1, 0)
            
            while Not b.AtEndOfStream
                 wscript.echo b.ReadLine
            Wend
            For Each element in form1
            chaine_complete = "element.name : element.value"
            element.name = Trim(Mid(chaine_complete, InStr(chaine_complete, ":") + 1))
            
            element.value = b.Readline  
            Next
            b.Close
            
        End Sub   

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

hum je pense que c'est de la d'ou vient le pb jmfmarques et je suis tout aussi nul en HTA qu'en vbs mdr
je vais chercher un peu merci
Messages postés
2237
Date d'inscription
lundi 29 mai 2006
Statut
Membre
Dernière intervention
29 mai 2008
11
Et si tu vires ça: wscript.echo ?

            while Not b.AtEndOfStream 

Dim Sline
Sline = b.ReadLine
MsgBox(Sline)


            Wend




 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

Sa maffiche tout (element.name : element.value) dans une msgbox
Messages postés
2237
Date d'inscription
lundi 29 mai 2006
Statut
Membre
Dernière intervention
29 mai 2008
11
Donc ça lit bien le fichier text?

 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

oui sa réussi a le lire mais il ignore totalement le code pour garde juste element.value
Messages postés
207
Date d'inscription
jeudi 24 mai 2007
Statut
Membre
Dernière intervention
24 juillet 2007

bon je dois y allé je repasse demain jy reflechirai ce soir @+ bonne soirée
Messages postés
7668
Date d'inscription
samedi 5 novembre 2005
Statut
Membre
Dernière intervention
22 août 2014
27
 

Ben alors :

while Not b.AtEndOfStream 
  Dim Sline
  Sline = b.ReadLine
  resultat = Trim(Mid(Sline, InStr(Sline, ":") + 1))

  MsgBox("la ligne dit " & Sline & "  et ce que je cherche est " & resultat)
Wend
Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
26
 Bonsoir à tous,

Bonsoir vinz78,

Que te renvoie le code ci-dessous:

Const strInputFile = "E:\wamp\www\Projet\Projet2\formulaire.txt
"
Call test3(strInputFile)

Public Sub test3(strInputFile)
Dim  fs, b, cpt
Set fs = CreateObject("Scripting.FileSystemObject")
Set b = fs.OpenTextFile(strInputFile, 1, True)
cpt = 1  
While Not b.AtEndOfStream
      wscript.echo "verif send wscript"
      'wscript.echo b.ReadLine
      MsgBox b.ReadLine,,"ligne " & cpt : cpt = cpt+1
Wend
 
' For Each element in form1
'     chaine_complete = "element.name : element.value"
'     element.name = Trim(Mid(chaine_complete, InStr(chaine_complete, ":") + 1))
'      
'     element.value = b.Readline
'Next
 
b.Close
Set fs = Nothing
Set b = Nothing
End Sub

Y a-t-il erreur sur la ligne [ "wscript.echo "verif send wscript" ] ???
Si reponse=vbNo, le language utilisé pour ce code est le vbscript.
Après, il y a possibilité de lire ton fichier en .ReadLine ou .ReadAll, pour effectuer
le split décrit, méticuleusement,  par nos amis forumers VBF dans les x pages précédentes.

Autres:
- pas de méprise avec moi, les ... dans mes réponses ne sont pas à considérer comme de l'exaspération ...
(Récupération de données d'un fichier texte vers un formulaire)
- ne pas hésiter à préciser le language utilisé pour scripter et un copier/coller de quelques
lignes du fichier à parser facilite des réponse favorables en moindre temps.

Quant à la manipulation du .hta, je vais searcher.

jean-marc
Messages postés
2237
Date d'inscription
lundi 29 mai 2006
Statut
Membre
Dernière intervention
29 mai 2008
11
Salut 9517 JMO, ça y est notre sauveur est arrivé, mais ma foi =615490 jmfmarques, on s'est bien démerder pour des 0 en vbs!

 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

Salut à tous !
Tout d'abord merci JMO d'avoir pris le temps de chercher =)
J'ai essayer ton code mais hélas j'ais toujours cette erreur au niveau de la ligne dont tu parle
[wscript.echo "verif send wscript"] Objet requis : wscript.
Je ne connais pas tellement le vbs mais je pense que le hta ne prend pas en compte certains critères  du vbs enfin sa m'étonne tout de même vu que je précise bien au début
 <script language = "VBScript">.

Je cherche de mon coté sur le peu de site que je connais pour le hta ^_^
Merci

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

Maintenant je vais me pencher je le deuxième problème de mon projet ^^ :
comment parvenir a mettre les données d'un fichier word dans une base de donnée !

Mais je vais demander ailleurs car le vbs ne pourra, je pense, pas m'aider
Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
26
 Bonjour à tous

Bonjour vinz78,

Par curiosité, je continue ce topic.
Je n'ai pas tout saisi de ton script (infomsg_SEPARATION_952005.aspx?p=3 le 29/05/2007 13:44:48 )

Nous étions persuadé (Renfield en first) que c'était ton fichier .txt que tu voulais parcourir.
D'où l'entêtement du code "While Not b.AtEndOfStream"

For Each element in form1
"form1" correspond-t-il à "<form name="form1" action="http://localhost/Projet/Projet2/page4.php" method="post">" ???

Que contient le fichier page4.php ???

Comme je le comprends:
b.readline ne va lire que la 1ère ligne de ton fichier (fs.OpenTextFile("E:\wamp\www\Projet\Projet2\formulaire.txt")

Je viens de tester:
Set fs = CreateObject("Scripting.FileSystemObject")
Set b = fs.OpenTextFile(strInputFile, 1, True)
MsgBox b.ReadLine,,"ligne "

Sinon, concernant la question "comment parvenir a mettre les données d'un fichier word dans une base de donnée !"
C'est réalisable en vb6, vbs et autres versions.
Problème:
Que faut-il extraire ? lignes, tableaux ... ?

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

la page4.php contient un code php qui insert les données du formulaires dans la base de données , en fait je veux lire mon fichier texte pour en extraire que certaine données et les récupérer dans mon formulaire. Je n'ai pas du etre très claire niveau code étant donné que j'ai pioché un peu partout ^^

Quand a mon nouveau problème il faut extraire les données d'un formulaire sous word j'ai peut etre une méthode qui consiste a tranformer le fichier word en fichier texte  avec ce code

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim myW2T As W2TSERVERLib.W2T
        Dim strRslt As String

        myW2T = New W2TSERVERLib.W2T

        myW2T.VerifyLicense("234234", "23423432")
        strRslt = myW2T.Convert("E:\Abbott FRANCE\Siège Local\ABCR10012007_FF.doc", "E:\Abbott FRANCE\Siège Local\ABCR10012007_FF.txt")
        MsgBox(strRslt)

        strRslt = myW2T.Convert2Mem("E:\Abbott FRANCE\Siège Local\ABCR10012007_FF.doc", 5000)
        MsgBox(strRslt)
    End Sub

une fois mis en fichier texte j'ai alor plusieur possibilités pour l'insérer dans la base de données on verra ^^
Messages postés
207
Date d'inscription
jeudi 24 mai 2007
Statut
Membre
Dernière intervention
24 juillet 2007

désolé pour les fautes d'ortographes mais j'ai vraiment plus l'habitude d'écrire normalement sur le net =p
Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
26
Re,

Merci pour les explications et bonne continuation.
Et bon courage, car les topics sur la manipulation de word ne sont pas très fréquentes !

jean-marc