Seite 1 von 1

Register: Abfage ob gesperrt

Verfasst: 17. Apr 2014 21:04
von wazlaf
Kann ich per Script abfragen ob ein Register gesperrt ist?

Folgendes Beispiel klappt bei mir leider nicht.

Code: Alles auswählen

@language vbscript

Function OnClick(ByRef ClickData)
	Dim tab
	Set tab = ClickData.Func.Command.SourceTab
	
	Dim DopusCmd
	Set DopusCmd = DOpus.CreateCommand
		
	DopusCmd.SetSourceTab(tab)
	If DopusCmd.IsSet("TABLOCK=lockchanges") Then
		MsgBox("gesperrt")
	Else
		MsgBox("nicht gesperrt")
	End If
End Function
Danke

Frendliche Grüße
wazlaf

Re: Register: Abfage ob gesperrt

Verfasst: 17. Apr 2014 22:46
von Kundal
Das kann so gar nicht funktionieren, weil das Argument TABLOCK mit IsSet nicht geprüft werden kann. Mit IsSet kannst du nur prüfen, was mit dem Befehl Set gesetzt wurde. TABLOCK ist aber ein Argument des Go-Befehls.
Wenn du das prüfen willst müsstest du in dem Schalter, der den Tablock ein/ausschaltet eine Variable setzen, deren Vorhandensein du im Script prüfen kannst:

Code: Alles auswählen

@ifset:$src:tblck
@set src:tblck
Go TABLOCK=Off
@ifset:else
Go TABLOCK=lockchanges
@set src:tblck=1

Re: Register: Abfage ob gesperrt

Verfasst: 18. Apr 2014 20:18
von wazlaf
Vielen Dank für den Tipp.
Das mit den Variablen geht ja sogar pro Register. (Dann hätte ich mir eigentlich den Umweg über ein Textfile sparen können.)

Man lernt halt nie aus. Habe wohl mit IsSet etwas zu kurz gedacht so in der Art Prüfe ob eine Sperre gesetzt ist
Analog dem Beispiel in der Hilfe:

Code: Alles auswählen

If objCmd.IsSet("VIEW=Thumbnails") Then
	objCmd.RunCommand("Set SORTBY=modified")
Else
	objCmd.RunCommand("Set SORTBY=name")
End If
Aber View ist ja ein Set Befehl und kein Go Befehl.

Vielen Dank

Freundliche Grüße
wazlaf

Re: Register: Abfage ob gesperrt

Verfasst: 18. Apr 2014 23:24
von Kundal
Schön, dass du dich an der neuen Scripting-Funktion versuchst. Wenn du eine neue Version deines Scripts posten willst, solltest du das nicht in dem alten "Neulingsfragen"-Beitrag tun, sondern in der Sparte Directory Opus Scripting-Beispiele ab V11. Da wird es von anderen Forumsmitgliedern besser gefunden.