Inhalte einer View im Script verwenden

[RvM]

Ich habe ein View, in der in den Spalten jeweils duch eine Formel bestimmte Inhalte eines Dokumentes drin stehen. (z.B. "@Left(@RightBack( Lufttemperatur  ; @NewLine);";")")
Diesen Inhalt brauche ich für eine XML-Datei.
Wie kann ich im Script an diese Daten rankommen?

[ascabg]

Hallo,

Gabs da nicht mal die ColumnValues-Property.


Andreas

[DAU-in]

NotesviewEntry class in LotusScript

oder welches Script ist gemeint?

[Spalter]

 

Hallo RvM,

ich nehme mal an, daß Du auf die Feldwerte zugreifen willst?!

Dann mußt Du die Docs zunächst über eine Documentcollection oder der NotesView Klasse an den Haken nehmen und die mit der GetItemValue die Feldwerte rauslesen und ggf. mit string-Funktionen strleft etc. bearbeiten.

Ist es das was Du willst?

Ist natürlich hier ein bißchen grob geschreiben.

Gruß
Spalter

[ascabg]

@Spalter,

Warum willst Du etwas nachbilden, wenn Du an die Werte direkt herankommst.


Andreas

[RvM]

Danke für eure Hilfe. Da diese Ansicht nur ein Dokument beinhaltet, habe ich folgende Lösung gefunden:
   Dim s As New NotesSession
   Dim db As NotesDatabase
   Dim doc As NotesDocument
   Dim view As NotesView
   Dim entry As NotesViewEntry
   Dim nav As NotesViewNavigator
   'Dim Datum As Variant
   
   
   Set db = s.currentDatabase
   Set view = db.GetView( "(XML)" )
   Set nav = view.CreateViewNav()
   Set entry = nav.GetFirst
   'Datum = entry.ColumnValues(0)
   
   Print "Content-type: text/xml"
   Print"<?xml version='1.0' encoding='utf-8'?>"   
   Print "<Wetter>"
   Print "<Datum>"+entry.ColumnValues(0)+"</Datum>"
   Print "<Uhrzeit>"+entry.ColumnValues(1)+"</Uhrzeit>"
   Print "<Temperatur>"+entry.ColumnValues(2)+"</Temperatur>"
   Print "<Luftfeuchte>"+entry.ColumnValues(3)+"</Luftfeuchte>"
   Print "<Luftdruck>"+entry.ColumnValues(4)+"</Luftdruck>"
   Print "<Niederschlag>"+entry.ColumnValues(5)+"</Niederschlag>"
   Print "<Windgeschwindigkeit>"+entry.ColumnValues(6)+"</Windgeschwindigkeit>"
   Print "<Windrichtung>"+entry.ColumnValues(7)+"</Windrichtung>"   
   Print "</Wetter>"
Wobei ich bfolgender Zeile wohl noch mal dran mus:
   Print"<?xml version='1.0' encoding='utf-8'?>"   
Denn sollte eigentlich folgender String rauskommen:
<?xml version="1.0" encoding="utf-8"?>

[RvM]

@Spalter,

Warum willst Du etwas nachbilden, wenn Du an die Werte direkt herankommst.


Andreas

Weil die Werte der einzelnen Felder ein ellenlanger String ist, und ich nur ein Extrakt davon brauche

[Spalter]

 

Ja, da ist nix nachzubilden, sondern zu extrahieren.

Gruß
Spalter

[ascabg]

@RvM
Ja, ist schon klar.

Aber lt. Deiner beschreibung hast Du das doch schon in der Ansicht erledigt.

Und mit

Code

Set doc = view.GetFirstDocument
strTest = doc.ColumnValues(1)

bekommst Du den Wert, der in der zweiten Spalte der Ansicht fuer das betreffende Dokument angezeigt wird ohne vorher den Wert aus dem Item zu lesen und anschliessend die Formatierung wie in der Ansicht vorzunehmen.
(wie Du geschrieben hast mit @Left(...) usw.)


Andreas

[Driri]

Rolf geht doch über die View und den ViewEntry.

Irgendwie redet ihr gerade aneinander vorbei 

[tks]

Wobei ich bfolgender Zeile wohl noch mal dran mus:
   Print"<?xml version='1.0' encoding='utf-8'?>"   
Denn sollte eigentlich folgender String rauskommen:
<?xml version="1.0" encoding="utf-8"?>

Print |<?xml version="1.0" encoding="utf-8"?>|

[RvM]

THX