title image


Smiley Hier ein Beispielscript
%REMDieser Agent wird manuell über die Aktion 'Import' gestartet. Als Trennzeichen wird das ";" verwendet.%END REM%INCLUDE "lsconst.lss"Sub Initialize Dim session As New notessession Dim Db As NotesDatabase Dim Doc As Notesdocument Dim item As NOTESITEM Dim fn As Integer Dim Datensatz As String Dim filename As String Dim i As Long Dim j As Long On Error Goto Ende iBox = Messagebox( "Wollen Sie Importieren?" , MB_YESNO + MB_ICONQUESTION, "FRAGE" ) If iBox = 6 Then Set Db = Session.Currentdatabase Filename = "c:\Datei.txt" fn = Freefile i = 0 j = 0 Close Open FileName For Input As #fn While Not Eof(fn) Line Input #1, Datensatz$ Feld1 = Mid(Datensatz,1,Instr(Datensatz,";")-1) Datensatz = Mid(Datensatz,Len(Feld1)+ 2) Feld2 = Mid(Datensatz,1,Instr(Datensatz,";")-1) Datensatz = Mid(Datensatz,Len(Feld2) + 2) Feld3 = Mid(Datensatz,1,Instr(Datensatz,";")-1) Feld4 = Mid(Datensatz,1) Set doc = New NotesDocument ( db ) doc.form = "FormName" Set Item = doc.replaceItemValue("Form","FormName") Set Item = doc.replaceItemValue("FeldX", Trim$( Cstr( Feld1 ) ) ) Set Item = doc.replaceItemValue("FeldY",Trim$( Cstr( Feld2 ) ) ) Set Item = doc.replaceItemValue("FeldZ", Trim$( Cstr( Feld3 ) ) ) Set Item = doc.replaceItemValue("FeldXYZ", Trim$( Cstr( Feld4 ) ) ) Call doc.save(True,True) Print "Einlesen von Datensatz Nummer " & Str$( i ) + " ( " + Feld1 + " " + Feld2 + " )" Weiter: Call doc.Save( False, False ) j = j + 1 i = i + 1 Wend Else Exit Sub End If If Eof(fn) Then Messagebox "Es wurden " & Str$( i - 1) & " Datensätze eingelesen.", 0+64, "HINWEIS" End If Close #fn Exit Sub Ende: Select Case Err Case 4294: Resume Weiter Case Else: Messagebox "Error" & Str(Err) & ": " & Error$ Exit Sub End Select End Sub

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: