Datei-import

[PeterT]

Ich muß eine mit Tab,s tabellierte Textdatei (Dateiname.tab) in eine Ansicht importieren. Leider erhalte ich ständig Verschiebungen der Spalteninhalte in der Ansicht.  Ein Import in Lotus 123 funktioniert.
Der Import über diesen Umweg funktioniert auch.
Wieso kann ich diese Datei nicht direkt importieren?

Was mache ich falsch

[Performance]

das kann ich leider nicht sagen - vielleicht weil notes hier kein Trennzeichen erkennen kann ? wer weiss.....

mache es doch einfach mit einer Skript Agent und das Trennzeichen ist chr(9) - also Zeichen für Zeichne einlesen.

cu

[Wp]

Hallo PeterT,

ich habe mir den unten beigefügten Code aus dem LDD entliehen und etwas angepasst. Er sollte dir auch hilfreich sein. Das Trennzeichen ist hier ein ";", die Datei heist "C:\USER.CSV" und hat 14 Spalten.



Sub Click(Source As Button)
   Dim session As New notessession
   Dim db As notesdatabase
   Dim doc As notesdocument
   Dim fileNum As Integer, cells As Integer, k As Integer
   Dim fileName As String
   Dim InputStr As String, delimiter As String
   Dim FieldArray As Variant
   
   resp% = Messagebox ( "Wollen Sie wirklich alle Anwender aus  C:\USER.CSV importieren", 36 , "Anwender importieren" )
   
   REM Yes
   If resp% = 6 Then      
      fileNum% = Freefile()
       ' Dateipfad
      fileName$ = "C:\USER.CSV"
      ' Trennzeichen
      delimiter = ";"
      ' Anzahl der Zellen plus 1
      cells = 14 + 1
      k = 0
      
      Open fileName$ For Input As fileNum%
      Do While Not Eof(fileNum%)
         ' Zeile für Zeile einlesen
         Line Input #1,  InputStr$
         FieldArray = parseall(InputStr$, delimiter, cells)
         response% = CreateDocument(FieldArray)
         k = k + 1
         ' Info in der Fußzeile ausgeben
         Print Cstr(k) + " Abteilungen importiert."
      Loop
      Close fileNum%
   Else
      Exit Sub
   End If
   
End Sub



Viel Spaß

[PeterT]

Vielen Dank für eure Hilfe.

Ich werde eure Tipps ausprobieren und mich nochmal melden, wenn es geklappt hat.

 
PeterT