Discussion :

[SebastianB]

Bonjour,

Alors je suis complètement novice en programmation, car je suis d'un Profil plutôt dans la mise en place de Recette fonctionnelle.

Le soucis actuel est que l'on me demande de créer un Script qui permettrait de modifier les labels Anglais de Mercury Quality Center en Français.

J'ai crée un petit quelque chose grâce aux diverses informations récoltées sur ce site, mais malgré cela la modification ne se fait pas.

Voici mon Fichier que j'ai nommé : Req.txt (Fichier où se trouve les valeurs des Balises de la Table) Je ne prends que pour exemple le premier Label car il y en a beaucoup... :

Code :

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

1
2
3
4
5
6
7
<ENTITY>
<NAME>REQ</NAME>
<FIELD>
<COLUMN>RQ_REQ_AUTHOR</COLUMN>
<LABEL>Créée par</LABEL>
</FIELD>
</ENTITY>

Puis mon Script : en vbs.

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
'* AUTHENTIFICATION & CREATION D'UNE INSTANCE DE TDCONNECTION
 
Set tdc = CreateObject("TDApiOle80.TDConnection")
 
'* CONNEXION AU SERVEUR DE TRAITEMENT
 
Reponse = InputBox("Entrer l'URL","Serveur QC","http://de1199ac:8080/qcbin")
tdc.InitConnectionEX Reponse
 
'* AUTHENTIFICATION AVEC UN PROFIL
 
User = split(Reponse,":",2)
tdc.login "maintenance", "intradevQC90"
 
'* CONNEXION AU PROJET
 
Reponse = InputBox("Entrer un projet","Projet QC","DEFAULT:QC_ALTAIR")
Project = split(Reponse,":",2)
tdc.Connect project(0), project(1)
 
 
'* CREATION D'UNE INSTANCE DES CHAMPS PERSONNALISABLES
Set objCustFields = tdc.Customization.Fields
 
'* CHARGEMENT DE LA CONFIGURATION ACTUELLE
tdc.Customization.Load
 
 
'* CONNEXION AU FICHIER POUR RECUPERATION DES VALEURS
Const ForReading = 1, ForWriting = 2 
  Dim oFso, f
  Set oFso = CreateObject("Scripting.FileSystemObject")
 
 
'* LECTURE DU FICHIER TEXTE
Reponse1 = InputBox("Entrez le Nom de votre Table","File Input","C:\Test\Req.txt")
Set f = oFso.OpenTextFile(Reponse1, ForReading)
 
While Not f.AtEndOfStream
'* INDICE DES CHAMPS DANS LA LISTE
If f.ReadLine = "RQ_REQ_AUTHOR" then 
Set theCustFields = objCustFields.Fields ("REQ") 
 
'* INTITIALISATION DES VARIABLES i = 1
Do      
'* IGNORER LE CHAMP...
      	 Set aCustField = theCustFields(i)
	 i = i + 1
Loop while aCustField.ColumnName <> "RQ_REQ_AUTHOR" 
	' AFFECTATION DU LABEL EN FRANCAIS
	aCustField.UserLabel  = "Créée Par"
End If 
Wend
f.Close 
 
'* ENREGISTREMENT DES MODIFICATIONS EN BASE DE DONNEES
tdc.Customization.Commit
 
'*DECONNEXION
tdc.Disconnect
tdc.Logout
tdc.ReleaseConnection
Set tdc = Nothing
 
'* MESSAGE DE FIN
MsgBox "Traduction terminée"

Si quelqu'un pouvait m'aider, ce serait Génial !

Merci d'avance.

[ced600]

Quelle version de la librairie QC tu utilises ?
9.2 ?

Heu qu'est ce qui ne fonctionne pas dans ton script ?

As tu une erreur ?
Il ne fait pas ce que tu souhaites faire ?
Autre ?

[SebastianB]

Bonjour et merci d'avoir répondu.
Pour QC c'est la Version 9.0. Ce qui ne fonctionne pas, c'est que mon Fichier initial est en Balises et j'aimerais automatisé le Tout. Comme on peut le constaté dans mon fichier script, j'ai mis en dur ce qui doit être en Balise. Effectivemnt dès que les champs sont en durs (ex : 'Créée par' pour 'RQ_REQ_AUTHOR' ca marche) mais j'aimerais que c'est valeurs soient en Balises c'est à dire une sorte de variable. Mais comment faire ???

Merci

[ced600]

Pourquoi avoir mis des balises dans un fichier texte et ne pas avoir fait directement un fichier XML ?

Si tu faisais cela alors tu pourrais interprété le fichier XML à l'aide des API XML, comme par exemple sur cette discussion :
vbscript/lire-fichier-xml/
J'ai vu également quelque part mais je ne sais plus où que l'on pouvait utiliser XPath.

Sinon si tu tiens à ton fichier texte, alors tu n'as plus qu'à parcouri toi même le fichier à l'aide de FileSystemObject (voir la FAQ) et récupéré les chaines de caractères qui t'intéresse en utilisant des fonctions comme Split, Mid, Left, ... (voir aussi la FAQ).

[SebastianB]

Comme je le disais, auparavant, je suis complètement Novice et je n'ai jamais programmé de ma Vie ! Et la Tâche que l'on me demande de faire, et bien pour moi, c'ets du Chinois, voilà la raison de ma présence ici... J'ai besoin d'aide et d'exemple. Alors si tu me dis qu'il faut mieux créer un fichier XML je vais le faire, mais pour moi, et je me répète est très loin de mes compétences.
Merci...

[ced600]

Bah désolé mais je ne développe pas de script pour d'autre.
J'ai déjà ma propre mission et je ne peux pas me permettre de faire le travail d'un autre.
Ce travail est à faire par un développeur, je ne sais pas qui te l'as donné, mais dis lui de soit t'envoyer en formation pour apprendre le développement, soit de donner ce travail à un développeur. Ce que tu es entrain d'essayer de faire toi même via ce forum.

Surtout qu'en plus, après si tu t'amuses à modifier la partie TD, bah ce n'est aps gagné. La librairie de QC n'est pas simple à utiliser et je sais de quoi je parle, j'ai développé une platerforme de test automatisé en m'appuyant entiérement sur TD.

Bref si c'est du chinois pour toi tu as deux solutions :
1) tu apprends le chinois.
2) quelqu'un le fait à ta place, mais ce ne sera pas moi.

Pour les exemples, la FAQ VBScript en regorge à foisons.

VBScript Le forum d'entraide sur VBScript. Avant de poster -> La FAQ VBScript