Frage zu Readline

Übersicht

BlitzBasic

Allgemein

Gehe zu Seite 1, 2 Weiter

	tipfehler Betreff: Frage zu Readline	Do, Aug 19, 2004 15:32 Antworten mit Zitat
Ich möchte über Readline immer bestimmte Zeilen aus einer Textdatei auslesen. Ist es möglich auch direkt eine Zeile anzugeben um diese auszulesen, denn diese Mehtode scheint mir sehr umständlich: Code: [AUSKLAPPEN] [EINKLAPPEN] Function AUSLESEN(Zeile) Zeile = Zeile - 1 InputStream = ReadFile("Config.txt") For i = 0 To Zeile ascii = ReadLine(InputStream) Next CloseFile InputStream Return ascii End Function

tipfehler

Betreff: Frage zu Readline

Do, Aug 19, 2004 15:32
Antworten mit Zitat

Ich möchte über Readline immer bestimmte Zeilen aus einer Textdatei auslesen. Ist es möglich auch direkt eine Zeile anzugeben um diese auszulesen, denn diese Mehtode scheint mir sehr umständlich:

Code: [AUSKLAPPEN]

Function AUSLESEN(Zeile)

Zeile = Zeile - 1

InputStream = ReadFile("Config.txt")

   For i = 0 To Zeile
      ascii = ReadLine(InputStream)
   Next

CloseFile InputStream
Return ascii

End Function

	dominik	Do, Aug 19, 2004 15:34 Antworten mit Zitat
seekfile damit kannst du die position in der datei festlegen ab der gelsen werden soll.

dominik

Do, Aug 19, 2004 15:34
Antworten mit Zitat

seekfile damit kannst du die position in der datei festlegen ab der gelsen werden soll.

	DivineDominion	Do, Aug 19, 2004 15:44 Antworten mit Zitat
SeekFile taugt so nix... er müsste die Position in der Datei kennen. Nicht die Zeile spielt dabei eine Rolle sondern das Byte in der Datei. Und weil eine Zeile unterschiedlich lang ist - schwierig. Er könnte lediglich einmal alle Zeilen einlesen, die größe in Bytes in ein Array speichern ( Dim Zeilengroesse( Zeilenanzahl ) ) und dann die entsprechende Position berechnen indem er alle Zeilengrößen bis "Zeile-1" addiert. Zum rausfinden der Zeilenanzahl ist, um der Frage vorzubeugen, ein weiterer Durchlauf der gesamten datei fällig, nur diesmal mit EOF() und einem Zeilenzähler
christian.tietze@gmail.com - https://christiantietze.de macOS

DivineDominion

Do, Aug 19, 2004 15:44
Antworten mit Zitat

SeekFile taugt so nix... er müsste die Position in der Datei kennen. Nicht die Zeile spielt dabei eine Rolle sondern das Byte in der Datei. Und weil eine Zeile unterschiedlich lang ist - schwierig. Er könnte lediglich einmal alle Zeilen einlesen, die größe in Bytes in ein Array speichern ( Dim Zeilengroesse( Zeilenanzahl ) ) und dann die entsprechende Position berechnen indem er alle Zeilengrößen bis "Zeile-1" addiert.

Zum rausfinden der Zeilenanzahl ist, um der Frage vorzubeugen, ein weiterer Durchlauf der gesamten datei fällig, nur diesmal mit EOF() und einem Zeilenzähler

christian.tietze@gmail.com - https://christiantietze.de
macOS

	tipfehler	Do, Aug 19, 2004 17:16 Antworten mit Zitat
mm dann könnte man die Zeilen immer mit Leerzeichen auf eine bestimmte länge bringen, um seekfile zu verwenden, aber ist das besser?

tipfehler

Do, Aug 19, 2004 17:16
Antworten mit Zitat

mm dann könnte man die Zeilen immer mit Leerzeichen auf eine bestimmte länge bringen, um seekfile zu verwenden, aber ist das besser?

	Blitzkrieg Bop	Do, Aug 19, 2004 17:45 Antworten mit Zitat
Warum Seekfile? Soweit ich das verstanden habe, sollte das schnell geproggte hier, auch gehen! Code: [AUSKLAPPEN] [EINKLAPPEN] Graphics 640,480 datei$ = Input("Dateinamen: ") zeile = Input("In welche Zeile soll geucht werden?: ") file = OpenFile(datei$) While Not Eof(file) ReadLine file : zeilen = zeilen + 1 If zeilen = zeile-1 satz$ = ReadLine(file) RuntimeError "In Zeile Nr.: "+zeile+" steht: "+"'"+satz$+"'" EndIf Wend
~ Hey Ho Let's Go ~

Blitzkrieg Bop

Do, Aug 19, 2004 17:45
Antworten mit Zitat

Warum Seekfile? Soweit ich das verstanden habe, sollte das schnell geproggte hier, auch gehen!
Code: [AUSKLAPPEN]

Graphics 640,480

datei$ = Input("Dateinamen: ")
zeile = Input("In welche Zeile soll geucht werden?: ")

file = OpenFile(datei$)
While Not Eof(file)
ReadLine file : zeilen = zeilen + 1
If zeilen = zeile-1
   satz$ = ReadLine(file)
   RuntimeError "In Zeile Nr.: "+zeile+" steht: "+"'"+satz$+"'"
EndIf
Wend

~ Hey Ho Let's Go ~

	Markus2	Do, Aug 19, 2004 18:52 Antworten mit Zitat
Lese doch einfach deine Config Datei Zeilenweise in ein Array und dann kannste die Zeilen schnell anspringen .

Markus2

Do, Aug 19, 2004 18:52
Antworten mit Zitat

Lese doch einfach deine Config Datei Zeilenweise in ein Array
und dann kannste die Zeilen schnell anspringen .

	tipfehler	Do, Aug 19, 2004 22:08 Antworten mit Zitat
So hatte ich das eh vor Jetzt hab ich aber ein ganz anderes Problem, denn wenn ich versuche mit folgendem Code Text(keine Zahlen) aus einer Datei auszulesen, dann spuckt er mir immer nur 0 aus. Code: [AUSKLAPPEN] [EINKLAPPEN] Function ZEILEAUSLESEN(Dateiname$, Zeile) Local Inhalt$ InputStream = ReadFile(Dateiname$) While Not Eof(InputStream) i = i + 1 Inhalt$ = ReadLine$(InputStream) If i = Zeile Then Exit Wend CloseFile InputStream Return Inhalt$ End Function

tipfehler

Do, Aug 19, 2004 22:08
Antworten mit Zitat

So hatte ich das eh vor Smile

Jetzt hab ich aber ein ganz anderes Problem, denn wenn ich versuche mit folgendem Code Text(keine Zahlen) aus einer Datei auszulesen, dann spuckt er mir immer nur 0 aus.

Code: [AUSKLAPPEN]

Function ZEILEAUSLESEN(Dateiname$, Zeile)

Local Inhalt$

InputStream = ReadFile(Dateiname$)

While Not Eof(InputStream)
   i = i + 1
   Inhalt$ = ReadLine$(InputStream)
   If i = Zeile Then Exit
Wend

CloseFile InputStream
Return Inhalt$

End Function

	4pac	Do, Aug 19, 2004 22:16 Antworten mit Zitat
Die Function muss heißen Code: [AUSKLAPPEN] [EINKLAPPEN] Function ZEILEAUSLESEN$(Dateiname$, Zeile) beachte das $-Zeichen am Ende des Function-Namens. Ich glaube, das müsste es sein. Grüße, Thomas

4pac

Do, Aug 19, 2004 22:16
Antworten mit Zitat

Die Function muss heißen

Code: [AUSKLAPPEN]

Function ZEILEAUSLESEN$(Dateiname$, Zeile)

beachte das $-Zeichen am Ende des Function-Namens. Ich glaube, das müsste es sein.

Grüße,
Thomas

	tipfehler	Do, Aug 19, 2004 22:37 Antworten mit Zitat
Danke!! Hab ich vollig übersehen

tipfehler

Do, Aug 19, 2004 22:37
Antworten mit Zitat

Danke!! Hab ich vollig übersehen Embarassed

	4pac	Sa, Aug 21, 2004 3:18 Antworten mit Zitat
Kein Problem Hauptsache Du weißt, WARUM das $-Zeichen dort stehen muss wenn die Function einen String ($) zurückgeben soll, musst Du ihr halt bereits in der Definition beim Namen ein $-Zeichen hintenanstellen. Sonst gibt sie Dir für Strings 0 als Wert zurück, weil sie Zahlenwerte erwartet. Grüße, Thomas

4pac

Sa, Aug 21, 2004 3:18
Antworten mit Zitat

Kein Problem Smile

Hauptsache Du weißt, WARUM das $-Zeichen dort stehen muss Wink

wenn die Function einen String ($) zurückgeben soll, musst Du ihr halt bereits in der Definition beim Namen ein $-Zeichen hintenanstellen. Sonst gibt sie Dir für Strings 0 als Wert zurück, weil sie Zahlenwerte erwartet.

Grüße,
Thomas

	tipfehler	Sa, Aug 21, 2004 12:07 Antworten mit Zitat
Schon klar Jetzt hab ich aber ein ganz anderes Problem. Ich hab mich drangesetzt, eine Funktion zu schreiben mit welcher ich eine beliebige Zeile in einem Text verändern kann. Erst hab ich es so probiert: Code: [AUSKLAPPEN] [EINKLAPPEN] ;Bis zur gewünschten Zeile vorarbeiten While Not Eof(OutputStream) i = i + 1 If i = Zeile Then Exit ReadLine(OutputStream) Wend ;Die gewünschte Zeile ersetzen WriteLine OutputStream, Inhalt$ Nur dann hängt er mir den Text immer am Ende der Zeile an, welche er eigentlich ersetzen sollte. Und bei der Methode ist fast das selbe, nur das er mir die gewünschte Zeile an die vorherige anhängt Code: [AUSKLAPPEN] [EINKLAPPEN] ;Gewünschte Zeile einlesen While Not Eof(InputStream) i = i + 1 Inhalt$ = ReadLine(InputStream) Laenge = Laenge + Len(Inhalt$) If i = Zeile Then Exit Wend ;Position für den Beginn von WriteLine festlegen Laenge_temp = Len(Inhalt$) Pos = Laenge - Laenge_temp Position = SeekFile(OutputStream, Pos) ;Die gewünschte Zeile ersetzen WriteLine OutputStream, Inhalt$ Wie könnte ich es am besten umsetzen eine gewünschte Zeile in einem Text zu ersetzen, bzw wo liegt mein Fehler oben?

tipfehler

Sa, Aug 21, 2004 12:07
Antworten mit Zitat

Schon klar Wink

Jetzt hab ich aber ein ganz anderes Problem. Ich hab mich drangesetzt, eine Funktion zu schreiben mit welcher ich eine beliebige Zeile in einem Text verändern kann. Erst hab ich es so probiert:

Code: [AUSKLAPPEN]

;Bis zur gewünschten Zeile vorarbeiten
While Not Eof(OutputStream)
   i = i + 1
   If i = Zeile Then Exit
         ReadLine(OutputStream)
Wend

;Die gewünschte Zeile ersetzen
WriteLine OutputStream, Inhalt$

Nur dann hängt er mir den Text immer am Ende der Zeile an, welche er eigentlich ersetzen sollte. Und bei der Methode ist fast das selbe, nur das er mir die gewünschte Zeile an die vorherige anhängt Sad

Code: [AUSKLAPPEN]

;Gewünschte Zeile einlesen
While Not Eof(InputStream)
   i = i + 1
   Inhalt$ = ReadLine(InputStream)
      Laenge = Laenge + Len(Inhalt$)
   If i = Zeile Then Exit
Wend

;Position für den Beginn von WriteLine festlegen
Laenge_temp = Len(Inhalt$)
Pos = Laenge - Laenge_temp
Position = SeekFile(OutputStream, Pos)

;Die gewünschte Zeile ersetzen
WriteLine OutputStream, Inhalt$

Wie könnte ich es am besten umsetzen eine gewünschte Zeile in einem Text zu ersetzen, bzw wo liegt mein Fehler oben?

	sdjh	Sa, Aug 21, 2004 19:41 Antworten mit Zitat
wenn du die zeilennummer kennst, dann brauchts du einfach nur alle zeilen bis zu der linie davor lesen und die danach schreiben. allerdings müssen alle nachfolgenden zeilen in einen type/dim gespeichern sein, da alle nachfolgenden zeilen gelöscht werden. Und du musst OpenFile nutzen. Oder, was einfacher ist, einfach alle Zeilen auslesen und sie nachher neu schreiben. Code: [AUSKLAPPEN] [EINKLAPPEN] type linie field l$ end type file=openfile("myfile.dat") liniezumersetzen=8 x=1 repeat l.linie=new linie l\l$=readline(file) if x=liniezumersetzen l\l$="Neuer Text" endif seekfile(file,0) for l.linie=each linie writeline(file,l\l$) next until eof(file) hab den quelltext nicht getestet, sollte aber zumindest den gedankengang veranschaulichen ^^

sdjh

Sa, Aug 21, 2004 19:41
Antworten mit Zitat

wenn du die zeilennummer kennst, dann brauchts du einfach nur alle zeilen bis zu der linie davor lesen und die danach schreiben.
allerdings müssen alle nachfolgenden zeilen in einen type/dim gespeichern sein, da alle nachfolgenden zeilen gelöscht werden. Und du musst OpenFile nutzen.

Oder, was einfacher ist, einfach alle Zeilen auslesen und sie nachher neu schreiben.

Code: [AUSKLAPPEN]

type linie
field l$
end type

file=openfile("myfile.dat")
liniezumersetzen=8
x=1
repeat
l.linie=new linie
l\l$=readline(file)
if x=liniezumersetzen
l\l$="Neuer Text"
endif

seekfile(file,0)
for l.linie=each linie
writeline(file,l\l$)
next
until eof(file)

hab den quelltext nicht getestet, sollte aber zumindest den gedankengang veranschaulichen ^^

	tipfehler	Sa, Aug 21, 2004 20:42 Antworten mit Zitat
danke ich werds gleich probieren

tipfehler

Sa, Aug 21, 2004 20:42
Antworten mit Zitat

danke ich werds gleich probieren Smile

	tipfehler	Sa, Aug 21, 2004 21:25 Antworten mit Zitat
Na toll ich hab meine Funktion in Mühevollster kleinarbeit auf Types umgeschrieben, freu mich schon auf das endprodukt, doch als ich auf kompilieren drücke, sagt er mir "'Type' can only appear in main program" Kann man Types nicht in Funktionen verwenden?

tipfehler

Sa, Aug 21, 2004 21:25
Antworten mit Zitat

Na toll ich hab meine Funktion in Mühevollster kleinarbeit auf Types umgeschrieben, freu mich schon auf das endprodukt, doch als ich auf kompilieren drücke, sagt er mir "'Type' can only appear in main program" Evil or Very Mad

Kann man Types nicht in Funktionen verwenden?

	wunderkind	Sa, Aug 21, 2004 21:27 Antworten mit Zitat
Doch, kann man. Aber du kannst sie nur global, also außerhalb einer Funktion definieren.

wunderkind

Sa, Aug 21, 2004 21:27
Antworten mit Zitat

Doch, kann man. Aber du kannst sie nur global, also außerhalb einer Funktion definieren.

	tipfehler	Sa, Aug 21, 2004 21:31 Antworten mit Zitat
mm das ist ja doof, dann kann ich ja meine Funktion gar nicht allgemeingültig verwenden dann mach ichs mit Dim....

tipfehler

Sa, Aug 21, 2004 21:31
Antworten mit Zitat

mm das ist ja doof, dann kann ich ja meine Funktion gar nicht allgemeingültig verwenden Sad

dann mach ichs mit Dim....

	Timo	Sa, Aug 21, 2004 21:38 Antworten mit Zitat
sicher geht das, du darfst nur nicht ein Type in einer Funktion deklarieren Code: [AUSKLAPPEN] [EINKLAPPEN] ;so nicht! function machwas() Type hallo Field counter end Type ...blablabla end function sondern Code: [AUSKLAPPEN] [EINKLAPPEN] Type hallo Field counter end Type Function machwas() ...blablabla End function

Timo

Sa, Aug 21, 2004 21:38
Antworten mit Zitat

sicher geht das, du darfst nur nicht ein Type in einer Funktion deklarieren

Code: [AUSKLAPPEN]

;so nicht!
function machwas()
Type hallo
Field counter
end Type
...blablabla
end function

sondern
Code: [AUSKLAPPEN]

Type hallo
Field counter
end Type

Function machwas()
...blablabla
End function

	tipfehler	Sa, Aug 21, 2004 21:41 Antworten mit Zitat
Ist schon klar, aber wenn ich eine allgemeingültige Funktion schreiben will, dann will ich vorher doch nicht vorher immer die Types deklarieren müssen. Mit Dim[Zahl] gehts genauso

tipfehler

Sa, Aug 21, 2004 21:41
Antworten mit Zitat

Ist schon klar, aber wenn ich eine allgemeingültige Funktion schreiben will, dann will ich vorher doch nicht vorher immer die Types deklarieren müssen.
Mit Dim[Zahl] gehts genauso

	Timo	Sa, Aug 21, 2004 21:48 Antworten mit Zitat
aso, hatte dich falsch verstanden... joa da ist dann wohl Dim besser

Timo

Sa, Aug 21, 2004 21:48
Antworten mit Zitat

aso, hatte dich falsch verstanden... joa da ist dann wohl Dim besser Smile

	tipfehler	Sa, Aug 21, 2004 22:36 Antworten mit Zitat
Mist ihr hattet doch recht Types ist besser, da man variable[irgendwas] nicht Dynamisch benutzen kann. Da bleibt mir wohl nichts übrig als doch eine Globale Deklaration zu setzen. Belegt die Deklaration, als zB Code: [AUSKLAPPEN] [EINKLAPPEN] Type irgendwas Field iregendwaswas end Type auch Systemresourcen??

tipfehler

Sa, Aug 21, 2004 22:36
Antworten mit Zitat

Mist ihr hattet doch recht Embarassed

Types ist besser, da man variable[irgendwas] nicht Dynamisch benutzen kann. Da bleibt mir wohl nichts übrig als doch eine Globale Deklaration zu setzen. Sad

Belegt die Deklaration, als zB

Code: [AUSKLAPPEN]

Type irgendwas
Field iregendwaswas
end Type

auch Systemresourcen??

Gehe zu Seite 1, 2 Weiter

Übersicht

BlitzBasic

Allgemein

Nach Oben

BlitzBasic Portal

Frage zu Readline

Betreff: Frage zu Readline