Moin,
Suche eine Möglichkeit, dass ich eine Dateiendung abfrage.
Das sieht 1. seh unelegant aus und 2. funktioniert es nicht - warum auch immer.
WENN check = ".bat" ist, DANN ändere check zu ".txt" und speichere dies in Rofl.
Daraus müsste doch folgen: [Pfad]\Datei.bat -> [Pfad]\Datei.txt und erspeichert das dann in "Rofl".
Aber - ich kanns mir nicht erklären - er tut es nicht. Ziel des ganzen ist ein kleiner Bat-Editor, als Abwechslung zum Hex Editor. Gleiche Aufgabe mit unterschiedlichen "Schwierigkeiten".
Greets
Suche eine Möglichkeit, dass ich eine Dateiendung abfrage.
VB.NET-Quellcode
- OpenFileDialog1.ShowDialog()
- For folge = 1 To Len(OpenFileDialog1.FileName)
- check = Mid(OpenFileDialog1.FileName, folge, 4)
- If check = ".txt" Then
- FileOpen(Xy, OpenFileDialog1.FileName, OpenMode.Input)
- Do Until EOF(Xy)
- TextBox1.Text = TextBox1.Text & " " & LineInput(Xy)
- Loop
- FileClose(Xy)
- ElseIf check = ".bat" Then
- Rofl = Replace(OpenFileDialog1.FileName, check, ".txt")
- FileOpen(Xy, rofl, OpenMode.Input)
- Do Until EOF(Xy)
- TextBox1.Text = TextBox1.Text & " " & LineInput(Xy)
- Loop
- FileClose(Xy)
- End IfNext
Das sieht 1. seh unelegant aus und 2. funktioniert es nicht - warum auch immer.
WENN check = ".bat" ist, DANN ändere check zu ".txt" und speichere dies in Rofl.
Daraus müsste doch folgen: [Pfad]\Datei.bat -> [Pfad]\Datei.txt und erspeichert das dann in "Rofl".
Aber - ich kanns mir nicht erklären - er tut es nicht. Ziel des ganzen ist ein kleiner Bat-Editor, als Abwechslung zum Hex Editor. Gleiche Aufgabe mit unterschiedlichen "Schwierigkeiten".
Greets