Das Notes Forum

Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: mariab am 21.08.07 - 10:02:02

Titel: Tausendertrennzeichen und Evaluate
Beitrag von: mariab am 21.08.07 - 10:02:02

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

Titel: Re: Tausendertrennzeichen und Evaluate
Beitrag von: jBubbleBoy am 21.08.07 - 10:09:03

evaluate liefert ein array zurück ;)

bubble

Titel: Re: Tausendertrennzeichen und Evaluate
Beitrag von: Axel am 21.08.07 - 10:15:15

Du kannst auch die Format - Funktion von LotusScript verwenden.


Bsp.:

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


Axel