Dialog Datei öffnen bzw. Datei speichern

[Sandra St.]

Hallo zusammen,

bin neu hier im Forum und muss für Lotus 1-2-3 ein plugin programmieren. Leider sind dafür fast keine Dokumente mehr zu finden. Aber die Skriptsprache ist die gleiche, nämlich LotusScript. Deshalb versuch ichs mal hier.

Und zwar bin ich z.B. gerade dabei, einen Weg zu finden, wie man einen Dialog zum "Datei durchsuchen bzw. Datei speichern" öffnen kann. Dies ist auch als Anhang beigefügt.

Grüsse,
Sandra

[Axel]

In Notes kannst gibt's dafür in der Klasse NotesUIWorkspace die Methode SaveFileDialog. Ob es das auch für 1-2-3 gibt kann ich dir nicht sagen.


Axel

[Sandra St.]

Hi,

also unter 'http://www.atnotes.de/index.php?topic=19919.0' stand die erläuterung zu diesem Problem, das ich folgendermaßen umgesetzt hab.

Declare Function NEMPutFile Lib "nnotesws" ( wHandle As Integer, Byval szFileName As String, Byval szFilter As String, Byval szTitle As String ) As Integer

Sub Click(Source As Lotuscommandbutton)
   
   Dim szFileName As String*256
   Dim szTitle As String
   Dim szFilter As String
   
'Needs to be a NULL before calling the function
   szFilename = Chr(0)
   szTitle = "Lotus 1-2-3 Datei auswählen."
   szFilter = "1-2-3 Arbeitsmappen*.123|All Files|*.*|" 'Use this format for ANY file type
   
   If NEMPutFile( 0, szFileName, szFilter, szTitle) <> 0 Then
' We need to do this because the return is a NULL terminated string.
      szFileName = szFileName & |"|
      Messagebox szFileName, 64, "File Selected"
   End If
   
End Sub

Die rot markierten Stellen sind die Problemstellen, wo die Keywords von Lotus 1-2-3 rein müssen. Wenn ich doch nur den Ulrich Krause erreichen könnte. Von dem stammt nämlich die Lösung. Scheint jemand von IBM zu sein.

Grüsse,
Sandra

[klaussal]

Scheint jemand von IBM zu sein.

Nein, der arbeitet nicht bei der IBM.

Schreib ihm doch einfach eine PM.

Oder guckst du unter www.eknori.de.