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
Gibt den Namen der MIF-Datei an.
Gibt den Namen der Gruppe an, in der das Attribut gespeichert ist.
Gibt die ID der Gruppe an, in der das Attribut gespeichert ist.
Gibt den Namen des festzulegenden Attributs an.
Gibt die ID des festzulegenden Attributs an.
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
|
Copyright © 2013 CA.
Alle Rechte vorbehalten.
|
|