Das Notes Forum

Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: TMC am 23.02.05 - 21:02:12

Titel: [gelöst] Attachment-Namen umbenennen von 5000 Doks
Beitrag von: TMC am 23.02.05 - 21:02:12

Hi,

Ausgangssituation:
Eine DB mit etwa 5000 Dokumenten. Jedes Dokument hat ein Richtextfeld, in dem sich genau ein Attachment befindet (zu 98% PDF, Rest MS Word).

To Do:
Alle Attachments sollen umbenannt werden. Quelle für den neuen Attachmentnamen ist ein Textfeld im NotesDokument.


Wenn man sowas machen soll, denkt man natürlich: Plain LS geht da einfach nicht. LS-Würgaround wäre, die Attachments auf die Platte zu lösen, umbenennen, und neu anhängen. Allerdings gehen da die Attachment-Symbole dadurch verloren, und es erschein ein graues Symbol, darunter links ausgerichtet der Name.
Und daran stört sich massiv mein Auftraggeber, er erwartet wieder die schönen PDF-Symbole.

Ich habe mir deswegen mal die rtlib.com angesehen, und wir würden natürlich auch 99 EUR für die Lizenz ausgeben, obwohl es eine einmalige Sache ist. Aber soweit ich gesehen habe, gibt es zwar eine AttachmentName-Property einer Attachment-Klasse, aber die ist wohl nur readable  :P

Hat wer von Euch noch eine Idee? NotesAPI? Ich befürchte nur, der Attachmentname ist irgendwie reincodiert, oder gibt es per API eine einigermaßen einfache Möglichkeit?

<Wahnsinn>
Ich habe tatsächlich schon überlegt, ein Windows-Makro-Programm zu verwenden. Das Windows-Makro-Programm wählt das 1. Dok aus, und klickt auf "Detach". Der LS-Code dahinter detached das Attachment, benennt es um, und wirft das bestehende Attachment raus. Nach z.B. 5 Sekunden geht dann das Windows-Makro ins Dokument, hängt das Attachment an und klickt auf "Clean". LS-Code "Clean" löscht die Datei dann auf der Festplatte, übergibt dem Dok noch ein Erledigt-Flag, damit es in einer View nicht mehr erscheint, speichert & schließt das Dok und geht zur Ansicht zurück.
</Wahnsinn>

Matthias

Titel: Re: Attachment-Namen umbenennen von 5000 Doks
Beitrag von: koehlerbv am 23.02.05 - 21:29:37

Auch Midas kann AttachmentNames nicht umbenennen innerhalb eines NotesDocuments. Und Midas nutzt die API schon exzessivst. Womit auch diese sicherlich ausfällt.

Mit der "Wahnsinn"-Methode sehe ich wegen der ggf. gegenläufigen Prozesse auch Schwierigkeiten. Ich befürchte, hier greigt wirklich nur die "brutale" Methode, auch wenn dabei die Attachment-Icons verloren gehen.

Ich würde gerne eine Lösung posten, aber ...

Bernhard

Titel: Re: Attachment-Namen umbenennen von 5000 Doks
Beitrag von: TMC am 23.02.05 - 21:51:50

Schade.
Mit Deinen Bedenken zu der "Wahnsinn-Methode" hast Du natürlich Recht, das kann ziemlich schief laufen.

Ich überlege gerade, ob es nicht evtl. über einen Stunt von LS in Kombination mit Formelsprache geht: Formelsprache (@Command( [EditInsertFileAttachment] ; file ; compress )) in einen Agenten auslagern und von LS aus ausrufen. Ich befürchte aber, dass das nicht so ohne weiteres funktionieren wird (Timing etc.), teste das aber mal.

Titel: Re: Attachment-Namen umbenennen von 5000 Doks
Beitrag von: koehlerbv am 23.02.05 - 22:05:24

@Commands von LS aufrufen - das wird überhaupt nicht lustig, Matthias  ;D

Bernhard

Titel: Re: Attachment-Namen umbenennen von 5000 Doks
Beitrag von: TMC am 23.02.05 - 22:18:46

Stimmt Bernhard, "lustig" ist das nicht, eigentlich nicht möglich  :P

Hab aber gerade gesehen, dass die rtlib die einfache Möglichkeit bietet, Attachment-Symbole auszutauschen  8)

Titel: Re: Attachment-Namen umbenennen von 5000 Doks
Beitrag von: TMC am 23.02.05 - 22:22:02

Ach ja, und Schreiben geht wohl doch mit der RTLib:

Zitat

rtAttachment.FileName

Property Get/Set FileName As String

Man beachte das Set  :)

Dann habe ich jedenfalls hier die Lösung gefunden  :D

Titel: Re: [gelöst] Attachment-Namen umbenennen von 5000 Doks
Beitrag von: koehlerbv am 23.02.05 - 23:12:24

Meine Hochachtung vor Ben wächst  :D

Und ich ärgere mich, dass ich das übersehen habe. Sorry für meine Fehlinformation.

Hältst Du uns weiter auf dem Laufenden ?

Bernhard

Titel: Re: [gelöst] Attachment-Namen umbenennen von 5000 Doks
Beitrag von: TMC am 23.02.05 - 23:21:01

Zitat von: koehlerbv am 23.02.05 - 23:12:24

Meine Hochachtung vor Ben wächst

Ich muss Dich leider korrigieren, hier hat wohl Normunds (rtlib.com) ganze Arbeit geleistet (nicht die Midas von Ben), und ich hatte das übersehen.

Aber ich informiere Euch natürlich dann, ob es reibungslos geklappt hat.
Heute aber nicht mehr, habe keine Lust mehr, das heute noch umzusetzen  ;D

Titel: Re: [gelöst] Attachment-Namen umbenennen von 5000 Doks
Beitrag von: koehlerbv am 23.02.05 - 23:27:34

Noch ein Fauxpas von mir (doppelt - denn ich habe wirklich auch in der Midas-Doku gesucht).

Sich schämend,

Bernhard

PS: Was für Ben Langhinrichs gilt, gilt natürlich gleichermassen für Normunds Kalnbernzins !

Titel: Re: [gelöst] Attachment-Namen umbenennen von 5000 Doks
Beitrag von: TMC am 23.02.05 - 23:35:48

Aber hey, da brauchst Du Dich sicherlich nicht schämen, Bernhard !
Ich hätte gleich vernünftig recherchieren sollen.

Jedenfalls vielen dank für's nachsehen bei Midas.

Wenn es mit RTLib klappt, hat Normunds die 99 EUR sicher, das ist es 101% Wert, auch für eine einmalige Aktion. Ich finde er bietet die rtlib eh eigentlich zu günstig an (Preis / Leistung).

Matthias

Titel: Re: [gelöst] Attachment-Namen umbenennen von 5000 Doks
Beitrag von: TMC am 26.02.05 - 18:31:35

OK, klappt wunderbar mit rtlib.

Und wenn der Text länger ist, wird sogar noch schöner formatiert, als wie es beim manuell erstellten Original-Anhang der Fall ist.

Das hier setzt einen anderen Namen:

Code

rtlib_att.Filename = strAttTitle

Das hier setzt eine Bildressource als Attachment-Symbol:

Code

rtlib_img.ResourceName =  strResourceName
rtlib_img.caption = strAttTitle
Set rtlib_img.Style = New rtStyle(0) 
With rtlib_img.Style
	Set .Font = New rtFontStyle(0) 
	.Font.TypeFace = FONT_FACE
	.Font.FontSize = FONT_SIZE    
End With     
Set rtlib_img.CaptionColor= New rtColor(0) 
rtlib_img.CaptionColor.setRGB 0,0,0