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.

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

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

Spécifie l'ID de l'attribut dont la valeur doit être extraite. Si la valeur est une chaîne de texte, la chaîne renvoyée contient un point d'interrogation avant et après la chaîne.

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 ; sinon, elle renvoie une chaîne vide.

Exemple : Fonction GetMIFValue

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