Eine .txt öffen mit FileStream

hallo,
Ich habe das folgendes codestück im Internet gefunden, das ist nicht auf meinem Mist gewachsen :-)

PHP-Code:

---

Const DATEINAME As String = _
    "d:\buch\dateisystem\protokoll.txt"
  ' --- Datei öffnen
  Dim fs As FileStream = New FileStream( _
    DATEINAME,FileMode.OpenOrCreate, _
    FileAccess.ReadWrite)
  ' --- Stream öffnen
  Dim r As StreamReader = New StreamReader(fs)
  ' --- Zeiger auf den Anfang
  r.BaseStream.Seek(0, SeekOrigin.Begin)
  ' --- Alle Zeilen lesen und an Console ausgeben
  While r.Peek() > -1
    say(r.ReadLine())
  End While
  ' --- Reader und Stream schließen
  r.Close()
  fs.Close() 


---

Mein Ziel ist es Zeilenweise eine Textdatei auslesen.
Leider kennt mein Windows Mobile die Funktion FileStream nicht :-(

error BC30002: Type 'FileStream' is not defined.

Direkt die StreamReader Klasse verwenden. Die StreamReader Klasse (im namespace System.IO) bietet eine ReadLine Methode an. Schau Dir mal diese Beispiele an.
How to: Read text from a file

hi,
thx.




Den Code habe vom ganz am Anfang gesetzt form1.vb

PHP-Code:

---

Imports System Imports System.IO 


---

Der Code geht in meinem Button
-----------------code------------
Try
' Create an instance of StreamReader to read from a file.
' The using statement also closes the StreamReader.
Using sr As New StreamReader("TestFile.txt")
Dim line As String
' Read and display lines from the file until the end of
' the file is reached.
Do
line = sr.ReadLine()
If Not (line Is Nothing) Then
Console.WriteLine(line)
End If
Loop Until line Is Nothing
End Using
Catch e As Exception
' Let the user know what went wrong.
Console.WriteLine("The file could not be read:")
Console.WriteLine(e.Message)
End Try


-----------------code Ende-------------

der Fehlercode:

PHP-Code:

---

error BC30616: Variable 'e' hides a variable in an enclosing block. 


---

Kann es sein, dass die Funktion, in der Du den try... catch Block aufrufst, als Übergabe Paramter auch ein e verwendet? Der exception Parameter ist auch mit e benannt.

Sent from my GT-I9000 using Tapatalk

Edit:
Wird wohl so sein, wenn Du den Code Schnipsel in einer Button_Click Funktion aufrufst, die hat e As EventArgs als Aufrufparameter, daher also besser
Catch ex As Exception und dann natürlich Console.WriteLine(ex.Message)

OpenF.InitialDirectory = "besteller"
OpenF.Filter = "nur Karte (*.txt) | *.txt"
OpenF.ShowDialog()

Dim R As New IO.StreamReader(OpenF.FileName)
bnr.Text = R.ReadToEnd
R.Close()
--------------------------
Ich möchte aber nur die 2te Zeile auslesen.Idee?

Statt ReadToEnd die Methode ReadLine verwenden.

thx, habe hinbekommmen

ok,
letzte Frage, wenn ich einen Pfad dirket angeben, wie beginnt er dann?
Die DAtei befindet sich dirkt im root Verzeichnis.
Z.B. geht nicht "C:\test.bmp" oder "test.bmp" oder "\\test.bmp" oder "\test.bmp"

Das root Verzeichnis ist @"\". (@ wird bei strings mit Pfaden gebraucht, um nicht \\ schreiben zu müssen)
Um Pfade zu erstellen ist die Klasse Path (im IO namespace) ganz nützlich. (z.B. Path.Combine(@"\", test.bmp) retourniert den Pfad)

thx thx thx