Desktop Management Scripting-Sprache › Funktionen › MIF- und INV-Dateifunktionen › GetMIFComponent oder GetComponent - Abrufen des Komponentennamens

GetMIFComponent oder GetComponent - Abrufen des Komponentennamens

Gültig für UNIX und Windows.

"GetMIFComponent" bzw. "GetComponent" ruft den Komponentennamen einer vorhandenen MIF- oder INV-Datei ab.

Funktionssyntax:

GetMIFComponent(Filename as string) as string

GetComponent(Filename as string) as string

Filename

Gibt den Dateinamen der MIF-Datei an, aus der die Komponente abgerufen wird.

Bei erfolgreichem Abschluss gibt die Funktion eine Zeichenfolge zurück, die den Komponentennamen enthält. Andernfalls wird eine leere Zeichenfolge zurückgegeben.

Beispiel:

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