Vorheriges Thema: SetLocalPath - Kopieren einer Zeichenfolge in das Feld für lokale Pfade für UAM-JobsNächstes Thema: Verschiedene Funktionen


SetMIFValue - Ändern des Attributwertes

Gültig für UNIX und Windows.

Die Funktion "SetMIFValue" ändert den Wert eines bestimmten Attributs in einer MIF-Datei.

Diese MIF- und INV-Dateifunktion hat das folgende Format:

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
Filename

Gibt den Namen der MIF-Datei an.

GroupName

Gibt den Namen der Gruppe an, in der das Attribut gespeichert ist.

GroupID

Gibt die ID der Gruppe an, in der das Attribut gespeichert ist.

AttrName

Gibt den Namen des festzulegenden Attributs an.

AttrID

Gibt die ID des festzulegenden Attributs an.

Wert

Gibt den Wert an, auf den das Attribut in der MIF-Datei gesetzt wird.

So weisen Sie einem ganzzahligen Attribut-Code eine neue Ganzzahl zu:

- value="123456"

Wenn Sie eine neue Zeichenfolge zuweisen möchten, muss diese in zusätzliche Anführungszeichen gesetzt werden. Andernfalls können nachfolgende MIF-Funktionen zu unerwarteten Ergebnissen führen.

- value="""123456"""

Wenn das angegebene Attribut in der MIF-Datei gefunden wird, wird sein Wert geändert, und "SetMIFValue" gibt TRUE zurück. Andernfalls wird FALSE zurückgegeben.

Beispiel: Funktion "SetMIFValue"

Dies ist ein Beispiel für die Funktionen "GetMIFComponent", "GetMIFInteger", "GetMIFString", "GetMIFValue" und "SetMIFValue".

Dim file, gname, aname as string
Dim gid as integer

ClrScr()
file = "h:\test\miffus\file.mif"

Print("Component of """ + file + """: """ + GetMIFComponent(file) + """")

gname = "Strings"
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. SetMIFValue failed.")
	exit
endif

gname = "Numbers"
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. SetMIFValue failed.")
	exit

endif