Bonjour,

Je dois travailler sur un vieux serveur, duquel il est impossible de rapatrier des données, du coup je dois travailler en VBS .

J'ai un fichier texte, dont je veux filtrer chaque ligne en fonction d'un critere (présence d'une chaine) et rediriger le résultat vers un autre fichier texte.

J'arrive à afficher ligne par ligne le contenu, mais le filtre dessus ne fonctionne pas.

Voici mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
 
 
Const ForReading = 1, ForWriting = 2 
Dim oFso, f
 
	Set oFso = CreateObject("Scripting.FileSystemObject")
	Set f = oFso.OpenTextFile("c:\temp\ecr.txt", ForReading)
	while Not f.AtEndOfStream 
	g=f.readline
	b=Filter(g,"10.32.5.50",true,1)
		For each x in b
		wscript.echo g
		next
	wend
 
f.Close
l'erreur est : Ms vbscript runtime error: tpe mismatch : 'filter'.

Quelqu'un aurait il une idée de ce qui ne va pas dans ce script?

Merci d'avance à ceux qui pourraient m'aider.