---

Hallo!

hoffe mir kann jemand helfen, ich benutze Vb.net und habe ein Problem eine Zeile einer Textdatei anzuhängen.

Ich möchte in jedem Schleifenablauf eine Zeile einer Datei anhängen... aber ich bekomme das irgendwie nicht auf die Reihe!

Hoffe mir kann jemand helfen!

Option Strict Off
Imports System
Imports System.IO
Imports System.Windows.Forms
Imports NXOpen
Imports NXOpen.UF
Imports System.Environment
Imports NXOpen.UI
Imports NXOpen.Utilities
Imports NXOpenUI
Imports System.Collections

Module Test

    Sub Main()

        If System.IO.Directory.Exists("c:\temp\nx4") = False Then

            System.IO.Directory.CreateDirectory("c:\temp\nx4")

        End If

        Directory.SetCurrentDirectory("c:\temp\nx4\")

        Dim tmp_file As String = Path.GetFullPath("testliste.txt")

        Dim fs As New FileStream(tmp_file, FileMode.Create, FileAccess.Write)
        Dim sw As New StreamWriter(fs)

        Dim test As Single = 0

        If test = 0 Then
            For i As Integer = 1 To 5

                sw.WriteLine("test")
                sw.Close()         

            Next i
        Else
            Exit Sub
        End If

    End Sub

    Public Function GetUnloadOption(ByVal dummy As String) As Integer

        Return Session.LibraryUnloadOption.Immediately

    End Function

End Module

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

---

...vielleicht über eine Liste die man Anfangs liest, dann füttert

For i = 1 To 5
List1.AddItem blabla
Next

und dann als Textfile speichert.

Gruß

------------------
-Axel- 

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

---

Danke für die fixe Antwort 

Am liebsten wäre mir die Textdatei nach jedem Schleifendurchlauf zu schließen und beim Start der Schleife einfach immer die datei zu öffnen und die eine Zeile einzufügen

Gruß Maikx

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

---

Hallo Maikx,

du musst deinen StreamWriter mit AppendText in einem File Objekt öffnen.

In der MSDN findest du hier ein mehr oder weniger brauchbares Beispiel.

------------------
Mfg Daniel

www.MySldWorks.de - SolidWorks API Snippets

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

---

Noch eine kleine Anmerkung zu meinem Beitrag.

Das du dein StreamWriter über ein FileStream öffnest, kann du die Append Option auch hier als Parameter übergeben:

Dim fs As New FileStream(tmp_file, FileMode.Append, FileAccess.Write)

Hier noch der Beitrag in der MSDN.

------------------
Mfg Daniel

www.MySldWorks.de - SolidWorks API Snippets

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

---

@tbd
Vielen vielen Dank, das hat mir sehr weitergeholfen.. funktioniert wunderbar :-)

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