Langage de script Desktop Management › Fonctions › Fonctions de fichiers MIF et Inv › SetMIFValue – Changer la valeur de l'attribut

SetMIFValue – Changer la valeur de l'attribut

Valide sous UNIX et Windows

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

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

SetMIFValue(Filename as string, GroupName as string, AttrName as string, Value as string) as Boolean

SetMIFValue(Filename as string, GroupID as integer, AttrID as integer, Value as string) as Boolean

SetMIFValue(Filename as string, GroupName as string, GroupID as integer, AttrName as string, AttrID as integer, Value as string) as Boolean

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

Spécifie le nom de l'attribut à définir.

AttrID

Indique l'ID de l'attribut à définir.

Valeur

Indique la valeur à définir pour l'attribut dans le fichier MIF.

Pour affecter un nouveau nombre entier au code d'attribut d'entier :

- value="123456"

Pour affecter une nouvelle chaîne, elle doit être mise entre des guillemets supplémentaires. Sinon, la fonction MIF suivante risque de produire des résultats inattendus :

- value="""123456"""

Si l'attribut spécifié se trouve dans le fichier MIF, sa valeur est modifiée et la fonction SetMIFValue renvoie True. Sinon, elle renvoie False.

Exemple : Fonction SetMIFValue

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