Manuel du langage de script Desktop Management › Fonctions › Fonctions de fichiers MIF et Inv › GetMIFValue – Extraire la valeur d'un attribut

GetMIFValue – Extraire la valeur d'un attribut

Valide sous UNIX et Windows

La fonction GetMIFValue extrait la valeur d'un attribut spécifique d'un fichier MIF.

Format de la fonction :

GetMIFValue(Filename as string, GroupName as string, AttrName as string) as string

GetMIFValue(Filename as string, GroupID as integer, AttrID as integer) as string

GetMIFValue(Filename as string, GroupName as string, GroupID as integer, AttrName as string, AttrID as integer) as string

Nom de fichier

Identifie le nom du fichier MIF.

GroupName

Indique le nom du groupe dans lequel se trouve l'attribut.

GroupID

Indique l'ID du groupe dans lequel se trouve l'attribut.

AttrName

Indique le nom de l'attribut à partir duquel la valeur doit être extraite.

AttrID

Indique l'ID de l'attribut à partir duquel extraire la valeur. Si la valeur est une chaîne de texte, la chaîne renvoyée inclut un guillemet au début et à la fin.

Si l'attribut spécifié se trouve dans le fichier MIF, la fonction GetMIFValue renvoie une chaîne représentant la valeur de l'attribut. 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