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

GetMIFString – Extraire la valeur d'un attribut chaîne

Valide sous UNIX et Windows

La fonction GetMIFString extrait la valeur d'un attribut de chaîne spécifique d'un fichier MIF.

Format de la fonction :

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

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

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

Nom de fichier

Indique 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 l'attribut spécifié se trouve dans le fichier MIF, la fonction GetMIFString 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