Discussion :

[dubinc38]

Bonjour les forumeurs

Je vais essayer d'expliquer mon probleme de maniere le plus claire possible :

le contexte :

Realiser un script (vbs) pour modifier des netlogons relatifs au mappage d'imprimante réseau,sachant qu'une migration au niveau du serveur d'impression est en cours,mon but consiste a pouvoir via le script modifier les netlogons (9000 fichiers et des brouettes )

Le principe repose donc sur:

La copie de chaque fichier ligne par ligne vers un nouveau repertoire avec en plus un teste relatif au chaine de caractere que contient la ligne.
Je developpe ceci sur une station windows xp pro

Pour rendre plus concret la chose:

copie des fichiers texte ligne par ligne du dossier A vers le dossier B
Et si la ligne contient la chaine de caractere(saisie precedement via inputbox) recherché alors ajouter apres cette ligne:
une nouvelle ligne du genre "netprinter|\\nomserveur\nomimprimante"

Mon stade actuelle:

J'arrive a parcourir le repertoire puis tout les fichier texte du repertoire et ce ligne par ligne cepedant mon probleme reside dans un premier temps dans la recherche de la chaine de caractere précise.

j'ai essayer de me basé sur un code trouvé sur un autre site.

Et dans un second temps j'arrive a copier un fichier complet mais pas juste une ligne par ligne

Voila je pense que tout ne doit pas être trés claire alors je suis dispo pour toute informations supplémentaires

Merci d'avance à ceux qui essayerons de m 'aider

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Option Explicit 
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim objFso, objFile,objFolder, strPath, strExt
Dim File, Result,ligne,Texte,sChaine
'Répertoire à parcourir
strPath = "cheminrepertoire"
'Extension à rechercher
strExt = "txt"
'Création du dossier pour la copie
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.CreateFolder("chemindudossierdecopie")
Set objFso = CreateObject("Scripting.FileSystemObject")
'----------
'Parcour du répertoire ligne par ligne + affichage 
'----------
Call ShowFileTxtFolder(strExt)
 
Set objFso = Nothing
 
Function ShowFileTxtFolder (strExt)
For Each objFile In objFso.GetFolder(strPath).Files
    If UCase(objFso.GetExtensionName(objFile.Path)) = UCase(strExt) Then
       Set File = objFso.OpenTextFile(objfile.Path, ForReading)          
	while Not File.AtEndOfStream 
	ligne = File.Readline
'C'est ici qu'il faut que je rajoute les conditions de test au niveau des caracteres
             msgbox ligne,,objfile.Path
wend
File.Close
Set File = nothing
End if   
Next
End Function

[pc75]

Bonjour,

La fonction InStr() ne te convient pas ?

[dubinc38]

Salut pc79

Le probleme c 'est quil faut que je puisse recuperer la chaine rechercher a partir d'une variable(contenant le nom de l'imprimante [saisie a la main dans un inputbox]) et non d'une chaine saisie litteralement dans le code

a moins qu'une astuce existe ?

Faut dire que je suis pas un grand expert du vbs

merci

[ced600]

un inputbox te permet de saisir un texte dans une fenêtre prévu pour.
La méthode te renvois la chaine saisie.

Ensuite pour les tests, en fonction de ce que tu saisies et de ta ligne, il faudra travailler sur le chaine de caractères à l'aide de fonction comme :
strcmp, split, instr, left, right, ...

Tu as des exemples dans la faq vbs, et si tu as besoin de plus, il est facile d'en trouver plus avec google.

Et si tu merdouilles avec une fonction, postes le code concerné on t'aidera.

[dubinc38]

ok merci

j'ai peut être un début de solution je vais continuer je chercher si je bloque je repasse par ici

[dubinc38]

Bonjour,

Merci la fonction instr ma en effet permis de trouver la chaine que je cherche

bonne journéé