Tutorial's von A - Z (www.Knuddels.de.ch.at.MFC)

[TUT] Mein txt Umwandler

So da ich Leiderweise keine zeit mehr hab den Txt Umwandler zu verbessern.[http://k-script.de/board/showthread.php?t=968]
Zeig ich euch wie ihr den selber programmieren könnt!
Und wer dann noch leichte Erfahrung hat kann selber seine wünsche erfüllen!
Also Öffnet VB.NET
Ich braucht:
3 Buttons
2 textboxen
2 Openfiledialog

Klickt auf ein Button (start) und schreibt rein

Code:

Dim ls_textbox2 As String
        Dim ls_textbox As String
        Dim ll_laenge As Integer
        Dim ll_i As Integer
        Dim ls_String As String
        Dim ls_ergebnis As String = ""
        Dim ls_zeichen As String = ""
        ls_textbox = TextBox1.Text
        ls_textbox2 = TextBox2.Text


        ls_String = My.Computer.FileSystem.ReadAllText(ls_textbox) 'Liest die datei aus und belegt ls_string'
        ll_laenge = Len(ls_String) 'Das schaut wie lang Ls-String ist'

        For ll_i = 1 To ll_laenge 'Schleife[So lange wie Ll-laenge ist]30000]
            ls_zeichen = Mid(ls_String, ll_i, 1) 'liest immer einen buchstaben aus'

            If ls_zeichen = " " Then 'Wir zu enter dan gemacht'
                ls_zeichen = Chr(13) + Chr(10) 'Das ist Enter'
            End If
            ls_ergebnis = ls_ergebnis + ls_zeichen
        Next

        My.Computer.FileSystem.WriteAllText(ls_textbox2, ls_ergebnis, False) 'Da wird die neue datei geschrieben
        MsgBox("Fertig")

Ich hab euch schon dort beschriftet was was macht.^^
Dann klickt ihr auf Opfenfiledialog1 und schreibt rein:

Code:

Dim strm As System.IO.Stream
        strm = OpenFileDialog1.OpenFile()
        TextBox1.Text = OpenFileDialog1.FileName.ToString()
        If Not (strm Is Nothing) Then

            strm.Close()


        End If

Das selbe macht ihr mit dem zweiten halt beschriftet ihr das zweite mit den Daten vom zweiten also(textbox2.text und openfiledialog2)
dann klickt ihr auf den nächsten Button (GO)

Code:

OpenFileDialog1.Title = "Wähle eine .TxT Datei aus."
        OpenFileDialog1.InitialDirectory = "C:temp"

        OpenFileDialog1.ShowDialog()

Das macht ihr dann auch mit den letzen Button^^(nicht vergessen anpassen auf dei Daten)^^

Sodale das was es eigentlich auch schon ^^
Wenn ihr mein Projekt was ich Released hab kennt dann wirst ihr was ich genau meine mit (start) und (Go)
Viel Spaß damit ^^

Bei weiter Veröffentlichung zuerst mich fragen...