---

Habe so mein Anfänger Schwierigkeiten

Will eine bestehende txt, in Notepad erstellt, Datei Zeile für Zeile auslesen. Zu meinem Entsetzen wurden alle Daten gelöscht.

Nicht nur dass es so heiß ist, auch das noch 

Code:

Public Class Form1
    Dim Openfiledialog1 As String, Zeile As String

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Openfiledialog1 = "C:\wickeldraehte\wickeldraehte.txt"

        FileOpen(1, Openfiledialog1, OpenMode.Output)

        Zeile = LineInput(2)

        FileClose(1)

    End Sub
End Class

------------------
  wera

[Diese Nachricht wurde von WERA am 20. Jun. 2006 editiert.]

---

http://msdn2.microsoft.com/de-de/library/microsoft.visualbasic.openmode.aspx

Las das gerade:

Wenn Sie sie für eine Eingabe öffnen, wird der Inhalt der Datei auch dann überschrieben, wenn Sie nicht direkt in die Datei schreiben.

 
--
Das gelesen:
http://msdn2.microsoft.com/de-de/library/microsoft.visualbasic.filesystem.fileopen.aspx

------------------
  wera

[Diese Nachricht wurde von WERA am 20. Jun. 2006 editiert.]

---

Nochmal was probiert.
Tatsächlich wird die Datei schon beim öffnen neu angelegt. Das ist gemein

------------------
wera

---

Hallo Wera,

nehme mal an du bist inzwischan auf .net  . ich habe das mit der Textdateiauswertung kürzlich so gelöst:

Code:

---

    Private Sub Datei_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPPDatei.Click

Dim i As UInteger ' Zählvariable

' Datei auswählen
With dlgOpenDatei
.ShowDialog()
End With

If dlgOpenDatei.FileName = "" Then
txtDatei.Focus()
Else

txtDatei.Text = dlgOpenDatei.FileName
DateiArray = IO.File.ReadAllLines(txtDatei.Text)
i = 0

Do Until i > DateiArray.GetUpperBound(0)
If DateiArray(i).Contains("G2") Then
....
End If
i = i + 1
Loop
End If

---

geht auch viel schneller, als jedes Mal auf die Harddisk zuzugreifen.

Axel

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

nehme mal an du bist inzwischan auf .net 
--

Ja habe so ähnliches was Du schreibst auch gelesen,
war mir aber neu. Sehe schon ich sollte es wohl auch so machen.

Danke erst mal  .

------------------
wera

---

So wie ich es unter Deinen Links noch gesehen habe hast Du den Access Parameter gar nicht definiert:

FileSystem.FileOpen(FileNumber, FileName, Mode, Access, Share, RecordLength)

Access    Optional. Eine Enumeration, die die für eine offene Datei erlaubten Operationen angibt: Read, Write oder ReadWrite. Wird standardmäßig auf ReadWrite festgelegt.

Daraus ergibt sich Standard = readWrite

Wenn Du also auf dem "Alten" bleiben willst  , dann solltest Du es mal mit dem Parameter versuchen.

Axel

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von Axel.Strasser:

Wenn Du also auf dem "Alten" bleiben willst    ,
Axel

---

   Ich habe gerade beschlossen, das "neue" zu verstehen.
Und Danke für Tipp zum "alten", ich hatte den Verdacht, dass ich da was mit"Read, Write oder ReadWrite" machen muss.
Vielleicht schaffe ich das am Vorrmittag, Nachmittag sind die Temperaturen zu hoch um etwas zu verstehen       .

------------------
  wera

[Diese Nachricht wurde von WERA am 21. Jun. 2006 editiert.]

---

Code:

---

Imports System.IO

Public Class Form1
    Dim Zeile, DerText, Draht As String
    Dim drahtZ As Single

    Dim StreamAnzeige As StreamReader
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        StreamAnzeige = New StreamReader("C:\wickeldraehte\wickeldraehte.txt")
        DerText = StreamAnzeige.ReadLine
        TextBox1.Text = DerText

        Zeile = StreamAnzeige.ReadLine
        TextBox2.Text = Zeile

        StreamAnzeige.Close()

        Draht = Zeile.Substring(0, 6)

        TextBox3.Text = Draht
        drahtZ = Draht
        TextBox4.Text = drahtZ

    End Sub
End Class

---

Immerhin mal das   .
Klappt so wie ich es will  .

------------------
  wera

[Diese Nachricht wurde von WERA am 22. Jun. 2006 editiert.]