PureBoard

Verfasst: **11.12.2005 19:03**

Hallo,
ich möchte erst mal um vergebung bitten wenn es schon einen Ähnlichen beirag gibt. Ich habe zwar die Forumsuche genutzt aber nichts gefunden, vieleicht habe ich auch nur die falschen suchbegriffe verwendet.

Ich möchte aus einer Datei bestimmte zeilen auslesen und anzeigen bzw. verwenden.

Die Datei ist eine txt datei und sieht in etwa so aus:

Code: Alles auswählen

http://Webradiostream.de:8000
Logo: Logos\Logo Datei.jpg ;oder *.gif, *.png, *.bmp
Info: Radio Info oder Kommentar
IRCServer: irc.server.de
IRCChanel: #chanel

Die erste Zeile auslesen ist kein thema denn das habe ich in der PB Hilfe gefunden.

Verfasst: **11.12.2005 19:06**

schau dir mal die Preference befehle an

Verfasst: **11.12.2005 19:19**

Code: Alles auswählen

pbFile  = ReadFile(#PB_Any,"c:\\boot.ini")
line    = 2

While Eof(pbFile) = 0
  i + 1
  If i = line
    String.s = ReadString()
    CloseFile(pbFile)
    Break
  Else
    ReadString()
  EndIf 
Wend 

Debug String

Green Snake hat geschrieben:schau dir mal die Preference befehle an

Und was hat er davon ?

Verfasst: **11.12.2005 20:08**

Erst mal danke für die schnellen antworten

@Green Snake
Ich habe da was gefunden aber es will nicht so wirklich klappen...

@hallodri
bei deinen Beispiel code bin ich etwas verwirt...
Irriteren tut mich "line = 2" und dann noch "i + l" und dann noch die schleife...

@alle

Ich habe dann noch dieses gefunden.

Code: Alles auswählen

  If ReadFile(0,"test.txt")
    While Eof(0) <> 0
      If zeile1$ = ""
        zeile1$ = ReadString()
        Debug zeile1$
      EndIf
      If zeile2$ = ""
        zeile2$ = ReadString()
        Debug zeile2$
      EndIf
    Wend
    CloseFile(0)
  Else
    MessageRequester("Information","Konnte Datei nicht öffnen!")
  EndIf

Aber das will nicht klappen

ich komme bei "If zeile1$ = """ und bei "If zeile2$ = """ nicht in die bedingung rein obwohl die Strings leer sind...

Verfasst: **11.12.2005 20:28**

bekannter fehler, so muss es lauten

Code: Alles auswählen

If ReadFile(0,"test.txt") 
  While Eof(0) = 0 
    If zeile1$ = "" 
      zeile1$ = ReadString() 
      Debug zeile1$ 
    EndIf 
    If zeile2$ = "" 
      zeile2$ = ReadString() 
      Debug zeile2$ 
    EndIf 
  Wend 
  CloseFile(0) 
Else 
  MessageRequester("Information","Konnte Datei nicht öffnen!") 
EndIf

Verfasst: **11.12.2005 20:42**

@
Green Snake
super hat geklapt

danke

Verfasst: **11.12.2005 20:48**

moin, moin...

Magix-Soft <Kain> hat geschrieben:Ich möchte aus einer Datei bestimmte zeilen auslesen und anzeigen bzw. verwenden.

Wovon ist es denn abhängig, ob Du eine Zeile lesen willst ?
Zeilenzahl ?
Bestimmter Text in der Zeile ?
Dann böte sich IMHO eine select... case... - Konstruktion an.

bis denne...
scholly

Verfasst: **11.12.2005 21:22**

Mit der FastFileText-Lib von Rings, die auch im PBOSL-Paket enthalten ist,
kann man ganz einfach einzelne Zeilen aus Textdateien auslesen.

Verfasst: **11.12.2005 21:28**

Magix-Soft <Kain> hat geschrieben: @hallodri
bei deinen Beispiel code bin ich etwas verwirt...
Irriteren tut mich "line = 2" und dann noch "i + l" und dann noch die schleife...

line ist die Zeile die du haben moechtest , in diesem Fall die 2.. i ist ein
einfacher Zaehler der die Zeilen zaehlt : i + 1 (eins nicht L) ist das gleiche
wie i = i + 1.

Verfasst: **05.02.2006 12:43**

wie kann man die denn per messagerequester anzeigen lassen

PureBoard

Bestimme Zeilen aus einer Datei auslesen.

Bestimme Zeilen aus einer Datei auslesen.

Re: Bestimme Zeilen aus einer Datei auslesen.

anzeigen