Discussion :

[geriler]

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.

[pitchalov]

Bonjour,

La fonction Filter ne me parait pas être la solution à ton problème. L'erreur que tu as eu est normale car cette fonction attend un tableau de chaines en premier paramètre, et que tu lui fournis une chaine...

Bref. Pour chercher la présence d'une chaine dans une autre, je pense que la fonction InStr est plus adaptée :

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("c:\temp\ecr.txt", ForReading)
Do While Not f.AtEndOfStream 
	g=f.readline
	If InStr(1, g, "10.32.5.50", vbTextCompare) > 0 Then WScript.Echo g
Loop
f.Close

Bonne continuation.

[geriler]

Merci bien,
J'ai pu faire ce que je voulais