Autor Thema: $Comment einer Scriptbibliothek mit Lotusscript auslesen?  (Gelesen 3677 mal)

Offline Frank_B

  • Senior Mitglied
  • ****
  • Beiträge: 275
  • Geschlecht: Männlich
Kann man den Kommentar ($Comment) einer Scriptbibliothel mit Hilfe von Lotusscript auslesen ?

Ich möchte über dieses Feld meine Versionierung meiner Scriptbibliothek hinterlegen
Gruß Frank

Offline koehlerbv

  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 20.460
  • Geschlecht: Männlich
Re: $Comment einer Scriptbibliothek mit Lotusscript auslesen?
« Antwort #1 am: 11.03.16 - 14:34:25 »
Ja, ohne weiteres: Jedes Notes Designelement ist nichts anderes als ein NotesDocument mit Items.

Bernhard

Offline Frank_B

  • Senior Mitglied
  • ****
  • Beiträge: 275
  • Geschlecht: Männlich
Re: $Comment einer Scriptbibliothek mit Lotusscript auslesen?
« Antwort #2 am: 23.03.16 - 08:25:18 »
Ich glaub ich kriege das nicht hin :)

Ich habe in meiner Scriptbibliothek im initalize es selbst als uidoc deklariert und versuche dann so auszulesen:

...
uidoc.document.comment(0)
...

Leider schlägt das fehl.

bin ich da an der falschen Stelle ?
Gruß Frank

Offline jBubbleBoy

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 1.277
  • Geschlecht: Männlich
Re: $Comment einer Scriptbibliothek mit Lotusscript auslesen?
« Antwort #3 am: 23.03.16 - 08:48:40 »
Schau dir mal die Klasse "NotesNoteCollection" an.

Code
Dim nnc As NotesNoteCollection
nnc.Selectscriptlibraries = true
« Letzte Änderung: 23.03.16 - 08:53:44 von jBubbleBoy »
Gruss Erik :: Freelancer :: Notes, Java, Web, VBA und DomNav 2.5 / NSE 0.16
--
Nur ein toter Bug, ist ein guter Bug!

Offline ERR

  • Frischling
  • *
  • Beiträge: 46
  • Geschlecht: Männlich
Re: $Comment einer Scriptbibliothek mit Lotusscript auslesen?
« Antwort #4 am: 23.03.16 - 12:28:30 »
Das Feld hat den Namen "$Comment", deshalb dann mit "~" ergänzen.

Versuch mal folgendes:

Code
uidoc.document.~$Comment(0)

Wobei ich nicht sicher bin, wie du über uidoc.document an die Scriptbibliothek dran kommst...

Wie jBubbleBoy schreibt kannst du es so lösen:

Code
Dim nc As NotesNoteCollection
	
Set nc = db.CreateNoteCollection(False)
nc.Selectscriptlibraries = True
nc.SelectionFormula = {$Title = "Name der Scriptbibliothek"}
Call nc.Buildcollection()
	
If nc.Count > 0 Then
	Set doc = db.Getdocumentbyid(nc.Getfirstnoteid())
End If

Dim Comment As String
Comment = doc.~$Comment(0)

MFG
ERR
« Letzte Änderung: 23.03.16 - 12:45:19 von ERR »

 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz