Domino 9 und frühere Versionen > Entwicklung

Datei1 einlesen bearbeiten , Datei 2 schreiben

<< < (4/5) > >>

Axel:
Hi,

das Ganze bezieht sich doch auf diesen Thread, oder?

Meines Erachtens sollte die Diskussion dort weitergeführt werden. DEshalb findest du meine Antwort dort.


Axel

Alperen15:
wie sieht es aus, wenn ich z.b 3 textdateie habe und nur jeweils die erste zweile auslesen möchte? vllt als kontrolle für mich, die ausgabe per msgbox ? wie sieht der quelltext aus ?

Peter Klett:
Schau Dir mal das Beispiel in der Hilfe zu Line Input an, dann bekommst Du den Rest auch hin.

Alperen15:
Sub Initialize
   
   Dim filename As String
   Dim PathFilename As String
   Dim filenum As Integer
   Dim i As String
   
   PathName$ = "E:\TestKUR\Attachements\*.txt"
   Filename$ = Dir$(PathName$, 0)
   
   Do While Filename$ <> ""
      If  Isempty(Filename$) Then
         Exit Sub
      End If     
      Msgbox Filename$
      
      'lese erste zeile
      Open Filename$ For Input As filenum
      Seek fileNum,1   
      Line Input #filenum, i
      
      Filename$ = Dir$()
   Loop
End Sub

jetzt hab ich es so, da kommt eine fehlermeldung --> illegal Filenumber ..... wieso ist es nicht gültig?

Peter Klett:
Du solltest die Datei nach dem Einlesen auch wieder schließen (Close #filenum)

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete