INECO Forum Overzicht Overzicht Aanmelden Aanmelden Registreer Registreer Profiel Profiel Ledenlijst Ledenlijst Groepen Groepen Zoeken Zoeken

Bewaren van een bestand
 
 
 
 
 Geplaatst   Bericht 
charlie

Anoniem
 

Aanmelddatum: 19-03-2009
Woonplaats:
Datum: 25-03-2009 12:31:57    Bericht: Bewaren van een bestand

Hello,

Via "@Command([FileExport]" bewaar ik een bestand op de harde schijf.

Welke commando's zijn er hiervoor in "LotusScript"?

 

Alvast bedankt

 

 

Charlie

 

 

 E-mail 
Marcel Rothuizen

Marcel Rothuizen
 

Aanmelddatum: 10-11-2000
Woonplaats: Heteren (Gld)
Datum: 25-03-2009 16:26:43    Bericht: Bewaren van een bestand

Er is helaas geen Lotusscript versie van @FileExport.

Je kunt met Lotusscript redelijk eenvoudig data exporteren naar andere formaten zoals tekst, Office applicaties, Symphony of DXML e.d, maar niet met 1 enkel commando.
Er staan wat voorbeelden in de Designer Help of op http://wwww.notes.net 

Eventueel kan ik je een voorbeeld geven als je aangeeft wat je wilt exporteren en naar welk formaat.

 

 

 E-mail Website ICQ MSNM Skype Hyves LinkedIn 
charlie

Anoniem
 

Aanmelddatum: 19-03-2009
Woonplaats:
Datum: 26-03-2009 10:21:40    Bericht: Bewaren van een bestand

Aan Marcel,

 

 

Ik heb snel een voorbeeld aangemaakt 

 

Hoe kan ik een bestand bijvoegen? 

 

 

Bedankt

 

Charlie

 

 E-mail 
Marcel Rothuizen

Marcel Rothuizen
 

Aanmelddatum: 10-11-2000
Woonplaats: Heteren (Gld)
Datum: 26-03-2009 21:42:32    Bericht: Bewaren van een bestand

Bestanden toevoegen heb ik niet aan staan op dit forum.

Stuur anders maar per mail naar info@ineco.nl dan kijk ik er naar...

 E-mail Website ICQ MSNM Skype Hyves LinkedIn 
Marcel Rothuizen

Marcel Rothuizen
 

Aanmelddatum: 10-11-2000
Woonplaats: Heteren (Gld)
Datum: 31-03-2009 08:49:21    Bericht: Voorbeeld

Charlie, ik heb je een voorbeeld terug gemaild, maar voor de zekerheid plaats ik de code nog even hier:

Sub Click(Source As Button)
 On Error Goto ErrorHandler
 Dim ws As New NotesUIWorkspace
 Dim session As New NotesSession
 Dim db As NotesDatabase
 Dim dc As NotesDocumentCollection
 Dim doc As NotesDocument
 Dim entry As NotesViewEntry
 Dim vc As NotesViewEntryCollection
 Dim View As NotesView
 Dim UiView As NotesUIView
 Dim tmp As String
 Const deli = ","
 
 Set db = session.CurrentDatabase
 Set dc = db.UnprocessedDocuments
 Set uiView = ws.CurrentView
 Set View = uiView.View
 
 If dc.Count = 0 Then Exit Sub
 
 filenames = ws.SaveFileDialog(False,"File name","Comma separated value|*.CSV", "c:\", "testexport.csv")
 If Isempty(filenames) Then Exit Sub
 Set vc = View.allEntries
 
 fileNum% = Freefile()
 Open filenames(0) For Output As fileNum%
 Set doc = dc.GetFirstDocument
 Do Until Doc Is Nothing
  Set entry = vc.GetEntry(Doc)
  tmp$ = ""
  Forall i In Entry.ColumnValues
   tmp$ = tmp$ & deli & Cstr(i)
  End Forall
  Print #fileNum%, Strright(tmp$,deli)
  
  Set Doc = dc.GetNextDocument(Doc)
 Loop
 Close fileNum%
 Exit Sub
 
ErrorHandler:
 Msgbox Error & " (" & Err & ") op regel " & Erl
 Exit Sub
 Resume Next
End Sub

Dit is slechts een snel gemaakt voorbeeld, natuurlijk kan dit veel beter en mooier.

 E-mail Website ICQ MSNM Skype Hyves LinkedIn 
Zoek in afgelopen ok
 
   Overzicht / Lotus Notes Ontwikkeling / Lotusscript  
Pagina 1 van 1 

IBM LOTUS NOTES migratie doet u samen met INECO

Powered by Lotus Domino R8.5.3 on Fedora Core 14 Dit  forum is gemaakt door Intranet &  Network Consultancy. © 2011.
Voor vragen of opmerkingen  kunt u contact opnemen met:  .
Deze site is gemaakt met Lotus Notes R8.5.3 en draait op Fedora Core 14.

INECO Support Contract banner