• Anonymous
  • Login
  • Register



Microsoft Constants Database - Feature Request: Agent SaveFile


I have written an Agent to include into your Database, please feel free to insert and/or modify it.

It saves the constants in an File oleconst.lss to inlude in any notes-database

kind regards David Schiffer

------------------------------------------------------------------------
David Schiffer
Dipl.-Ing. (FH)

atBits GmbH & Co. KG
Fallenbrunnen 3 / 1
D-88045 Friedrichshafen

fon: +49 (0)75 41 / 378 66 - 02 - fax: +49 (0)75 41 / 322 20
mailto:schiffer@atbits.de - http://www.atbits.de
------------------------------------------------------------------------
- Groupware - eBusiness - Workflow -
------------------------------------------------------------------------
atBits GmbH & Co. KG, Fallenbrunnen 3/1, D-88045 Friedrichshafen
Registergericht Ulm HRA 720387
Pers. haftende Gesellschafterin: atBitsVerwaltungs-GmbH
Sitz: Friedrichshafen - Registergericht Ulm HRB 720748
Geschäftsführer: Sonja Meyer-Schenk, Frank Schmidt, David Schiffer
------------------------------------------------------------------------
- http://www.openbc.com/hp/David_Schiffer/
- http://atbits.open-business-network.com
- Anfahrt: http://mail.map24.com/atbits



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



Taken Actions by Owners

No actions have been taken yet.


In this field you can enter the actual request.

You can use the rich text editor for rich text formating. You can also enter HTML to embed objects, e.g. to embed a YouTube video or a screenshot of the project. In this case use '[' and ']' to mark the passthrough HTML as such.

Please note that the first time you use the new UI your description is converted from rich text to MIME. You might want to copy and paste the raw plain text from the old UI in the new UI so that you don't loose information.
In this field owners can describe what they have done or want to do.

You can use the rich text editor for rich text formating. You can also enter HTML to embed objects, e.g. to embed a YouTube video or a screenshot of the project. In this case use '[' and ']' to mark the passthrough HTML as such.

Please note that the first time you use the new UI your description is converted from rich text to MIME. You might want to copy and paste the raw plain text from the old UI in the new UI so that you don't loose information.