UNIX および Windows で有効です。
GetMIFString 関数は、MIF ファイルの特定の文字列属性の値を取得します。
関数の形式
GetMIFString(Filename as string, GroupName as string, AttrName as string) as string
GetMIFString(Filename as string, GroupID as integer, AttrID as integer) as string
GetMIFString(Filename as string, GroupName as string, GroupID as integer, AttrName as string, AttrID as integer) as string
MIF ファイル名を指定します。
属性が属しているグループの名前を指定します。
属性が属しているグループの ID を指定します。
値を取得する属性の名前を指定します。
値を取得する属性の ID を指定します。
指定された属性が MIF ファイルにある場合、GetMIFString はその属性値を表す文字列を返します。それ以外の場合は、空の文字列を返します。
例:
以下に、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
|
Copyright © 2014 CA Technologies.
All rights reserved.
|
|