Domino 9 und frühere Versionen > ND6: Entwicklung

XML von Grund auf mit Lotusscript erstellen

<< < (2/4) > >>

botschi:
Ja, das geht auch. Du musst halt jeden Knotenpunkt selber setzen. Der Debugger wird Dich die nächsten Tage begleiten...

Das wird kein Spaß, wenn Du damit noch nicht viel gemacht hast.

Aus was willst Du das XML denn erstellen? Also was ist Deine Quelle? Ne ganze DB? Man kann sich aus dem Designer heraus eine ganze DB als XML ausgeben lassen, aber frag mich nicht mehr wie und wo...


Matthias

Fedaykin:
Hallo Matthias

Eben geht es leider im Moment noch nicht und weiss nicht wie machen. Und glaub mir die meisten Propertys von einer View rauszufummeln wird auch nicht zu Deinen Hobbies gehören. Aber kenne jemanden der schon sowas gemacht hat.  ;D Kann hier aber keine Datei reinhängen und glaub mir die Scriptlib ist nicht gerade winzig. (Klasse für View, Actionbar, ActionButtonStyle, Column, Action).


Gruss
Remo

Fedaykin:
Diese ruf ich dann so auf.

Sub Initialize
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim objMyColumn As MyColumn
   Dim objMyView As MyView
   Dim objMyAction As MyAction
   
   Set db=session.CurrentDatabase
   
   Set objMyView=New MyView
   objMyView.ViewName="MyView"
   objMyView.ViewAlias="vwMyView"
   objMyView.ViewComment="Kommentar"
   objMyView.RowSpacing=1.5
   objMyView.BGColor="red"
   objMyView.HeaderBGColor="blue"
   objMyView.GridColor="green"
   objMyView.HeaderlineCount=2
   objMyView.RowlineCount=9
   objMyView.ShrinkRows=True
   objMyView.GridStyle=3
   objMyView.Headers=2
   objMyView.AltRowColor="yellow"
   objMyView.ExtendLastColumn=True
   objMyView.colorizeicons=True
   objMyView.unreadcolor="green"
   objMyView.totalscolor="red"
   objMyView.boldunreadrows=True
   objMyView.colorizeicons=True
   objMyView.allowcustomizations=True
   objMyView.hidemarginborder=True
   objMyView.transparentunreadrows=True
   objMyView.marginwidth="1px"
   objMyView.marginbgcolor="purple"
   objMyView.noemptycategories=True
   objMyView.showmargin=True
   
   Set objMyColumn=New MyColumn
   objMyColumn.ColumnHeader.Title="Erstellt"   
   objMyColumn.Categorized=False
   objMyColumn.Sort=2
   objMyColumn.ReSort=3
   objMyColumn.Formula="@Created"
   
   Set objMyAction=New MyAction
   objMyAction.Title="Erstellen"
   objMyAction.Click="@Command([Compose])"
   
   objMyView.AddColumn objMyColumn
   objMyView.AddAction objMyAction
   objMyView.Create db   
End Sub

Kann nach Feierabend ScriptLib auch reinhängen.

botschi:
Ich habs noch nicht richtig geschnallt...

Du hast eine View als Quelle und willst Dir eine XML-Datei erstellen?
Dann kannst Du Dir doch "einfach" den String zusammenschustern und mit Zeilenumbrüchen und Einrückungen arbeiten...

Da brauchst Du kein XML-Parser oder sowas für- bin ich der Meinung...

Matthias

Fedaykin:
Hi Matthias

Also ich habe eine ScriptLib. In dieser Klassen zum erstellen einer vollwertigen Ansicht. Diese fülle ich dann mit LotusScript ab und sag bau mir Ansicht. Das funktioniert alles. Aber solcher Code

   Function XML As String
      XML={<column }
      XML=XML & {itemname="} & mstrItemName & {" }
      XML=XML & {width="} & mstrWidth & {" }
      XML=XML & {categorized="} & mstrCategorized & {" }
      XML=XML & {sort="} & mstrSort & {" }
      XML=XML & {resort="} & mstrReSort & {" }
      XML=XML & {>}
      XML=XML & ColumnHeader.XML
      XML=XML & mobjCodeValue.XML
      XML=XML & {</column>}
   End Function

ist nicht wirklich schön. Da dachte ich mir kann vielleicht ein NotesDOMDocument abfüllen und mir daraus dann XML zaubern das ich verwende um dann als neue Ansicht zu importieren. Nur irgendwie komme ich da nicht weiter. Hoffe nun alles klar.

Gruss
Remo

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete