Das Notes Forum

Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: bikerboy am 24.01.07 - 17:20:25

Titel: Probleme beim Loggen
Beitrag von: bikerboy am 24.01.07 - 17:20:25
Guten Abend verehrte Gemeinde;

ich stehe hier gerade vor einer Neuen Herrausforderung die ich mit @Functions ganz leicht lösen könnte sie mir aber bei Script Probleme bereitet.

Ich möchte in einer For-Schleife am Ende etwas "loggen", dazu erstelle ich ein Dokument und in jedem Durchgang soll er mir einen Satz widmen. Dazu baue ich einen String zusammen, das funktioniert auch, alles. Ich bin mittlerweile sogar soweit , dass ich alles geloggt bekomme, aber trennt es mir nicht. Ich hätte gerne nach jedem Satz eine neue Zeile. Mit @Functions wäre das ganze Simpel @newline aber es gibt keien passende language across reference dazu. Ein bisschen blöd und ein Evaluate funzt leider auch nicht. Ich hoffe ihr könnte mir weiter helfen.

Zum besseren Verständnis gebe ich euch mal den String :

Code
newString = value &  " ; "    & strStatus

an der Stelle wo nun das ";" würde ich einfach gerne eine neue Zeile einfügen.

Ist bestimmt so einfach, dass ich den Wald vor lauter Bäumen nicht sehe
Titel: Re: Probleme beim Loggen
Beitrag von: bikerboy am 24.01.07 - 17:49:48
Gelöst
Titel: Re: Probleme beim Loggen
Beitrag von: MadMetzger am 24.01.07 - 20:28:07
Lass uns doch alle an deiner Lösung teilhaben, falls jemand anderes mal hier im Forum nach einem ähnlichen Problem sucht...
Titel: Re: Probleme beim Loggen
Beitrag von: bikerboy am 25.01.07 - 08:37:59
Also in der Schleife habe ich folgendes gemacht :

Code
			Timecomplete = (endTime - startTime) * 100000
			strStatus =  "Benötigte Zeit : " & Cstr(Timecomplete) & " sek, bei Datensatz : " & Cstr(i) & " mit der ID : " & Cstr( docCol.NoteID)
			value = logDoc.GetItemValue("value")(0)
			newString =  value &  " ; "   & strStatus
			Call logDoc.ReplaceItemValue("value",newString)
			Call logDoc.Save(True,True)


und wenn ich die schleife verlasse habe führe ich noch folgende Befehle aus:

Code
	var =  Split(logDoc.GetItemValue("value")(0), ";")
	Call logDoc.ReplaceItemValue("value", var) 
	Call logDoc.Save(True,True)



deklariert ist das ganze wie folgt :

Code
Dim var As Variant
Dim value As Variant
Dim strStatus As String
Dim newString As String
Dim startTime  As Variant
Dim endTime As Variant
Dim Timecomplete As Variant

kann man vllt noch kürzer ausdrücken aber ich bin erstmal froh , dass es so passt