Domino 9 und frühere Versionen > ND7: Entwicklung

Textdatei importieren

(1/2) > >>

Demian:
Hallo alle zusammen,

zu diesem Thema gibt es schon den ein oder anderen Thread, aber keiner passt so wirklich.

Also, ich will eine .dat Datei in eine Datenbank importieren. Die Datei hat folgendem Aufbau:

0100266120000006B5C6F6060911065234
0100266120000006B5C6F6060911163650
0100266120000006B5C6F6060912064543

usw. Die Anzahl der Zeilen ist unbekannt. Da ich nicht weiß, wie ich die Anzahl der Zeilen ermitteln kann, will ich die Datei per Script in Excel öffnen. Hierfür gibt es die methode workbooks.opentext.

Wenn ich die Datei ohne weitere Parameter öffne, macht er mir aus manchen Zeilen sowas: 1,00277E+32

Wenn ich die Datei in Excel manuell öffne und das mit dem Rekorder aufzeichen zeigt er mir folgendes:

    Workbooks.OpenText Filename:="C:\tp0610.dat", Origin:=xlWindows, StartRow _
        :=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
        ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
        , Space:=False, Other:=False, FieldInfo:=Array(1, 2), _
        TrailingMinusNumbers:=True

Für meinen Zweck benötige ich nur folgendes:

Workbooks.OpenText Filename:="C:\tp0610.dat", FieldInfo:=Array(1, 2)

Ich weiß aber nicht, wie ich den 2. Parameter in Notes umsetzen muss.

Einfach nur Fieldinfo = (1,2) geht nicht. Habe jetzt schon zig Varianten probiert, jedoch ohne Erfolg.

Hat da jemand ne Idee???

Gruß
Demian

Thomas Schulte:
Erse Frage wohin willst du denn importieren. In Lotus Notes oder in Excel?

klaussal:
Um die Anzahl der Zeilen zu ermitteln (wofür soll das denn gut sein ?) könnte man die Datei ja einmal vorher einmal "durchlesen" und danach verarbeiten.

Axel:

--- Zitat von: Demian am 31.10.06 - 07:59:05 ---Die Anzahl der Zeilen ist unbekannt. Da ich nicht weiß, wie ich die Anzahl der Zeilen ermitteln kann, will ich die Datei per Script in Excel öffnen. Hierfür gibt es die methode workbooks.opentext.

--- Ende Zitat ---

Wozu denn dieses?   ???


Für solche fälle gibt es die Funktion EOF (End Of File).

Beispiel aus der Designer-Hilfe:

' Open a file, print it, and close the file.
Dim text As String, fileNum As Integer
fileNum% = FreeFile()

Open "c:\config.sys" For Input As fileNum%
Do Until EOF(1)
   'Hier erfolgt die weitere Verarbeitung, bis das Ende der Datei erreicht ist.
   Line Input #1, text$
   Print text$
Loop
Close fileNum%


Axel

Demian:
Hallo,

@Thomas: Ich will die .dat Datei in eine (Notes)Datenbank importieren.

@Klauss: Und genau das meine ich. Ich weiß nicht, wie ich die Datei einmal "durchlesen" kann, weil ich die Anzahl der Zeilen nicht kenne. Mit Datei.readline komme ich also nicht weiter, da ich diesen Befehl nur in einer Schleife verarbeiten könnte.

Gruß
Demian

PS: Ich glaube, das was Axel schreibt ist genau das, was ich brauche. Werde es gleich mal probieren.

Navigation

[0] Themen-Index

[#] Nächste Seite