Domino 9 und frühere Versionen > ND6: Entwicklung

Dateiinhalt in andere Datei etc.

<< < (2/5) > >>

Thomas Schulte:

--- Zitat von: andrew22 am 13.06.05 - 16:08:24 ---und wie mache ich das überschreiben nun ???

ein Bsp wäre sehr cool ...



--- Ende Zitat ---
zum Bleistift mit dem PUT Befehl. den du komplett Beschrieben in der Online Hilfe finden kannst.
Und wo du die findest solltest du eigentlich wissen.
Immer nur Code Beispiele leechen kommt hier nicht gut. Das Motto ist Hilfe zur Selbsthilfe und nicht ich frag mal und dann bekomm ich alles vorgekaut serviert.

Semeaphoros:
Ueberschreiben bei einer sequentiellen Datei ist nicht wirklich. Da ist das Umschreiben auf eine andere durchaus angesagt. Aber da wirst Du Dich wohl schon selber ein wenig in die Hilfe einknieen müssen. Hier die wesentlichen Befehle:

Open
Close
Print #
Write #
Input
Line Input
Filenum

Thomas Schulte:

--- Zitat von: Semeaphoros am 13.06.05 - 16:15:53 ---Ueberschreiben bei einer sequentiellen Datei ist nicht wirklich.

--- Ende Zitat ---
Stimmt nicht wirklich die Aussage Jens.
hier das Beispiel dazu aus der Online Hilfe:
Type PersonRecord
   empNumber As Integer
   empName As String * 20
End Type
Dim fileNum As Integer
Dim fileName As String
Dim rec As PersonRecord
fileNum% = FreeFile()
fileName$ = "data.txt"
' First, open a random file with a record length equal to
' the size of the records to be stored.
Open fileName$ For Random As fileNum% Len = Len(rec)
rec.empNumber% = 123
rec.empName$ = "John Smith"
Put #fileNum%, 1, rec       ' Write this record at position 1.
rec.empNumber% = 456
rec.empName$ = "Jane Doe"
Put #fileNum%, 2, rec       ' Write this record at position 2.
rec.empNumber% = 789
rec.empName$ = "Jack Jones"
Put #fileNum%, , rec        ' Write at current position (3).
Seek fileNum%, 1            ' Rewind file to beginning.
Do While Not EOF(fileNum%)
   ' Get a record, print it out.
   ' Get advances the file position to the next
   ' record automatically.
   Get #fileNum%, , rec
   Print rec.empNumber%, rec.empName$
Loop
' Output:
' 123         John Smith
' 456         Jane Doe
' 789         Jack Jones 
Close fileNum%              ' Close the file.

andrew22:
so mein code ;) der klappt aber nicht nicht ganz vielleicht habt Ihr ne Idee :


--- Code: ---
pathname = "C:\temp\test.csv"

foutput = Freefile

While Not Eof(foutput)
Line Input #foutput, sTxt

finput = Freefile()
Open "C:\temp\neuedatei.csv" For Append As finput
Write #finput, sTxt
Closefinput
Open pathname For Random As fileNum%
test = ""
Put #fileNum%, ,test
WEnd

Close.foutput
Call stream.Close





--- Ende Code ---

Thomas Schulte:
Ideen hab ich dazu eine ganze Menge.
Ad 1. Falsche Reihenfolge der open Befehle. Wie willst du was wegschreiben wenn du die Datei aus der du lesen willst noch nicht einmal geöffnet hast.
Ad 2.  Es ist nett das du jedesmal deine Files auf machst. Kostet dich gut Performance und ist irgendwie überhaupt nicht effektiv.
Ad 3. Wenn man Daten wegschreibt sollte man sie vorher auch einlesen. Wo tust du das?

Ad 4. Ich hab den Eindruck du willst uns hier verschaukeln. Da ist noch nicht einmal der Ansatz einer sinnvollen Programmierung zu sehen. Das was du uns da hingeschmissen hast deutet auf ein nicht einmal rudimentäres Verständniss dessen was du da machst hin.

Hast du überhaupt Ahnung von Programmierung?

In IRGENDEINER Sprache?

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete