Langage de script Desktop Management › Fonctions › Fonctions de fichiers MIF et Inv › GetMIFComponent ou GetComponent – Extraire le nom du composant

GetMIFComponent ou GetComponent – Extraire le nom du composant

Valide sous UNIX et Windows

GetMIFComponent ou GetComponent extrait le nom du composant d'un fichier .MIF ou Inv existant.

Cette fonction MIF et Inv présente le format suivant :

GetMIFComponent(Filename as string) as string

GetComponent(Filename as string) as string

Nom de fichier

Indique le nom du fichier MIF à partir duquel le composant doit être extrait.

Une fois qu'elle a réussi, la fonction renvoie une chaîne contenant le nom du composant. Dans le cas contraire, elle renvoie une chaîne vide.

Exemple : Fonction GetMIFComponent

Remarque :Vous trouverez le contrôle d'initialisation de l'exemple suivant dans Exemple CreateMIFGroup.

Voici un exemple des fonctions GetMIFComponent, GetMIFInteger, GetMIFString, GetMIFValue et SetMIFValue.

Dim file, gname, aname as string
Dim gid as integer

ClrScr()
file = "h:\test\miffus\file.mif"

Print("Composant de """ + file + """: """ + GetMIFComponent(file) + """")

gname = "Chaînes"
gId = 1
aname = "string_1"
Print(gname + "." + aname + " = " + GetMIFString(file, gname, gId, aname, 1))
aname = "string_2"
Print(gname + "." + aname + " = " + GetMIFValue(file, gname, gId, aname, 2))

if SetMIFValue(file, gname, gId, aname, 2, "Text_new") then
	Print(gname + "." + aname + " = " + GetMIFValue(file, gname, gId, aname, 2))
else
	Print("1. Echec de SetMIFValue.")
	quitter
endif

gname = "Nombres"
gId = 2
aname = "number_1"
Print(gname + "." + aname + " = " + Str(GetMIFInteger(file, gname, gId, aname, 1)))
aname = "number_2"
Print(gname + "." + aname + " = " + GetMIFValue(file, gname, gId, aname, 2))
if SetMIFValue(file, gname, gId, aname, 2, "999999") then

Print(gname + "." + aname + " = " + GetMIFValue(file, gname, gId, aname, 2))
else
	Print("2. Echec de SetMIFValue.")
	quitter
endif