txt beschreiben und wieder auslesen

  • VB.NET

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    txt beschreiben und wieder auslesen

    Hallo zusammen

    Ich habe ein kleines Problem. Ich bekomme ein bestimmtes Wort ("BAP") in die Text datei geschrieben und auch wieder gelöscht.

    Er schreibt in der erste Zeile BAP anschließend in die nächste Zeile BAP lösche ich es funktioniert es teilweise nur bei dem zweiten klick. Also mal löscht er das Wort/Zeile , manchmal aber er beim zweiten Klick,
    In Txt schreiben

    VB.NET-Quellcode

    1. My.Computer.FileSystem.WriteAllText(TextBox1.Text & "\BAP.dll", "BAP" & vbNewLine, True)
    2. MsgBox("BAP hinzugefügt")



    und wieder raus löschen

    VB.NET-Quellcode

    1. Try Dim lines As String() = My.Computer.FileSystem.ReadAllText( _ filename, System.Text.Encoding.Default).Split(vbCr)
    2. If line > 0 AndAlso line <= lines.Length Then Dim oStream As IO.StreamWriter = Nothing Try oStream = New IO.StreamWriter(filename, False, System.Text.Encoding.Default)
    3. Dim bNext As Boolean = False For i As Integer = 0 To lines.Length - 1 If i + 1 <> line Then If bNext Then oStream.Write(vbCr) oStream.Write(lines(i)) bNext = True End If Next
    4. Catch ex As Exception Finally If Not IsNothing(oStream) Then oStream.Close() End Try
    5. End If Catch ex As Exception End Try




    VB.NET-Quellcode

    1. DelLineFromFile(TextBox1.Text & "\BAP.dll", 1)
    2. MsgBox("BAP entfernt")



    Kannmir jemand meinen Fehler zeigen.

    Habe mal das Projekt mit Hochgeladen wer es Live sehen möchte

    Danke schonmal für eure Hilfe
    Dateien

    Dein Projekt hat 42 Fehler. Schalte OPTION STRICT ON, behebe die Fehler, dann klärt es sich womöglich von selber. So kann man Dir nicht helfen. Ferner entferne den Microsoft.VisualBasic NameSpace und verwende die Member des FrameWorks.

    EDIT: [VB 2010] Instanziierung von Forms und Aufruf von Dialogen
    Die Unendlichkeit ist weit. Vor allem gegen Ende. ?(
    Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken. 8o

    Hi SpacayX

    Schön dich wieder zu sehen. Also mit dem Strict on hast du mir letzens schon gesagt. Aber irgendwie ist es wieder untergegangen. Habe es jetzt korrigiert.

    Habe mich mal mit Namespace versucht vertraut zu machen.

    Link msdn.microsoft.com/de-de/libra…cs-lang=vb#code-snippet-1

    Da steig ich ja nun mal gar nicht durch. Was ist das und wozu ist es gut?

    Wie würde sich das auf mein Projekt auswirken?

    Gruß Skyjazz
    Dateien

    In einem NameSpace befindent sich Klassen, Interfaces, Enums usw., die thematisch zusammenpassen, um es mal so auszudrücken. Z. B. befinden sich im System.IO-NameSpace Klassen usw, die mit Dateioperationen zu tun haben. Nun leider gibt es in VB.Net den Microsoft.VisualBasic NameSpace, in dem alte Klassen, Funktionen usw., die noch aus VB6 Zeiten stammen und in der .NET-Welt nichts mehr verloren haben. Hier ist eine kurze Abhandlung über dieses Thema. Bekannt als "böse Funktionen"

    vb-paradise.de/allgemeines/tip…nen-vermeiden/#post757971
    Die Unendlichkeit ist weit. Vor allem gegen Ende. ?(
    Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken. 8o

    Skyjazz schrieb:

    Aber irgendwie ist es wieder untergegangen.
    1. auf Datei-Ebene (gilt nur für diese Datei):

    VB.NET-Quellcode

    1. Option Strict On
    2. Public Class MyClass
    3. ' ...
    4. End Class
    2. auf Projektebene: Projekt -> Eigenschaften -> Kompilieren (gilt nur für dieses Projekt):

    3. auf Studio-Ebene: Tools -> Options -> Projects and Solutions -> VB Defaults (gilt für alle neuen Projekte):
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!