[VBA] Optimisation de code / gain de temps

mhhhh...on y est presque...

Il faudrait que je génère le code que je suis en train de tapper contenant tout les chr et les variables à remplacer, dans une variable (ou un fichier texte).

Après, je n'ai plus qu'à copier/coller moi-même le code généré dans ma variable de ma feuille, et j'aurai toute ma config, qui sera générée dès que la variable sera appelée...

La solution 2 est donc presque la bonne, presque car avec ta technique il interprète les variables et les chr, moi il me faudrait le code brut =)

EDIT : en me relisant je me comprends plus moi-même...je vais te dire ce que j'attends, car on est vraiment presque, mais vraiment !

on part de :

router ospf 100
Network 192.168.1.1 0.0.0.255
interface fa0/0
ip address 192.168.1.1 255.255.255.0
line con 0
login local
logging synchrounous
escape-character 27

Il faut arriver à :

conf = "router ospf 100" _
 & chr(13) & chr(10) & "Network" & IP  _
 & chr(13) & chr(10) & "interface fa0/0" _
 & chr(13) & chr(10) & "ip address " & IP & "255.255.255.0" _
 & chr(13) & chr(10) & "line con 0" & chr(13) & chr(10)

conf2 = "login local" _
 & chr(13) & chr(10) & "logging synchrounous" _
 & chr(13) & chr(10) & "escape-character 27" & chr(13) & chr(10)

conf_final = conf + conf2

(comme exemple, on dira que le VBA est limité à 5 retours de lignes, contre 25 dans le vrai code)

Pour se faire, il faudrait, en m'inspirant du code de ta deuxième solution : (je met de côté les Dim, mais je les oublie pas =))

Open "ConfigType" for input as #1
config=""
While not eof(1)
Line input #1, texte
If instr(texte,"§ip§") > 0 then texte = "ip address " & IP & " 255.255.255.0"
config= config & chr(13) & chr(10) & texte & _
wend
Close 

A ça on rajoute deux contraintes :

- Le code NE devra PAS etre interpérété, mais enregistré en brut dans la variable
- Le contenu de la variable texte devra être entre des guillemets
- Toutes les 25 lignes, il va falloir remplacer :

config= config & chr(13) & chr(10) & texte & _
par
config= config & chr(13) & chr(10) & texte & & chr(13) & chr(10)

olala...j'ai oublié de dire qu'il va falloir mettre un compteur a la nouvelle sous-variable, afin de la concaténer à la fin avec la variable finale...

Bon...j'ai l'impression finalement que ta technique elle est encore plus difficile et longue que ma saisie manuelle :P

Merci de ton aide, elle m'est très précieuse :-)

Quand je parlais de code brut, je voulais dire d'inscrire du code dans la variable, sans qu'il soit interprété...

Exemple :

config = "chr(13) & chr(10) & "escape-character 27" _"

qui renvoie :

chr(13) & chr(10) & "escape-character 27" _

A mon avis, à cause de la présence des guillemets, c'est totalement impossible ...

olalala quel casse-tête :P

re !

Avant d'aborder ton premier post je vais d'abord répondre au deuxieme.

Je vais te resituer un peu le contexte, histoire que tu comprenne le but de ma démarche.

Je vais avoir des routeurs Cisco, une bonne centaine. Ces routeurs, je veux les configurer de manière rapide et efficace, en utilisant un petit programme VBA dans un fichier Word. Pourquoi un fichier Word, car il contiendra toute la procédure de configuration de ces routeurs, qui servira pas seulement pour moi mais pour tout ceux qui s'en serviront après moi.

Le principe est de rentrer après avoir choisi après une liste de 3 types de configuration "type" (selon l'emplacement géographique), et en inputbox des variables contenues dans une fiche qui est attaché a chaque routeur, qui contient les identifiants de connexion, le nom du routeur, le numéro IP du routeur, l'ip publique etc...

Ces variables seront ajouté dans le fichier de configuration type du routeur, qui est le même pour tout le monde (sauf bien sûr l'endroit où sont entreposés les variables).

Quand les variables ont été rentrées, la configuration finale, stockée dans le fichier Word (car il sera utilisé depuis divers endroits, envoyé à d'autres etc...), sera copiée dans le presse-papier, afin que la personne puisse directement la coller dans le routeur directement.


Ensuite, de ces variables est également généré deux autres configurations, qui eux seront stockées dans des texts-box et surlignés au clic dans cette text-box (faudra que je cherche comment faire ça d'ailleurs ^^), pour que la personne derrière le collage dans le routeur, puisse coller egalement des "minis-configurations" dans 2 firewalls via Telnet.

Grâce à ça, du travail à la chaine est possible, par plusieurs personnes à la fois, et tgrès rapidement (environ 1 minute par routeur)


Ces configurations, je les ai déjà dans un fichier texte. J'ai pu en retranscrire une dans le VBA de la feuille via une méthode barbare de copier/coller, comme je l'ai indiqué avec les chr et co., maintenant je cherchais un moyen d'optimiser le code...pour les 2 autres configurations type ! Voilà !


Alors, en revenant sur ta solution...
Il faudrait un truc qui permette au final dans la variable et en code brut (c'est à dire affiché mais non interprêté) de donner ça :

conf1 = "ligne1" _
& Chr(13) & Chr(10) & "ligne2" _
& Chr(13) & Chr(10) & "ligne3" _
& Chr(13) & Chr(10) & "ligne4" _
& Chr(13) & Chr(10) & "ligne5" _
& Chr(13) & Chr(10) & "ligne6" _
& Chr(13) & Chr(10) & "ligne7" _
& Chr(13) & Chr(10) & "ligne8" _
& Chr(13) & Chr(10) & "ligne9" _
& Chr(13) & Chr(10) & "ligne10" _
& Chr(13) & Chr(10) & "ligne11" _
& Chr(13) & Chr(10) & "ligne12" _
& Chr(13) & Chr(10) & "ligne13" _
& Chr(13) & Chr(10) & "ligne14" _
& Chr(13) & Chr(10) & "ligne15" _
& Chr(13) & Chr(10) & "ligne16" _
& Chr(13) & Chr(10) & "ligne17" _
& Chr(13) & Chr(10) & "ligne18" _
& Chr(13) & Chr(10) & "ligne19" _
& Chr(13) & Chr(10) & "ligne20" _
& Chr(13) & Chr(10) & "ligne21" _
& Chr(13) & Chr(10) & "ligne22" _
& Chr(13) & Chr(10) & "ligne23" _
& Chr(13) & Chr(10) & "ligne24" & Chr(13) & Chr(10)

conf2 = "ligne25" _
& Chr(13) & Chr(10) & "ligne26" _
& Chr(13) & Chr(10) & "ligne27" _
& Chr(13) & Chr(10) & "ligne28" _
& Chr(13) & Chr(10) & "ligne..." _
& Chr(13) & Chr(10) & "ligne..." _
& Chr(13) & Chr(10) & "ligne..." _
& Chr(13) & Chr(10) & "ligne" _
& Chr(13) & Chr(10) & "ligne" _
& Chr(13) & Chr(10) & "ligne" _
& Chr(13) & Chr(10) & "ligne" _
& Chr(13) & Chr(10) & "ligne" _
& Chr(13) & Chr(10) & "ligne" _
& Chr(13) & Chr(10) & "ligne" _
& Chr(13) & Chr(10) & "ligne" _
& Chr(13) & Chr(10) & "ligne" _
& Chr(13) & Chr(10) & "ligne" _
& Chr(13) & Chr(10) & "ligne" _
& Chr(13) & Chr(10) & "ligne" _
& Chr(13) & Chr(10) & "ligne" _
& Chr(13) & Chr(10) & "ligne" _
& Chr(13) & Chr(10) & "ligne" _
& Chr(13) & Chr(10) & "ligne" _
& Chr(13) & Chr(10) & "ligne" & Chr(13) & Chr(10)

conf3 = "ligne" _
& Chr(13) & Chr(10) & "ligne" _
& Chr(13) & Chr(10) & "ligne" _
& Chr(13) & Chr(10) & "ligne" _
& Chr(13) & Chr(10) & "ligne" _
& Chr(13) & Chr(10) & "ligne" _
& Chr(13) & Chr(10) & "ligne" _
& Chr(13) & Chr(10) & "ligne" _
& Chr(13) & Chr(10) & "ligne" _
& Chr(13) & Chr(10) & "ligne" _
& Chr(13) & Chr(10) & "ligne" _
& Chr(13) & Chr(10) & "ligne" _
& Chr(13) & Chr(10) & "ligne" _
& Chr(13) & Chr(10) & "ligne" _
& Chr(13) & Chr(10) & "ligne" _
& Chr(13) & Chr(10) & "ligne" _
& Chr(13) & Chr(10) & "ligne" _
& Chr(13) & Chr(10) & "ligne" _
& Chr(13) & Chr(10) & "ligne" _
& Chr(13) & Chr(10) & "ligne" _
& Chr(13) & Chr(10) & "ligne" _
& Chr(13) & Chr(10) & "ligne" _
& Chr(13) & Chr(10) & "ligne" _
& Chr(13) & Chr(10) & "ligne" & Chr(13) & Chr(10)

conf = conf1 & conf2 & conf3

(je suis désolé de ne pas pouvoir détailler les conf, elles sont confidentielles et ont un certain nombres d'infos personnelles, comme les mots de passe, et les IP privées)

J'avais pensé à un truc comme ça, si tu pouvais le corriger, ou le reprendre :-) :

Open "ConfigType" for input as #1 'je précise le chemin d'accès complet, où le nom de fichier qui se trouve dans le même repertoire ?
config=""
j = 1
While not eof(1)
        for i = 1 to 23
             Line input #1, texte
             If instr(texte,"§ip§") > 0 then
                texte = "ip address " & IP & " 255.255.255.0"
             end if
             If instr(texte,"§identifiants§") > 0 then
                texte = "ppp chap hostname " & login
             end if
             If instr(texte,"§IP publique§") > 0 then
                texte = "permit udp host ip host " & IP_public & " eq isakmp"
             end if
             if i = 1 then
             config = config & "conf" & j & " = " & chr(34) & "Chr(13) & Chr(10) & " & Chr(34) & texte & Chr(34) & " _" & chr(34)
             j = j + 1
             else
             config = config & chr(34) & "Chr(13) & Chr(10) & " & Chr(34) & texte & Chr(34) & " _" & chr(34) 
             end if
         loop
         Line input #1, texte
         config = config & chr(34) & "Chr(13) & Chr(10) & " & Chr(34) & texte & Chr(34) & " & chr(13) & chr(10)" & chr(34) 
wend
for k = 1 to j
line = line & "conf" & k & " + "
loop
config = config & line
Close 

Il me manque juste un truc, c'est comment dans la variable config je simule un retour à la ligne entre la fin de conf2 et le début de conf3 :

& Chr(13) & Chr(10) & "ligne" & Chr(13) & Chr(10)
                                                                     <======
conf3 = "ligne" _

ça devient (en tout cas pour moi) très compliqué...mais si on arrive à remplacer 700 lignes saisies manuellement par 30...et ensuite juste copier les 700 générées par le code dans le VBA...J'aurai gagné trois semaines :D

Je te remercierai jamais assez pour l'intérêt que tu portes à mon problème !

Impréssionnant !

Le code à l'air niquel...Tout est bien formé...j'ai juste a enlever les espaces dans le fichier texte d'origine, en tout cas, cela fonctionne ! Bravo !!!

Puis-je me permettre de te demander egalement comment inséré du bout de config. dans une textbox, et sans possibilité de modification, d'avoir une séléction complète lorsque l'on clique à l'interieur de celle-çi ?

Merci en tout cas, et chapeau bas ! ^_^

EDIT : Tiens, c'est bizarre il n'a pas prit les conditions de remplacement :

             If InStr(texte, "§ip§") > 0 Then
                texte = "ip address " & IP & " 255.255.255.0"
             End If
             If InStr(texte, "§identifiants§") > 0 Then
                texte = "ppp chap hostname " & login
             End If
             If InStr(texte, "§IP publique§") > 0 Then
                texte = "permit udp host ip host " & IP_public & " eq isakmp"
             End If

A mon avis ce n'est pas "> 0" qu'il faut mettre...De toute façon je vais virer ces conditions de remplacement, vu que les §ip§ par exemple peuvent se trouver sur plusieurs lignes, avec des commandes différentes...je ferai un remplacement manuellement...

rahhhhhhhhh en fait la fonction de remplacement à marché...ça m'a entièrement salopé la config xP

Je vais tout recharger et faire le remplacement manuellement sous VB avec Ctrl + F, j'ai profité de ton programme pour faire un bouton, afin de pouvoir ultérieurement rajouter des configs type. Un peu de flexibilité, ca ne fait pas de mal =).

Grâce à toi, j'ai pu faire un beau fichier Word, complet, flexible, accessible et rapide à mettre en oeuvre. Je t'en dois une belle !

Merci encore, je place le topic en résolu dès que j'ai tout fini et finalisé, au cas où en route j'ai besoin de solliciter ton aide !

J'ai trouvé, je ne peux pas inscrire de données à l'intérieur d'une textbox qui est locked :P

Par contre, je te confirme que je n'arrive vraiment pas à faire une selection de tout le texte à l'intérieur d'une textbox à partir d'un clic dans celui-çi...j'ai essayé derriere un selection.copy, un doc.textbox1.select = true...mais rien n'y fait :s

Est-ce que cela vient egalement du fait que la textbox soit locked ? ça m'etonnerai...

J'ai pu récupérer le nom du form, qui par défaut s'appelle ThisDocument (fallait trouver ...). J'ai renommé en Doc