Desktop Management スクリプト言語 › 関数 › MIF および Inv ファイル関数 › GetMIFInteger - 整数属性値の取得

GetMIFInteger - 整数属性値の取得

UNIX および Windows で有効です。

GetMIFInteger は、MIF ファイルの特定の整数属性の値を取得します。

この MIF および Inv ファイル関数の形式は、以下のとおりです。

GetMIFInteger(Filename as string, GroupName as string, AttrName as string) as integer

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

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

Filename

MIF ファイルのファイル名です。

GroupName

属性が属しているグループの名前を指定します。

GroupID

属性が属しているグループの ID を指定します。

AttrName

値を取得する属性の名前を指定します。

AttrID

値を取得する属性の ID を指定します。

指定された属性が MIF ファイルにある場合、GetMIFInteger はその整数属性の値を返します。それ以外の場合は、0 を返します。

例： GetMIFInteger 関数

以下に、GetMIFComponent、GetMIFInteger、GetMIFString、GetMIFValue、および 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