XProfan

Jörg
Sellmeyer

Was für Werte erwartest Du denn?
Wenn Du einfach, die durch GetByte ermittelten Zahlen als String abspeichern willst reicht.
Kompilieren Markieren Separieren

Cls
Declare Wert$,Datei$
Datei$ = "C:\..."
Assign #1,Datei$
OpenRW #1

WhileNot EoF(#1)

    Wert$ = Wert$ + Str$(GetByte(#1))

Wend

Close #1
Print "Fertig mit auslesen...!"
Assign #2,"C:...Datei2.txt"
Rewrite #2
Print #2,Wert$
Close #2
Print "und Ende..."
WaitInput

So ähnlich sollte es jedenfalls funktionieren. Ist geschrieben, ohne zu testen.

Und herzlich willkommen hier!
Gruß
Jörg

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

Sascha
Oliver
Haak

Schau mal in der Hilfe unter Textdatei nach da steht alles geschrieben.

Herzlichst willkommen.

Gruß
Sascha

Hallo Dirk,

wie bereits schon von Jörg gezeigt hilft wohlmöglich die Funktion Str$

, Print

wandelt aber auch um sodass Du auch
Kompilieren Markieren Separieren

print #2,getByte(#1)

schreiben kannst um die Werte untereinander zu speichern oder
Kompilieren Markieren Separieren

print #2,getByte(#1),

um die Werte nebeneinander zu speichern bzw.
Kompilieren Markieren Separieren

print #2,getByte(#1);

um die Werte direkt nebeneinander zu speichern bzw.
Kompilieren Markieren Separieren

print #2,getByte(#1);",";

um die Werte kommagetrennt zu speichern.

Siehe vlt. auch:
Kompilieren Markieren Separieren

val( und
decimals

Dirk
Weber

Herzlichen Dank!
Selbstverständlich werde ich mich noch besser einlesen weil es macht wirklich Spass den Kopf mal wieder anders zu belasten.
Zur Frage von Jörg: Es sollen rein numerische Werte sein.
Ich probiere es direkt aus.
Danke

Dirk Weber

16.06.2010 ▲

Dirk
Weber

Es klappt Super!
Positiv sollten Sie den Tag beginnen.
Danke

Dirk Weber

16.06.2010 ▲