Domino 9 und frühere Versionen > ND6: Entwicklung

Filenamen aus Notes vor einlesen ändern

<< < (3/4) > >>

Glombi:
Es muss so heissen:

Const strFormula = |@ReplaceSubstring(@URLEncode("UTF-8";"| + filename + |");"%";""))|

Andreas
P.S.: Möge mir Bernhard die "+" verzeichen  ;)

RvM:
 ???
"Not a constant:FILENAME"
Muss ich da noch evtl. irgendetwas dimensionieren?

animate:
Du kannst vermutlich in einer Konstanten keine Variable verwenden, sonst wärs ja keine Konstante mehr. Wenn du strFormula als gewöhnlichen String deklarierst wirds wahrscheinlich funktionieren.

koehlerbv:
Thomas hat vollkommen Recht: In Constants (wozu an dieser Stelle auch?) sind Variablen prinzipiell nicht erlaubt.

@Glombi: Das "+" für Strings ist für mich wie (Extrem-)Fliegen ohne Schleudersitz, Fahren ohne Sicherheitsgurt, (aktuell) das Dach vom Schnee räumen ohne Leine. Es passiert fast nie was, aber wenn dann doch, beisst man sich vorher nochmal in den Allerwertesten, aber ... Es tut einfach nicht not. Und die Nebenwirkungen sind bekannt.

Bernhard

RvM:
Dank eure Hilfe bin ich schon weiter.
Nun aber kommt das nächste Problem. Beim Umbennen des Files erhalte ich ein "File not Found".
Das Script sieht (auszugsweise) wie folgt aus:
Dim session As New NotesSession
   Dim eval As Variant
   Dim vc As NotesViewEntryCollection
   Dim db As NotesDatabase
   Dim boxType As Long, answer As Integer
   Dim workspace As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Dim doc As NotesDocument
   Dim rtitem As NotesRichTextItem
   Dim object As NotesEmbeddedObject
   Dim pdfname As String
   Dim filename As String
   Dim twoLiner As String
   Dim item As NotesItem
   Dim folder As String
   Dim view As NotesView
   Dim varResult As Variant
   Dim strFormula As String
   Dim NewName As String
...

   folder = BrowseFolder ("")
   pathName$ = folder+"\*.pdf"
   fileName$ = Dir$(pathName$, 0)
   Do While fileName$ <>""
      filename = filename$
      PDFname =folder+"\"+fileName$
       'Formelanweisungen als Kontante festlegen
      strFormula = |@ReplaceSubstring("|+filename+|";"%";"")|
      varResult = Evaluate(strFormula)
      NewName$ = VarResult(0)
      Name filename As NewName


.. und beim Name-Aufruf haperts dann.
Kann ich nochmals auf die Hilfer der Scripter rechnen?

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete