Eine .txt öffen mit FileStream

[tomycat]

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

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.

[heliosdev]

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

[tomycat]

hi,
thx.




Den Code habe vom ganz am Anfang gesetzt form1.vb

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:

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

[Squpix]

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)

[tomycat]

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?

[heliosdev]

Statt ReadToEnd die Methode ReadLine verwenden.

[tomycat]

thx, habe hinbekommmen

[tomycat]

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"

[heliosdev]

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)

[tomycat]

thx thx thx