Desktop Management スクリプト言語 › 関数 › MIF および Inv ファイル関数 › GetMIFComponent または GetComponent - コンポーネント名の取得

GetMIFComponent または GetComponent - コンポーネント名の取得

UNIX および Windows で有効です。

GetMIFComponent または GetComponent は、既存の .MIF または Inv ファイルのコンポーネント名を取得します。

関数の形式

GetMIFComponent(Filename as string) as string

GetComponent(Filename as string) as string

Filename

コンポーネントを取得する MIF ファイルの名前を指定します。

この関数が正常に完了すると、コンポーネント名を含む文字列が返されます。それ以外の場合は、空の文字列が返されます。

例：

以下に、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