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.

Diese MIF- und INV-Dateifunktion hat das folgende Format:

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: Funktion "GetMIFComponent"

Hinweis: Die Initialisierungssteuerung für das folgende Beispiel finden Sie im Beispiel der Funktion "CreateMIFGroup".

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