Discussion :

[jpe54]

Bonjour,

On me demande de créer en VbScript un utilitaire permettant de remplacer une ligne par une autre - voire un paragraphe complet - dans des fichiers externe.

Actuellement j'utilise InpuBox... pour coller une ligne Texte source et une ligne cible associées à la fonction Replace.

Le problème est que cette chaine ne peut pas comporter de saut de ligne...

Existe-t-il une possibilité de disposer d'une boite de saisie (ou copie) textarea pour remplacer un paragraphe complet avec des sauts de ligne par un autre en fichier *.vbs pur (sans HTML) ?

Merci par avance !

[hackoofr]

Pouvez-vous nous poster votre code et pour voir mieux les choses

[jpe54]

Bonsoir,

Bien sur je peux coder les chaines Source / cible directement... mais j'aimerai le faire via des boites de saisie... même en présence de retours chariots.

Voici le code en cause pour la collecte des chaines à remplacer et en pièce jointe le codage complet.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
' Texte a remplacer...
StrOld = InputBox("Texte à Chercher : ","Recherche ...", "")
 
	If StrOld = "" Then
	Wscript.Quit
	End If
 
' La chaine voulue à la place de StrOld
StrNew = InputBox("Remplacer : " & vbCrLf & StrOld & vbCrLf & vbCrLf & "Par :","Replace", "")
 
' Information...
Wscript.Echo "Remplacer : " & vbCrLf & StrOld & vbCrLf & vbCrLf &"Par :" & vbCrLf & StrNew & vbCrLf & vbCrLf & "dans tous les sous-dossiers de :" & vbCrLf & targetPath

1000 mercis par avance de vos suggestions...

[omen999]

bonjour,
le vbs est nativement très pauvre en terme d'interface graphique avec l'utilisateur (2 fonctions MsgBox et InputBox et dans un contexte WSH Popup et Echo)
des solutions ont été proposées dans des articles de ce forum :

http://www.developpez.net/forums/d71...l-application/
http://www.developpez.net/forums/d10...ript-portable/

mais la complexité de l'écriture rebute souvent le scripteur occasionnel qui n'a généralement pas le temps de passer plusieurs heures pour se familiariser avec ces techniques

pour gérer ces sauts de ligne, il y a une méthode + rustique qui consiste à choisir un caractère arbitraire pour les représenter au stade de la saisie
un exemple avec le caractère $ qui est facilement accessible au clavier :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
StrOld = InputBox("Texte à Chercher : ","Recherche ...les sauts de ligne = caractère $", "")
 
If StrOld = "" Then Wscript.Quit
StrOld = Replace(StrOld,"$",vbCrLf)
' La chaine voulue à la place de StrOld
StrNew = InputBox("Remplacer : " & vbCrLf & StrOld & vbCrLf & vbCrLf & "Par :","Remplace...les sauts de ligne = caractère $", "")
StrNew = Replace(StrNew,"$",vbCrLf)
 
' Information...
Wscript.Echo "Remplacer : " & vbCrLf & StrOld & vbCrLf & vbCrLf &"Par :" & vbCrLf & StrNew & vbCrLf & vbCrLf & "dans tous les sous-dossiers de :"

[jpe54]

Bonjour,

Merci pour ces liens que je vais consulter avec attention, mais je voulais éviter de code un fichier HTA ou HTML pour la compatibilité souvent limité à Internet Explorer... et d'ailleurs remise en cause depuis la version 10 pour des interfaces antérieures. Je pensais pouvoir faire appel à des API Windows comme avec le vrai Visual Basic Pro... La réponse est peut être dans vos liens...

J'avais bien pensé à coder comme vous le proposez, mais reste à définir un code qui sera à coup sur inutilisé... (Modif à la volée de code HTML présent sur un serveur intranet...)

Mais reste un inconvénient majeur avec cette solution : On se prive d'un copier / Coller de paragraphe complet non retravaillé... Autant placer les textes directement dans le code VBS, mais là il ne faut pas un utilisateur lambda... car il faut gérer les chr(34) et sauts de ligne.

Néanmoins un vif merci pour votre intervention... et bonne fêtes de fin d'année !

EDIT : xGUICOM dont j'ignorais l'existence retient toute mon attention ! je vais étudier la Doc avec la plus grande attention...

[omen999]

mais je voulais éviter de code un fichier HTA ou HTML pour la compatibilité souvent limité à Internet Explorer... et d'ailleurs remise en cause depuis la version 10 pour des interfaces antérieures

tu prêches un converti

xGUICOM dont j'ignorais l'existence retient toute mon attention !

si tu as des notions de prog native win32, c'est nickel

[jpe54]

si tu as des notions de prog native win32, c'est nickel

Bah je vais prendre un coup de jeune après 35 ans de programmation diverses... (Cobol, GFA Basic sous Atari, HTML, JavaScript, Visual Basic Application et le vrai 6 Pro...)

Dommage simplement que dans votre doc il n'y ai pas un lien sur les bases de cette prog native. Je vais fouiller sous Google. C'est d'ailleurs peut être ce que j'utilisais avec Visual Basic 6 Pro (mon langage préféré mais exe dépendant de ocx...) et l'appel à des API Windows...

Ce type de codage sous Windows 3.1 respectant le livre Blanc de l'époque fonctionne toujours y compris sous Windows 8.1 ... Seul l'aspect visuel a vieilli

Encore merci !

[omen999]

Dommage simplement que dans votre doc il n'y ai pas un lien sur les bases de cette prog native

http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx