cs_vinz78
Messages postés207Date d'inscriptionjeudi 24 mai 2007StatutMembreDernière intervention24 juillet 2007
-
29 mai 2007 à 10:22
cs_vinz78
Messages postés207Date d'inscriptionjeudi 24 mai 2007StatutMembreDernière intervention24 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)
cs_vinz78
Messages postés207Date d'inscriptionjeudi 24 mai 2007StatutMembreDernière intervention24 juillet 2007 29 mai 2007 à 16:42
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))
drikce06
Messages postés2236Date d'inscriptionlundi 29 mai 2006StatutMembreDernière intervention29 mai 200810 29 mai 2007 à 16:43
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
jmfmarques
Messages postés7666Date d'inscriptionsamedi 5 novembre 2005StatutMembreDernière intervention22 août 201427 29 mai 2007 à 16:44
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à ?
Vous n’avez pas trouvé la réponse que vous recherchez ?
cs_vinz78
Messages postés207Date d'inscriptionjeudi 24 mai 2007StatutMembreDernière intervention24 juillet 2007 29 mai 2007 à 16:44
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))
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.
cs_vinz78
Messages postés207Date d'inscriptionjeudi 24 mai 2007StatutMembreDernière intervention24 juillet 2007 30 mai 2007 à 09:20
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
cs_vinz78
Messages postés207Date d'inscriptionjeudi 24 mai 2007StatutMembreDernière intervention24 juillet 2007 30 mai 2007 à 10:01
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
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 ... ?
cs_vinz78
Messages postés207Date d'inscriptionjeudi 24 mai 2007StatutMembreDernière intervention24 juillet 2007 30 mai 2007 à 13:28
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