Gültig für UNIX und Windows.
Die Funktion "GetMIFValue" ruft den Wert eines bestimmten Attributs aus einer MIF-Datei ab.
Diese MIF- und INV-Dateifunktion hat das folgende Format:
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
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 Attributs an, von dem der Wert abgerufen wird.
Gibt die ID des Attributs an, dessen Wert abgerufen wird. Wenn der Wert eine Textzeichenfolge ist, wird die zurückgegebene Zeichenfolge in Anführungszeichen eingeschlossen.
Wenn das angegebene Attribut in der MIF-Datei gefunden wird, gibt "GetMIFValue" den Wert des Attributs in Form einer Zeichenfolge zurück, andernfalls wird eine leere Zeichenfolge zurückgegeben.
Beispiel: Funktion "GetMIFValue"
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.
|
|