Domino 9 und frühere Versionen > Entwicklung

Datei1 einlesen bearbeiten , Datei 2 schreiben

(1/5) > >>

Don Pasquale:

Hi Folks,
ich möchte eine Datei öffnen, sie um die 2. und 3. Zeile kürzen und dann in eine andere Datei wegschreiben.

Ich habe Probleme mit dem

fileNum1 = Freefile()
fileNum2 = Freefile()

Die Werte für fileNum1 und fileNum2 sind beide 1 onwohl
der für fileNum2 eigentlich 2 sein müßte.

Jemand eine Idee ?
Ciao
Don Pasquale




      Dim sFile As String ' SOURCE
      Dim dFile As String ' DESTINATION
      
      
      Dim sRow() As String
      Dim sTxt As String
      Dim fileNum1 As Integer
      Dim fileNum2 As Integer
      Dim counter As Integer
      
        ' # Die Datei zuweisen und öffnen...
      sFile =    cPath &          nDoc.UniversalID & ".xml"   
      dFile =    cPath & "__" & nDoc.UniversalID & ".xml"   
      
      fileNum1 = Freefile()
      fileNum2 = Freefile()
      
      Open sFile For Input As fileNum1
      Open dFile For Output As fileNum2
      
        ' # ... zeilenweise einlesen
      counter = -1
      Do While Not Eof( fileNum1 ) ' # ... EOF = End Of File
         Line Input #fileNum1, sTxt
         counter = counter + 1
         Redim Preserve sRow( 0 To counter )
         sRow( counter ) = sTxt
         
         If ( counter <> 2 Or counter <> 3  ) Then
            Print #fileNum2 , sRow( counter )
         End If
      Loop   
           ' # ... das Array weiterverarbeiten...
      
        ' # Die Datei wieder schließen...
      Close fileNum1
      Close fileNum2
      
   Wend

ata:
... bestimme die Laufzahl manuell, indem du eine fixe Zahl vergibst - ist zwar nicht ganz sauber, aber hilft zuweilen

ata

koehlerbv:
FileNum muß ja auch immer den gleichen Wert ergeben, da danach kein File geöffnet (und damit belegt) wird.
Versuch' mal, nach FreeFile gleich das Open folgen zu lassen.

Bernhard

ata:
... da habe ich gar nicht darauf geachtet...

... ich verwende Freefile eigentlich nur, wenn ich mehrere Files in einer Schlaufe öffnen muß...

ata

Don Pasquale:

@koehlerbv
BINGO !

Anton und Bernhard :

Herzlichen Dank

Ciao
Don Paquale

Navigation

[0] Themen-Index

[#] Nächste Seite