Domino 9 und frühere Versionen > ND6: Entwicklung

Tausendertrennzeichen und Evaluate

(1/1)

mariab:
Hallo,

eine Schaltfläche in einer Maske liefert den Dateinamen und die Größe im folgendem Format:
Bild.gif (1200 Bytes)
Nun möchte ich ein Tausendertrennzeichen einführen, sodass das Format folgendes ist:
Bild.gif (1.200 Bytes)

In der Formelsprache dient dazu die Funktion @Text(Feldname,",")
Habe nun versucht dies in Lotusscript zu verwenden, erhalte aber eine Type Mismatch Fehlermeldung


--- Code: ---Sub Click(Source As Button)
Dim s As New NotesSession
Dim db As NotesDatabase
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim rt As NotesRichTextItem
Dim item As NotesItem

Set uidoc = ws.CurrentDocument
Set doc = uidoc.Document
Set rt = doc.GetFirstItem( "D_Doku" )

Call ws.EditDocument( True ) 'Um das Dokument im Edit Mode zu öffnen
If rt Is Nothing Then
Msgbox "Kein Dateianhang vorhanden. Speichern Sie gegebenenfalls das Dokument"
Exit Sub
End If

idx = 0
Forall o In rt.EmbeddedObjects
Redim Preserve strDateiInfo(idx)
' Zeile in der das Problem lliegt
strDateiInfo(idx) = o.Name & " (" & Cstr(Evaluate({@Text(} & o.Filesize & {;",")})) & " Bytes)"
idx = idx + 1
End Forall

doc.D_Info = strDateiInfo

End Sub
--- Ende Code ---

jBubbleBoy:
evaluate liefert ein array zurück ;)

bubble

Axel:
Du kannst auch die Format - Funktion von LotusScript verwenden.


Bsp.:

strDateiInfo(idx) = o.Name & " (" & Format(o.Filesize, "#,##0") & " Bytes)"


Axel

Navigation

[0] Themen-Index