Seite drucken - Problem beim Textfile Import

Domino 9 und frühere Versionen => ND8: Entwicklung => Thema gestartet von: pimpfling am 26.11.09 - 11:45:35

Titel: Problem beim Textfile Import
Beitrag von: pimpfling am 26.11.09 - 11:45:35

Hallo,

ich benutze für den Import in ein Notes Addressbuch den folgenden Agenten (hier aus dem Forum):

Sub Initialize
   Dim session As New notessession
   Dim db As notesdatabase
   Dim doc As notesdocument
   Dim fileNum As Integer, cells As Integer, k As Long
   Dim fileName As String
   Dim InputStr As String, delimiter As String
   Dim FieldArray As Variant
   Set db = session.currentdatabase

   fileNum% = Freefile()
   Print "openfile"
' Dateipfad
   fileName$ = "E:\Temp\csv1.txt"

' Trennzeichen
   delimiter = ","

   Open fileName$ For Input As fileNum%
   Line Input #1, InputStr$
   Do While Not Eof(fileNum%)
' Zeile für Zeile einlesen
'Print InputStr$
      Line Input #1, InputStr$
      FieldArray = Split(InputStr$,delimiter)
      Call CreateDocument(db, FieldArray)

   Loop
   Close fileNum%
   Exit Sub

End Sub

Sub CreateDocument(db As notesdatabase, FieldArray As Variant)
   Dim doc As New notesdocument(db)

   doc.Form = "Kontakt"
   doc.CompanyName = FieldArray(5)
   doc.FirstName = FieldArray(1)
   doc.OfficePhoneNumber = FieldArray(6)
   doc.FullName = FieldArray(3)
   doc.LastName = FieldArray(2)
   doc.Title = FieldArray(4)
   doc.OfficeZip = FieldArray(12)
   doc.OfficeFAXPhoneNumber = FieldArray(7)
   doc.OfficeCountry = FieldArray(14)
   doc.MailAddress = FieldArray(10)
   doc.OfficeStreetAddress = FieldArray(11)
   doc.OfficeCity = FieldArray(13)
   doc.CellPhoneNumber = FieldArray(8)
   doc.Comment = FieldArray(15)

   Call doc.save(1,0)

End Sub

Das Problem das ich habe ist folgendes:
Bei den anschliessend erstellten Dokumenten sind leider die ä ö ü ß nicht in einem lesbaren Format vorhanden.
Das Problem tritt aber nur auf wenn ich eine Datei mit ca. 3500 Datensätzen einlese.
Wenn ich weniger Datensätze in der Datei habe sind die ä ü ö ß wunderbar zu lesen.
Kennt jemand dieses Problem und hat evtl einen Lösung?

Gruß Stefan

Titel: Re: Problem beim Textfile Import
Beitrag von: tower am 26.11.09 - 12:41:16

mmmm, sehr merrkwürdig. Bist Du Dir völlig sicher, das die Sonderzeichen in der kleinen Datei genau so wie in der mit 3500 Sätzen aussehen?

Wenn ja, habe ich keine gute Erklärung.

Titel: Re: Problem beim Textfile Import
Beitrag von: pimpfling am 26.11.09 - 12:57:51

ja, ich habe jetzt sogar die Datei in zwei Hälften geteilt und dann importiert.
Das geht dann ohne Probleme. Nur der Import der grossen Datei scheitert.
Da ich das aber irgendwann automatisiert laufen lassen will, wäre es schon von Vorteil wenn es mit der einen datei klappt :)

Titel: Re: Problem beim Textfile Import
Beitrag von: ascabg am 26.11.09 - 13:08:26

Hallo,

Erklaeren kan ich es mir aktuell auch nicht.

Aber.

Zitat

Da ich das aber irgendwann automatisiert laufen lassen will

Du weisst hoffentlich schon, dass Zugriffe auf Laufwerke, vor allem bei automatisierten Aktionen immer mit Problemen verbunden sind, da der Server nicht sauber auf deise zugreifen kann.

Andreas

Titel: Re: Problem beim Textfile Import
Beitrag von: BigWim am 26.11.09 - 15:26:59

Hallo Stefan,

das übersteigt auch meine Vorstellungskraft. Um versteckte Laufzeitfehler auszuschließen, würde ich

a) mal weniger Items füllen, um zu sehen, ob Du weiter als 3.500 Dokumente kommst

Code

Sub CreateDocument(db As notesdatabase, FieldArray As Variant)
   Dim doc As New notesdocument(db)
   
   doc.Form = "Kontakt"
'   doc.CompanyName = FieldArray(5)    
   doc.FirstName = FieldArray(1)    
'   doc.OfficePhoneNumber = FieldArray(6) 
   doc.FullName = FieldArray(3) 
   doc.LastName = FieldArray(2) 
'   doc.Title = FieldArray(4) 
'   doc.OfficeZip = FieldArray(12) 
'   doc.OfficeFAXPhoneNumber = FieldArray(7) 
'   doc.OfficeCountry = FieldArray(14) 
'   doc.MailAddress = FieldArray(10) 
'   doc.OfficeStreetAddress = FieldArray(11) 
'   doc.OfficeCity = FieldArray(13) 
'   doc.CellPhoneNumber = FieldArray(0) 
'   doc.Comment = FieldArray(15) 
   
   Call doc.save(1,0)
   
End Sub

und / oder

b) mal den Speicher"verbrauch" über den Taskmanager (oder andere Tools) im Auge zu behalten. Vielleicht geht das Problem in Richtung MemoryLeak :-:

Markus

Titel: Re: Problem beim Textfile Import
Beitrag von: pimpfling am 26.11.09 - 16:30:06

Es geht mit: Open fileName$ For Input As fileNum% CHARSET="utf-8"

Warum aber nur bei grossen Datenmengen :-:

Das Notes Forum

Domino 9 und frühere Versionen => ND8: Entwicklung => Thema gestartet von: pimpfling am 26.11.09 - 11:45:35