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
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