Aus Datei text lesen

Übersicht

BlitzBasic

Beginners-Corner

	md0123 Betreff: Aus Datei text lesen	Sa, Okt 23, 2004 12:51 Antworten mit Zitat
dim V_Bedeutung(15) Gosub Datei_laden menu() .Datei_laden datei=ReadFile("Vokabeln.txt") For x=1 To 15 V_Bedeutung$(x)=ReadLine(datei) Print V_Bedeutung$(x) Next CloseFile datei Return Was mache ich hier falsch, ich möchte aus einer Datei in ein Feld lesen, aber leider passiert nix, das erkenn ich daran weil das Feld mit Print nicht ausgegeben wird

md0123

Betreff: Aus Datei text lesen

Sa, Okt 23, 2004 12:51
Antworten mit Zitat

dim V_Bedeutung(15)
Gosub Datei_laden
menu()

.Datei_laden
datei=ReadFile("Vokabeln.txt")
For x=1 To 15
V_Bedeutung$(x)=ReadLine(datei)
Print V_Bedeutung$(x)
Next
CloseFile datei
Return

Was mache ich hier falsch, ich möchte aus einer Datei in ein Feld lesen, aber leider passiert nix, das erkenn ich daran weil das Feld mit Print nicht ausgegeben wird

	Rallimen Sieger des 30-EUR-Wettbewerbs	Sa, Okt 23, 2004 13:13 Antworten mit Zitat
Willkommen im Forum md0123 1. bei der Dimanweisung das $ zeichen für String Var setzten Code: [AUSKLAPPEN] [EINKLAPPEN] dim V_Bedeutung$(15) aber ansonsten sollte es gehen sofern die Datei auch Daten beinhaltet und auch existiert Kannste nach dem öffnen noch so prüfen Code: [AUSKLAPPEN] [EINKLAPPEN] datei=ReadFile("Vokabeln.txt") if datei = 0 then runtimeerror "Datei Vokabeln.txt wurde nicht gefunden"
[BB2D \| BB3D \| BB+]

Rallimen

Sieger des 30-EUR-Wettbewerbs

Sa, Okt 23, 2004 13:13
Antworten mit Zitat

Willkommen im Forum md0123

1. bei der Dimanweisung das $ zeichen für String Var setzten
Code:

dim V_Bedeutung$(15)

aber ansonsten sollte es gehen sofern die Datei auch Daten beinhaltet
und auch existiert
Kannste nach dem öffnen noch so prüfen
Code:

datei=ReadFile("Vokabeln.txt")
if datei = 0 then runtimeerror "Datei Vokabeln.txt wurde nicht gefunden"

[BB2D | BB3D | BB+]

	md0123	Sa, Okt 23, 2004 13:22 Antworten mit Zitat
Die Datei ist da, im ursprünglichen quelltext habe ich daß stringzeichen auch gesetzt, trotzdem will es nicht

md0123

Sa, Okt 23, 2004 13:22
Antworten mit Zitat

Die Datei ist da, im ursprünglichen quelltext habe ich daß stringzeichen auch gesetzt, trotzdem will es nicht

	Rallimen Sieger des 30-EUR-Wettbewerbs	Sa, Okt 23, 2004 13:35 Antworten mit Zitat
Wird der Code Teil denn auch ausgeführt ? setz doch mal ein Stop ein und teste das.... Code: [AUSKLAPPEN] [EINKLAPPEN] .Datei_laden datei=ReadFile("Vokabeln.txt") For x=1 To 15 V_Bedeutung$(x)=ReadLine(datei) Print V_Bedeutung$(x) Next stop:<<<<<<<<<<<<< CloseFile datei Return und den Debugger aktivieren!
[BB2D \| BB3D \| BB+]

Rallimen

Sieger des 30-EUR-Wettbewerbs

Sa, Okt 23, 2004 13:35
Antworten mit Zitat

Wird der Code Teil denn auch ausgeführt ?
setz doch mal ein Stop ein und teste das....
Code:

.Datei_laden
datei=ReadFile("Vokabeln.txt")
For x=1 To 15
V_Bedeutung$(x)=ReadLine(datei)
Print V_Bedeutung$(x)
Next
stop:<<<<<<<<<<<<<
CloseFile datei
Return

und den Debugger aktivieren!

[BB2D | BB3D | BB+]