Domino 9 und frühere Versionen > Entwicklung

Import aus Textdatei

<< < (2/3) > >>

ata:
... wenn du es nicht allzu eilig hast...

ata

HeiCore:
Danke.

Ich kann es ja nicht eilig haben, weil ohne Ahnung dauert es wahrscheinlich gegen Unendlich!

;-)

Ist das denn viel? So wie es sich anhört doch nicht?

ata:
... nö ist nicht viel , aber Zeitproblem - du kannst ja mal selbst ein bißchen probieren, vielleicht gelingt es dir dann ja...

ata

HeiCore:
Hier mein Auszug: (wie es nicht läuft)

sRow ist nach dem Durchlauf der Funktion leer.


'Datenbank, in der das Skript läuft
   Set db = Session.CurrentDatabase
   
   'Document erzeugen (für Mail)
   Set doc = db.createDocument
   
   'Formularnamen setzen
   doc.Form="Memo"
   
   Stop
   ' Textzeilen auslesen   
   Call ImportFromFile("G:\KB\KBI\Bruns\Paisy\FremdEM\DD\EBNA0001.txt")
   
   
   Stop
   
   'Felder setzen
   doc.subject="22449951 - DEÜV DD - " & Date
   doc.SendTo = Mail_Adresse_KK$
   doc.Body = "Test"& Chr(13)_
   & Chr(13)_
   & Chr(13)_
   & sRow
   
   'Anlegen eines RichTextItems / Aufnahme Dateianhang
   Set richText = New NotesRichTextItem(doc,"Anhang")
   
   'Dateianhang zuweisen   
   Set embObject = richText.EmbedObject(EMBED_ATTACHMENT,"", Import1datei$)
   Set embObject = richText.EmbedObject(EMBED_ATTACHMENT,"", Import2datei$)
   
   'Mail senden
   doc.send False
   
   'Exportdatei löschen
   ' Kill Importdatei$
End Sub

ata:
... die Funktion liefert dir ein Array zurück

Dim vArray as Variant
vArray = ImportFromFile( ... )

... damit hast du alle Zeilen in einem Array

Dim i As Long
For i = Lbound(vArray) to Ubound(vArray)
   If vArray(i) = "Text" Then
      ' # Trefffer - in den nächaten zwei Zeilen kommen deine Zeilen...
   End If
Next

ata

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete