Bonjour;
Dans le cadre d'un projet de gestion d'un routeur, je développe une
application en VB6.
L'objectif est de charger une configuration générique contenant des variables
appelés "trous". Ces trous doivent être comblés par des valeurs déterminées
lors de l'établissement d'un scénario de configuration et, l'ensemble des
trous comblés sauvegardés dans un nouveau fichier qui sera chargé dans le
routeur par la suite.
Les trous sont en réalités des balises du style $$VariableAIsérer$$ (balise
placée dans un endroit précis dans le fichier de base et doivcent être
remplacées par des variables du style "MaVariableAInsérer" (valeur textbox)
en vis-à-vis de sa balise.
Exemple, la balise $$HostName$$ doit être remplacée par la valeur HostName
déterminée dans un textbox.
Donc, mon raisonnement est le suivant:
1. Ouverture en lecture du fichier à trou
2. Lecture du fichier en mode séquentiel pour déterminer les "trous" avec
insertion immédiate de la valeur dans les trous
3. Ouvrir en écriture un nouveau fichier et copier le contenu du 1er fichier
avec les trous comblés
4. Sauvegarder le nouveau fichier sous un autre nom.
Pour l'ouverture en lecture et chargement dans un buffer => pas de problème.
Par contre, pour l'ouverture en écriture, remplacement des mots par des
nouveaux mots et sauvegardés sous un nouveau => je bloque.
Je n'arrive pas à établir un alogo correcte. Je sais que l'on peut à la fois
ouvrir, lire, remplacer les mots et écrire dans un nouveau fichier aisement
mais, je n'y arrive pas.
Si qlq pouvait ou avait déjà fait un algo similaire, je lui en serai
reconnaissant. Du moins, je me diriger vers une piste exploitable, le reste,
j'arriverai certainement à le mettre en oeuvre.
Je remercie d'avance la communauté.
Bonjour;
Dans le cadre d'un projet de gestion d'un routeur, je développe une
application en VB6.
L'objectif est de charger une configuration générique contenant des variables
appelés "trous". Ces trous doivent être comblés par des valeurs déterminées
lors de l'établissement d'un scénario de configuration et, l'ensemble des
trous comblés sauvegardés dans un nouveau fichier qui sera chargé dans le
routeur par la suite.
Les trous sont en réalités des balises du style $$VariableAIsérer$$ (balise
placée dans un endroit précis dans le fichier de base et doivcent être
remplacées par des variables du style "MaVariableAInsérer" (valeur textbox)
en vis-à-vis de sa balise.
Exemple, la balise $$HostName$$ doit être remplacée par la valeur HostName
déterminée dans un textbox.
Donc, mon raisonnement est le suivant:
1. Ouverture en lecture du fichier à trou
2. Lecture du fichier en mode séquentiel pour déterminer les "trous" avec
insertion immédiate de la valeur dans les trous
3. Ouvrir en écriture un nouveau fichier et copier le contenu du 1er fichier
avec les trous comblés
4. Sauvegarder le nouveau fichier sous un autre nom.
Pour l'ouverture en lecture et chargement dans un buffer => pas de problème.
Par contre, pour l'ouverture en écriture, remplacement des mots par des
nouveaux mots et sauvegardés sous un nouveau => je bloque.
Je n'arrive pas à établir un alogo correcte. Je sais que l'on peut à la fois
ouvrir, lire, remplacer les mots et écrire dans un nouveau fichier aisement
mais, je n'y arrive pas.
Si qlq pouvait ou avait déjà fait un algo similaire, je lui en serai
reconnaissant. Du moins, je me diriger vers une piste exploitable, le reste,
j'arriverai certainement à le mettre en oeuvre.
Je remercie d'avance la communauté.
Bonjour;
Dans le cadre d'un projet de gestion d'un routeur, je développe une
application en VB6.
L'objectif est de charger une configuration générique contenant des variables
appelés "trous". Ces trous doivent être comblés par des valeurs déterminées
lors de l'établissement d'un scénario de configuration et, l'ensemble des
trous comblés sauvegardés dans un nouveau fichier qui sera chargé dans le
routeur par la suite.
Les trous sont en réalités des balises du style $$VariableAIsérer$$ (balise
placée dans un endroit précis dans le fichier de base et doivcent être
remplacées par des variables du style "MaVariableAInsérer" (valeur textbox)
en vis-à-vis de sa balise.
Exemple, la balise $$HostName$$ doit être remplacée par la valeur HostName
déterminée dans un textbox.
Donc, mon raisonnement est le suivant:
1. Ouverture en lecture du fichier à trou
2. Lecture du fichier en mode séquentiel pour déterminer les "trous" avec
insertion immédiate de la valeur dans les trous
3. Ouvrir en écriture un nouveau fichier et copier le contenu du 1er fichier
avec les trous comblés
4. Sauvegarder le nouveau fichier sous un autre nom.
Pour l'ouverture en lecture et chargement dans un buffer => pas de problème.
Par contre, pour l'ouverture en écriture, remplacement des mots par des
nouveaux mots et sauvegardés sous un nouveau => je bloque.
Je n'arrive pas à établir un alogo correcte. Je sais que l'on peut à la fois
ouvrir, lire, remplacer les mots et écrire dans un nouveau fichier aisement
mais, je n'y arrive pas.
Si qlq pouvait ou avait déjà fait un algo similaire, je lui en serai
reconnaissant. Du moins, je me diriger vers une piste exploitable, le reste,
j'arriverai certainement à le mettre en oeuvre.
Je remercie d'avance la communauté.
Bonjour;
Bonjour;
Bonjour;
Obiwan wrote:Bonjour;
Maintenant, il y a quand même plus simple pour réaliser
ce que tu veux.
Obiwan wrote:
Bonjour;
Maintenant, il y a quand même plus simple pour réaliser
ce que tu veux.
Obiwan wrote:Bonjour;
Maintenant, il y a quand même plus simple pour réaliser
ce que tu veux.
Bonjour;
Dans le cadre d'un projet de gestion d'un routeur, je développe une
application en VB6.
L'objectif est de charger une configuration générique contenant des
variables appelés "trous". Ces trous doivent être comblés par des valeurs
déterminées lors de l'établissement d'un scénario de configuration et,
l'ensemble des trous comblés sauvegardés dans un nouveau fichier qui sera
chargé dans le routeur par la suite.
Les trous sont en réalités des balises du style $$VariableAIsérer$$
(balise placée dans un endroit précis dans le fichier de base et doivcent
être remplacées par des variables du style "MaVariableAInsérer" (valeur
textbox) en vis-à-vis de sa balise.
Exemple, la balise $$HostName$$ doit être remplacée par la valeur HostName
déterminée dans un textbox.
Donc, mon raisonnement est le suivant:
1. Ouverture en lecture du fichier à trou
2. Lecture du fichier en mode séquentiel pour déterminer les "trous" avec
insertion immédiate de la valeur dans les trous
3. Ouvrir en écriture un nouveau fichier et copier le contenu du 1er
fichier avec les trous comblés
4. Sauvegarder le nouveau fichier sous un autre nom.
Pour l'ouverture en lecture et chargement dans un buffer => pas de
problème.
Par contre, pour l'ouverture en écriture, remplacement des mots par des
nouveaux mots et sauvegardés sous un nouveau => je bloque.
Je n'arrive pas à établir un alogo correcte. Je sais que l'on peut à la
fois ouvrir, lire, remplacer les mots et écrire dans un nouveau fichier
aisement mais, je n'y arrive pas.
Si qlq pouvait ou avait déjà fait un algo similaire, je lui en serai
reconnaissant. Du moins, je me diriger vers une piste exploitable, le
reste, j'arriverai certainement à le mettre en oeuvre.
Je remercie d'avance la communauté.
Bonjour;
Dans le cadre d'un projet de gestion d'un routeur, je développe une
application en VB6.
L'objectif est de charger une configuration générique contenant des
variables appelés "trous". Ces trous doivent être comblés par des valeurs
déterminées lors de l'établissement d'un scénario de configuration et,
l'ensemble des trous comblés sauvegardés dans un nouveau fichier qui sera
chargé dans le routeur par la suite.
Les trous sont en réalités des balises du style $$VariableAIsérer$$
(balise placée dans un endroit précis dans le fichier de base et doivcent
être remplacées par des variables du style "MaVariableAInsérer" (valeur
textbox) en vis-à-vis de sa balise.
Exemple, la balise $$HostName$$ doit être remplacée par la valeur HostName
déterminée dans un textbox.
Donc, mon raisonnement est le suivant:
1. Ouverture en lecture du fichier à trou
2. Lecture du fichier en mode séquentiel pour déterminer les "trous" avec
insertion immédiate de la valeur dans les trous
3. Ouvrir en écriture un nouveau fichier et copier le contenu du 1er
fichier avec les trous comblés
4. Sauvegarder le nouveau fichier sous un autre nom.
Pour l'ouverture en lecture et chargement dans un buffer => pas de
problème.
Par contre, pour l'ouverture en écriture, remplacement des mots par des
nouveaux mots et sauvegardés sous un nouveau => je bloque.
Je n'arrive pas à établir un alogo correcte. Je sais que l'on peut à la
fois ouvrir, lire, remplacer les mots et écrire dans un nouveau fichier
aisement mais, je n'y arrive pas.
Si qlq pouvait ou avait déjà fait un algo similaire, je lui en serai
reconnaissant. Du moins, je me diriger vers une piste exploitable, le
reste, j'arriverai certainement à le mettre en oeuvre.
Je remercie d'avance la communauté.
Bonjour;
Dans le cadre d'un projet de gestion d'un routeur, je développe une
application en VB6.
L'objectif est de charger une configuration générique contenant des
variables appelés "trous". Ces trous doivent être comblés par des valeurs
déterminées lors de l'établissement d'un scénario de configuration et,
l'ensemble des trous comblés sauvegardés dans un nouveau fichier qui sera
chargé dans le routeur par la suite.
Les trous sont en réalités des balises du style $$VariableAIsérer$$
(balise placée dans un endroit précis dans le fichier de base et doivcent
être remplacées par des variables du style "MaVariableAInsérer" (valeur
textbox) en vis-à-vis de sa balise.
Exemple, la balise $$HostName$$ doit être remplacée par la valeur HostName
déterminée dans un textbox.
Donc, mon raisonnement est le suivant:
1. Ouverture en lecture du fichier à trou
2. Lecture du fichier en mode séquentiel pour déterminer les "trous" avec
insertion immédiate de la valeur dans les trous
3. Ouvrir en écriture un nouveau fichier et copier le contenu du 1er
fichier avec les trous comblés
4. Sauvegarder le nouveau fichier sous un autre nom.
Pour l'ouverture en lecture et chargement dans un buffer => pas de
problème.
Par contre, pour l'ouverture en écriture, remplacement des mots par des
nouveaux mots et sauvegardés sous un nouveau => je bloque.
Je n'arrive pas à établir un alogo correcte. Je sais que l'on peut à la
fois ouvrir, lire, remplacer les mots et écrire dans un nouveau fichier
aisement mais, je n'y arrive pas.
Si qlq pouvait ou avait déjà fait un algo similaire, je lui en serai
reconnaissant. Du moins, je me diriger vers une piste exploitable, le
reste, j'arriverai certainement à le mettre en oeuvre.
Je remercie d'avance la communauté.
Hello;
Merci pour les "coups de pouces".
Après avoir réfléchi au sujet, c'était hyper simple.
Voici le code que j'ai développer et ça fonctionne correctement. Je dois
encore gérer les erreurs et les exceptions et ce sera au point.
Private Sub Command1_Click()
Dim Tempo As String
'Ouverture du fichier "modèle" en lecture
Open "C:Program FilesCiscoRT_Gen.conf" For Input As #1
'Ouverture du fichier "cible" en écriture. La valeur contenue dans la
combobox fixera le nom du fichier cible!
Open "C:Program FilesCiscoConfOps" & Combo1.Text For Output As #2
'Boucle tant que la fin du fichier n'est pas atteinte
Do While Not EOF(1)
' Chargement du fichier en lecture séquentielle dans un buffer "Tempo"
Line Input #1, Tempo
' Remplacement des balises par les variables
Tempo = Replace(Tempo, "$$HostName$$", Combo1.Text)
Tempo = Replace(Tempo, "$$PwdEna$$", PwdEna.Text)
etc...
'Ecriture du buffer dans le fichier cible
Print #2, Tempo
' On recommence tant que la boucle n'est pas finie
Loop
'Fermeture du fichier modèle
Close #1
'Fermeture du fichier cible
Close #2
' Message qui sera affiché (quand j'aurai gérer les erreurs et exceptions)
MsgBox ("Création et sauvegarde du fichier de configuration réussie")
End Sub
Voilà, il me suffisait de réfléchir un peu et de consulter les informations
divulguées par les membres du forum
qui ont bien voulu m'orienter.
Merci à vous
Obiwan
Hello;
Merci pour les "coups de pouces".
Après avoir réfléchi au sujet, c'était hyper simple.
Voici le code que j'ai développer et ça fonctionne correctement. Je dois
encore gérer les erreurs et les exceptions et ce sera au point.
Private Sub Command1_Click()
Dim Tempo As String
'Ouverture du fichier "modèle" en lecture
Open "C:Program FilesCiscoRT_Gen.conf" For Input As #1
'Ouverture du fichier "cible" en écriture. La valeur contenue dans la
combobox fixera le nom du fichier cible!
Open "C:Program FilesCiscoConfOps" & Combo1.Text For Output As #2
'Boucle tant que la fin du fichier n'est pas atteinte
Do While Not EOF(1)
' Chargement du fichier en lecture séquentielle dans un buffer "Tempo"
Line Input #1, Tempo
' Remplacement des balises par les variables
Tempo = Replace(Tempo, "$$HostName$$", Combo1.Text)
Tempo = Replace(Tempo, "$$PwdEna$$", PwdEna.Text)
etc...
'Ecriture du buffer dans le fichier cible
Print #2, Tempo
' On recommence tant que la boucle n'est pas finie
Loop
'Fermeture du fichier modèle
Close #1
'Fermeture du fichier cible
Close #2
' Message qui sera affiché (quand j'aurai gérer les erreurs et exceptions)
MsgBox ("Création et sauvegarde du fichier de configuration réussie")
End Sub
Voilà, il me suffisait de réfléchir un peu et de consulter les informations
divulguées par les membres du forum
qui ont bien voulu m'orienter.
Merci à vous
Obiwan
Hello;
Merci pour les "coups de pouces".
Après avoir réfléchi au sujet, c'était hyper simple.
Voici le code que j'ai développer et ça fonctionne correctement. Je dois
encore gérer les erreurs et les exceptions et ce sera au point.
Private Sub Command1_Click()
Dim Tempo As String
'Ouverture du fichier "modèle" en lecture
Open "C:Program FilesCiscoRT_Gen.conf" For Input As #1
'Ouverture du fichier "cible" en écriture. La valeur contenue dans la
combobox fixera le nom du fichier cible!
Open "C:Program FilesCiscoConfOps" & Combo1.Text For Output As #2
'Boucle tant que la fin du fichier n'est pas atteinte
Do While Not EOF(1)
' Chargement du fichier en lecture séquentielle dans un buffer "Tempo"
Line Input #1, Tempo
' Remplacement des balises par les variables
Tempo = Replace(Tempo, "$$HostName$$", Combo1.Text)
Tempo = Replace(Tempo, "$$PwdEna$$", PwdEna.Text)
etc...
'Ecriture du buffer dans le fichier cible
Print #2, Tempo
' On recommence tant que la boucle n'est pas finie
Loop
'Fermeture du fichier modèle
Close #1
'Fermeture du fichier cible
Close #2
' Message qui sera affiché (quand j'aurai gérer les erreurs et exceptions)
MsgBox ("Création et sauvegarde du fichier de configuration réussie")
End Sub
Voilà, il me suffisait de réfléchir un peu et de consulter les informations
divulguées par les membres du forum
qui ont bien voulu m'orienter.
Merci à vous
Obiwan