Détection de ligne dans un fichier txt et application d'action

Bonjour,

Je vous écris pour avoir un petit renseignement, je suis débutant dans le vbs script et je dois développer un petit programme qui me scannerait un fichier txt qui contient des adresses de fichiers.

Chaque ligne du fichier txt est une adresse de fichier. Ce que je voudrai faire c'est qu'à chaque ligne du fichier txt le programme vbs lui adresse une action qui sera "ctrl+o" pour ouvrir la fenetre de dialogue "ouverture de fichier" et que le script copie/colle l'adresse qu'il y a sur la ligne dans la fenetre.

Je ne vois pas du tout comment faire, je suis à cours d'idée.

hello,
tu peux nous donner un exemple de ton fichier stp. Ca sera plus simple.
Merci

Tiens voilà un fichier type qui sort de mon programme matlab.

Code:

1
2
3
4
C:\Users\Mystery\Desktop\Stage\Résultats\05.03.12 Manip Tx HEA\381221\t1F1.spc
C:\Users\Mystery\Desktop\Stage\Résultats\05.03.12 Manip Tx HEA\381221\t2bisF1.spc
C:\Users\Mystery\Desktop\Stage\Résultats\05.03.12 Manip Tx HEA\381221\t2F1.spc
C:\Users\Mystery\Desktop\Stage\Résultats\05.03.12 Manip Tx HEA\381221\t3F1.spc

J'ai réalisé un script qui me permet de copier/coller dans le clipboard et me coller chaque lien dans une fenetre d'ouverture de fichier.
Le problème c'est que ce script ne fonctionne que si la machine possède word, je voudrai le rendre compatible toutes machines par exemple en passant par le bloc note.

code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
' Test l'existence d'un fichier
Set objFSO = CreateObject("Scripting.FileSystemObject" )
If objFSO.FileExists("spec.txt" ) Then
 
dim filesys, text, readfile, contents 
set filesys = CreateObject("Scripting.FileSystemObject") 
set readfile = filesys.OpenTextFile("spec.txt", 1, false) 
do while readfile.AtEndOfStream=false 
contents = readfile.ReadLine 
 
' Set what you want to put in the clipboard ' 
strMessage = contents
' Declare an object for the word application ' 
Set objWord = CreateObject("word.Application") 
' Using the object ' 
With objWord 
   .Visible = False     ' Don't show word ' 
   .Documents.Add       ' Create a document ' 
   .Selection.TypeText strMessage   ' Put text into it ' 
   .Selection.WholeStory    ' Select everything in the doc ' 
   .Selection.Copy  ' Copy contents to clipboard ' 
   .Quit False  ' Close Word, don't save '  
End With 
 
Set WshShell = createobject("wscript.shell")
Set oExec = WshShell.Exec("..\LabSp418\LabSpec.exe")
WScript.Sleep 1000
Set WshShell = WScript.CreateObject("WScript.Shell" ) 
WshShell.SendKeys "^o"
WScript.Sleep 500
WshShell.SendKeys "^v"
WshShell.SendKeys "{enter}"
loop 
readfile.close 
WScript.Quit
 
 
 
Else
    Wscript.Echo "Veuillez sélectionner des spectres !"
End If

Cordialement,

Salut
Code:

1 2 3 4 'Copier Call CreateObject("htmlfile").ParentWindow.ClipboardData.setData("text","un texte copier") 'Coller MsgBox CreateObject("htmlfile").ParentWindow.clipboardData.Getdata("text")
Pour d'autres informations Utilisation du presse papier système (Clipboard) dans un HTA lignes 47, 52 et 59