Das Notes Forum
Domino 9 und frühere Versionen => Administration & Userprobleme => Thema gestartet von: PeterT am 21.01.03 - 14:58:32
-
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 ???
-
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
-
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ß
-
Vielen Dank für eure Hilfe.
Ich werde eure Tipps ausprobieren und mich nochmal melden, wenn es geklappt hat.
:)
PeterT