Best Practices > Diskussionen zu Best Practices

[Themenvorschlag] Verwendung der COM Klassen

<< < (2/3) > >>

Axel:

IBM Redbook  -  COM Together - with Domino


Axel

atbits:
Hallo zusammen,

bin gerade über diesen Thread gestolpert, ich kenn auch die Skriptlib mit den OLE-Konstanten aus der Sandbox. Diese sind aber nicht vollständig bzw. noch für Office 97.

Wir haben die bei euns um einige ergänzt und aktualisiert, es sind auch welche für andere Office Applikationen, wie Word, Powerpoint, Project dabei.

Wir haben das auch nicht als Textdatei sondern als SkriptLib innerhalb der DB.

Ich stells hier gerne zur Verfügung:

=========== 8< Schnipp, Schnapp ================
ARGH geht nicht, krieg die Fehlermeldung: Beitrag hat die max. Länge erreicht (40000 Zeichen).

Dann halt doch als File.

m3:
atbits: Ist das nicht sowas wie die Microsoft Constants Database von OpenNTf.org?

atbits:
Gleich mal schauen, kenn ich noch nicht  :-[

Ah kein Wunder ist ja auch relativ neu  ;D

Leider kann man damit ja nicht direkt programmieren, im Prinzip handelt es sich ja erstmal nur um eine Liste der Konstanten. Zugegebenermassen allerdings sehr umfangreich und vollständig wie mir scheint, was echt Klasse ist.

Schick wär natürlich jetzt noch ein Agent der daraus ne Sktipt-Lib macht ;-)
Mal schauen wo ich mir heut noch ne Scheibe Zeit für sowas abschneiden kann.

Grüße David

atbits:
Yepp, dann muss halt der Kunde warten ;-)

Mal ne erste Quick-N-Dirty-Version des Agents:

Ich poste das dann auch mal bei OpenNTF.org


--- Code: ---Sub Initialize
Dim sFile As String
Dim sTxt As String
Dim fileNum As Integer
Dim i As Integer
Dim v As NotesView
Dim s As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim tmp As String

     ' INIT
Set db = s.CurrentDatabase
Set v = db.GetView("vuwConstantsByConstant")
sFile = "C:\oleconst.lss"
fileNum = Freefile()

     ' Datei zum Schreiben öffnen
Open sFile For Output As fileNum

Set doc = v.GetFirstDocument
tmp = ""

     ' Alle Consts aus der View exportieren
While Not doc Is Nothing

' nur wenn neu (keine doppelten Konstanten)
If tmp <> Ucase(doc.conConstant(0)) Then
' Konstanten duerfen nicht mehr als 40 Zeichen haben
If Len(doc.conConstant(0)) < 41 Then
' Konstanten duerfen nicht mit "_" anfangen
If Instr(doc.conConstant(0),"_") <> 1 And _
Ucase(doc.conConstant(0)) <> "GET" And _
Ucase(doc.conConstant(0)) <> "SET" And _
Ucase(doc.conConstant(0)) <> "LET" Then
If Isnumeric(doc.conValue(0)) Then
Print #fileNum , "Public Const " & Ucase(doc.conConstant(0)) & " = " & doc.conValue(0) & " ' " & doc.conApplication(0)
Else
Print #fileNum , "Public Const " & Ucase(doc.conConstant(0)) & " = """ & doc.conValue(0) & """ ' " & doc.conApplication(0)
End If
End If
End If
End If

' Const neu merken
tmp = Ucase(doc.conConstant(0))

' step to next
Set doc = v.GetNextDocument(doc)
Wend

        ' # Die Datei wieder schließen...
Close fileNum
End Sub

--- Ende Code ---

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete