Bonjour à tous,
Je suis débutant et je ne connais pas grand chose en programmation.
J'aurais aimer savoir si il vous serais possible de me donner un p'tit coup de main en matière de script (et plus précisément en VBS). En effet, j'aimerais faire un script (le VBS n'est pas une obligation mais ce script tournera sur du windows XP) qui permet de rechercher des chaines de caractères dans un fichier et de les copiers dans un autre fichier à la forme .csv (avec les ";" comme séparateur).
Exemple :
J'ai un fichier "toto.txt" où dedans j'ai beaucoup de ligne.
par exemple :
J'aimerais chercher des informations et les copier en commençant par les chercher depuis la fin du fichier txt. J'aimerais m'appuyer sur un fichier .ini. En effet, dans le fichier .ini je voudrais qu'il soit de cette forme :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3client toto ca 16 euros espoire bon espoire
LANG= "bonjour","welcome","welcomen"
V1 = "client","customer","blabla"
V2 = "espoir","hope","blublu"
V3 = "ca","ca","ca"
donc dans le fichier .ini je rentre les variable avec les mots que je veux chercher et copier dans un fichier en .csv et je veux lui dire "si le fichier commence par bonjour, alors tu cherches le mot "client" puis "espoir" et "ca" et tu copies "toto;16;bon espoir" tout ça dans un fichier csv . Donc dans mon fichier .vbs j'aurais le script qui permet de faire tout ça. L'avantage du fichier ini c'est que je peux rajouter des variables ou des mots à rechercher sans modifier le script vbs.
Le soucis c'est que je suis absolument pas développeur (j'ai des notions) et je galère vraiment alors j'aurais aimer savoir si vous pourriez m'aider ?
J'ai déjà réussi à faire des p'tites choses comme affichier le contenu d'un fichier ini :
Ou alors lire un fichier puis afficher ligne par ligne le contenu :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 Dim fso : Set fso = CreateObject("Scripting.FileSystemObject") Dim ObjTextStream : Set ObjTextStream = Fso.OpenTextFile("P:\Scripts\band raz\test.ini", 1, False) Dim strtmp Do While Not ObjTextStream.AtEndOfStream strtmp = Split(ObjTextStream.ReadAll, vbCrLf) For i = 0 To UBound(strtmp) MsgBox strtmp(i) Next Loop ObjTextStream.Close Set ObjTextStream = Nothing Set Fso = Nothing
Mais je ne vois pas du tout comment faire pour mon idée final.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 Const ForReading = 1, ForWriting = 2 Dim oFso, f Set oFso = CreateObject("Scripting.FileSystemObject") Set f = oFso.OpenTextFile("P:\Scripts\band raz\lal.txt", ForReading) while Not f.AtEndOfStream wscript.echo f.ReadLine Wend f.Close
Merci d'avance pour votre aide
Partager