Manuel du 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.

Format de la fonction :

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.

En cas de réussite, la fonction renvoie une chaîne contenant le nom du composant. Dans le cas contraire, elle renvoie une chaîne vide.

Exemple :

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