Hallo Leute ich bin ein ziemlicher Anfänger was Visual Basic angeht.
Ich wollte ein kleines Tool schreiben mit dem ich eine Txt datei in einem bestimmten Format einlesen kann und es in einem anderen Format wieder Ausgeben kann.
eingabe Format soll eine Koordinatenliste in Folgender Form sein: (punktnummer)(3 Leerzeichnen)(Punktcode)(2Leerzeichen)(Rechtwert)(2 Leerzeichen)(Hochwert)(2 Leerzeichen)(Höhe) also Bsp. 200145 00008 2415821.215 5774521.568 100.214
Ausgabeformat soll sein: (Punktnummer)(2 LZ ein Komma 2LZ)(Rechtswert)(2 LZ ein Komma 2LZ)(Hochwert)(2 LZ ein Komma 2LZ)(Höhe)(2 LZ ein Komma 2LZ)(Punktcode)
Bsp. 200145 , 2415821.215 , 5774521.568 , 100.214 , 00008
Diesen Quellcode habe ich bis jetzt für das einlesen und speichern der Datei:
Habe 2 Buttons und eine Richtext box und zwei labels
ich brauche jetzt nur noch einen Button der das gewünschte Format in der Richbox ändert und dann kann ich es ausgeben.
Vielen Dank im vorraus
cheesy1892
(Habe visual basic 2010 express)
Verschoben und Codetag eingefügt. ~Trade
Ich wollte ein kleines Tool schreiben mit dem ich eine Txt datei in einem bestimmten Format einlesen kann und es in einem anderen Format wieder Ausgeben kann.
eingabe Format soll eine Koordinatenliste in Folgender Form sein: (punktnummer)(3 Leerzeichnen)(Punktcode)(2Leerzeichen)(Rechtwert)(2 Leerzeichen)(Hochwert)(2 Leerzeichen)(Höhe) also Bsp. 200145 00008 2415821.215 5774521.568 100.214
Ausgabeformat soll sein: (Punktnummer)(2 LZ ein Komma 2LZ)(Rechtswert)(2 LZ ein Komma 2LZ)(Hochwert)(2 LZ ein Komma 2LZ)(Höhe)(2 LZ ein Komma 2LZ)(Punktcode)
Bsp. 200145 , 2415821.215 , 5774521.568 , 100.214 , 00008
Diesen Quellcode habe ich bis jetzt für das einlesen und speichern der Datei:
VB.NET-Quellcode
- Public Class Form1
- Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- OpenFileDialog1.ShowDialog()
- Label1.Text = OpenFileDialog1.FileName
- TextBox1.Text = My.Computer.FileSystem.ReadAllText(Label1.Text)
- End Sub
- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
- SaveFileDialog1.ShowDialog()
- My.Computer.FileSystem.WriteAllText(SaveFileDialog1.FileName + "txt",
- TextBox1.Text, False)
- End Sub
- End Class
Habe 2 Buttons und eine Richtext box und zwei labels
ich brauche jetzt nur noch einen Button der das gewünschte Format in der Richbox ändert und dann kann ich es ausgeben.
Vielen Dank im vorraus
cheesy1892
(Habe visual basic 2010 express)
Verschoben und Codetag eingefügt. ~Trade
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Trade“ ()