Blitz kann keine Streams mehr öffnen

Übersicht

BlitzBasic

Allgemein

Gehe zu Seite Zurück 1, 2

	Thunder	Mi, Jan 19, 2011 20:48 Antworten mit Zitat
Der Code wird so natürlich nicht funktionieren! 1. Speicherst du das Dateihandle in einer Stringvariable (nicht schön... könnte aber noch funktionieren) 2. (ausschlaggebend) du prüfst mit FileType ein Dateihandle statt eines Dateinamen. Deswegen liefert FileType immer 0. -> FileType 3. FileType gibt nicht zurück, ob ein Stream existiert, sondern ob eine Datei existiert. Wenn du prüfen willst, ob ein Stream existiert, musst du ihn gegen 0 prüfen: Code: [AUSKLAPPEN] [EINKLAPPEN] Global text_str$ Global new_text$ Global temp$ Global file = ReadFile("G:\Documents\a.txt") If file = 0 Then DebugLog "Stream does not exist" While Not Eof(file) text_str = text_str + ReadString(file) Wend For i = 1 To Len(text_str$) temp = Mid(text_str$, i, 1) new_text = new_text + Chr(Asc(temp)*2) Next Print text_str Print new_text For i = 1 To Len(new_text) temp = Mid(new_text, i, 1) t$ = t$ + Chr(Asc(temp)/2) Next Print t WaitKey CloseFile(file) End ;~IDEal Editor Parameters: ;~C#Blitz3D
Meine Sachen: https://bitbucket.org/chtisgit https://github.com/chtisgit

Thunder

Mi, Jan 19, 2011 20:48
Antworten mit Zitat

Der Code wird so natürlich nicht funktionieren!
1. Speicherst du das Dateihandle in einer Stringvariable (nicht schön... könnte aber noch funktionieren)
2. (ausschlaggebend) du prüfst mit FileType ein Dateihandle statt eines Dateinamen. Deswegen liefert FileType immer 0. -> FileType

3. FileType gibt nicht zurück, ob ein Stream existiert, sondern ob eine Datei existiert. Wenn du prüfen willst, ob ein Stream existiert, musst du ihn gegen 0 prüfen:

Code: [AUSKLAPPEN]

Global text_str$
Global new_text$
Global temp$
Global file = ReadFile("G:\Documents\a.txt")

If file = 0 Then DebugLog "Stream does not exist"

While Not Eof(file)
text_str = text_str + ReadString(file)
Wend

For i = 1 To Len(text_str$)
temp = Mid(text_str$, i, 1)
new_text = new_text + Chr(Asc(temp)*2)
Next

Print text_str
Print new_text
For i = 1 To Len(new_text)
temp = Mid(new_text, i, 1)
t$ = t$ + Chr(Asc(temp)/2)
Next
Print t
WaitKey
CloseFile(file)
End
;~IDEal Editor Parameters:
;~C#Blitz3D

Meine Sachen: https://bitbucket.org/chtisgit https://github.com/chtisgit

	Dottakopf	Mi, Jan 19, 2011 20:51 Antworten mit Zitat
schauen wir doch erstmal ob es überhaupt funktioniert. Dazu brauchen wir garnicht so viel code... also ganz simple erstelle einen Ordner auf dem Desktop, erstelle dort eine test.txt Speichere dein neues projekt in diesem ordner und mit folgendem Source code Code: [AUSKLAPPEN] [EINKLAPPEN] file= ReadFile("test.txt") Print file DebugLog "" +file WaitKey() alternativ! : Schließe nun bb, gehe in deinen Neuen ordner, rechtsklick auf dene bb file und als Administrator starten. Wenn das nicht geht, dann ist irgendwas total hinüber... Gruß Dottakopf
Rechtschreibfehler gelten der allgemeinen Belustigung!

Dottakopf

Mi, Jan 19, 2011 20:51
Antworten mit Zitat

schauen wir doch erstmal ob es überhaupt funktioniert. Dazu brauchen wir garnicht so viel code...

also ganz simple erstelle einen Ordner auf dem Desktop, erstelle dort eine test.txt

Speichere dein neues projekt in diesem ordner und mit folgendem Source code

Code: [AUSKLAPPEN]

file= ReadFile("test.txt")

Print file
DebugLog "" +file

WaitKey()

alternativ! : Schließe nun bb, gehe in deinen Neuen ordner, rechtsklick auf dene bb file und als Administrator starten.

Wenn das nicht geht, dann ist irgendwas total hinüber...

Gruß
Dottakopf

Rechtschreibfehler gelten der allgemeinen Belustigung!

	tft	Do, Jan 20, 2011 11:05 Antworten mit Zitat
Hallo, ich denke Thunder hat den Nagel auf den Kopf getroffen .... Kann nicht funktionieren. Und wenn es doch funktioniert hat ... war das ein fehler Gruss TFT
TFT https://www.sourcemagic.ch Monkey,HTML5,CSS3,W 10 64 Bit, 32 GB Ram, GTX Titan, W8 ist Müll !!!!!!

tft

Do, Jan 20, 2011 11:05
Antworten mit Zitat

Hallo,

ich denke Thunder hat den Nagel auf den Kopf getroffen .... Kann nicht funktionieren. Und wenn es doch funktioniert hat ... war das ein fehler Smile

Gruss TFT

TFT
https://www.sourcemagic.ch
Monkey,HTML5,CSS3,W 10 64 Bit, 32 GB Ram, GTX Titan, W8 ist Müll !!!!!!