Domino 9 und frühere Versionen > ND8: Entwicklung

Problem beim Textfile Import

(1/2) > >>

pimpfling:
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

tower:
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.

pimpfling:
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 :)

ascabg:
Hallo,

Erklaeren kan ich es mir aktuell auch nicht.

Aber.

--- Zitat ---Da ich das aber irgendwann automatisiert laufen lassen will

--- Ende Zitat ---
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

BigWim:
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

--- Ende Code ---

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

Navigation

[0] Themen-Index

[#] Nächste Seite