SoftTree Technologies SoftTree Technologies
Technical Support Forums
RegisterSearchFAQMemberlistUsergroupsLog in
Exporting using Script

 
Reply to topic    SoftTree Technologies Forum Index » 24x7 Scheduler, Event Server, Automation Suite View previous topic
View next topic
Exporting using Script
Author Message
Carl Taucer



Joined: 29 Jun 2000
Posts: 1

Post Exporting using Script Reply with quote

Problem:
I need to export the contents of the Notes Log out to an ASCII text file. I have written the code below which will export the events in any of the Notes log views I select without a drama.
The problem is that using a Variant I am restricted to 32K . This effectively causes a portion of the event not to be exported.
If I select 2 3 or 10 items it will work fine except for that size limitation.

Is there anything I can do to work around this ?

Is there another way to export the Logs contents ?

I really need to be able to export all the selected data

Sub Initialize

Dim session As New NotesSession

Dim db As NotesDatabase

Dim view As NotesView

Dim doc As NotesDocument

Dim collection As notesdocumentcollection

Set db=session.CurrentDatabase

Set collection = db.unprocesseddocuments

If Dir$( "c:\logs\dummy") "" Then

Kill "c:\logs\dummy"

End If

Open "c:\logs\dummy" For Output As #1

For i = 1 To collection.count

Set doc = collection.getnthdocument(i)

Print #1 , Cstr(Doc.getitemvalue("Events")(0))

'Messagebox Cstr(tmp(0))

Next

Close #1
End Sub

Thu Jun 29, 2000 3:09 am View user's profile Send private message
SysOp
Site Admin


Joined: 26 Nov 2006
Posts: 7839

Post Re: Exporting using Script Reply with quote

Sorry, this Web board is dedicated for the 24x7 Scheduler support only. For specific VB or Lotus Notes questions please contact Microsoft (www.microsoft.com/support/) or Lotus Development (www.lotus.com/support/) tech. support

PS. Just my thought, why don't implement this script in native Lotus environment using Lotus Script then simply call such script from VB?

: Problem: I need to export the contents of the Notes Log out to an ASCII text
: file. I have written the code below which will export the events in any of
: the Notes log views I select without a drama.
: The problem is that using a Variant I am restricted to 32K . This effectively
: causes a portion of the event not to be exported.
: If I select 2 3 or 10 items it will work fine except for that size
: limitation.

: Is there anything I can do to work around this ?

: Is there another way to export the Logs contents ?

: I really need to be able to export all the selected data

: Sub Initialize

: Dim session As New NotesSession

: Dim db As NotesDatabase

: Dim view As NotesView

: Dim doc As NotesDocument

: Dim collection As notesdocumentcollection

: Set db=session.CurrentDatabase

: Set collection = db.unprocesseddocuments

: If Dir$( "c:\logs\dummy") "" Then

: Kill "c:\logs\dummy"

: End If

: Open "c:\logs\dummy" For Output As #1

: For i = 1 To collection.count

: Set doc = collection.getnthdocument(i)

: Print #1 , Cstr(Doc.getitemvalue("Events")(0))

: 'Messagebox Cstr(tmp(0))

: Next

: Close #1
: End Sub

Thu Jun 29, 2000 11:10 am View user's profile Send private message
Display posts from previous:    
Reply to topic    SoftTree Technologies Forum Index » 24x7 Scheduler, Event Server, Automation Suite All times are GMT - 4 Hours
Page 1 of 1

 
Jump to: 
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


 

 

Powered by phpBB © 2001, 2005 phpBB Group
Design by Freestyle XL / Flowers Online.