[Hilfe][VB.Net] Befehle aus .txt

Kaev

Hallo liebe Godlikerz,

Ich habe hier eine Konsolenanwendung.
Ich möchte das die Anwendung die Commands.txt ausliest.
Die Commands.txt soll so aufgebaut sein:

c:\programme\adobe\photoshop\photoshop.exe
photoshop

c:\windows\editor.exe
editor

Also:

Pfad
Befehlname

Pfad Befehlname

Die Anwendung soll die Commands.txt so öffnen das er photoshop in ein Command umwandelt und somit den Pfad starten.

Meine bisherigen Commands sind so aufgebaut:

Code

If Antwort = "clear" Then
COMMAND
TEXTZEILE
End If

Also z.b.

Code

If Antwort = "clear" Then
Console.Clear()
Console.WriteLine("Cleared.")
End If

Die neuen Command sollte dann etwa so aussehen:

Code

If Antwort = "photoshop" Then
Shell("c:\programme\adobe\photoshop\photoshop.exe", vbNormalNoFocus)
Console.WriteLine("Photoshop geöffnet.")
End If

Code

If Antwort = "editor" Then
Shell("c:\windows\editor.exe", vbNormalNoFocus)
Console.WriteLine("Editor geöffnet.")
End If

Und so sollte man dann auch immer neue Commands hinzufügen können.

Ich hoffe ihr könnt mir helfen. :)

MfG
Kaev

g0dskeks

Du kannst es so versuchen:
StreamReader deklarieren(System.IO wird als import benötigt)
Einige Strings deklarieren(bei dir wärens dann 4)
Jede Zeile in einen String laden lassen(also mit dem deklarierten StreamReader)
und dann einfach als Pfad bei Shell den String mit dem gelesenen Pfad
als:
Shell(StringPfad)
StringPfad muss nicht gleich sein ^-^
und bei Console.WriteLine dann einfach in die Klammern:
(ProgrammName + " ist geöffnet")
ProgrammName und ist geöffnet muss nicht gleich sein ^-^
Ich hoffe du weist was ich meine. Kann leider im Moment nicht ausführlicher sein, weil ich gleich weg muss.

Kaev

Wenn ich dann ein neues Command hinzufügen will muss ich dann 2 neue Strings definieren und grade das soll NICHT.
Die Benutzer sollen ja ohne meinen Sourcecode eigene Commands hinzufügen.
Hoffe du verstehst mich.

g0dskeks

Hmm... Verstehen tue ich dich jetzt. Sry da kann ich dir nicht helfen. Weiß es selber nicht. Ich hatte es gewusst aber hab ne Zeit nicht mehr mit VB geproggt(ca. ein Jahr) bzw. nicht mehr häufig geproggt. Evtl. die Auslesen wie viel Zeilen vorhanden sind... wäre dann nur der Anfang und dabei kann ich dir helfen:

Code

Dim Reader As New StreamReader("Test.txt")
Dim Test as String
Dim Zahl as Integer
While (Test != "")
Test = Reader.ReadLine()
If Test != "" Then
Zahl = Zahl + 1
End If
End While

Kann es leider nicht testen bin grad mit der PsP in nem Internet Cafè(wie gesagt bin halt weg) Und leider gibts Visual Studio noch nicht für die PsP xD

Naja hoffe es klappt...

MFG
xpr0keksx

*electriZer*

Also ich würde dir vorschlagen, du machst solch eine ini :

Code

[COM]
Count=2
[COM1]
Shell=C:\programme\adobe\photoshop\photoshop.exe
Com=photoshop
[COM2]
Shell=C:\windows\editor.exe
Com=editor

Das wird alles in ein 2D Array gelesen
Array-0,0 enthält die Anzahl der Commands

Und dann ließt du in einer For-Schleife ( 1 zu Array -0,0 ) die werte durch
in Array x,1 ist der Command ( zB."editor" )
und in Array x,2 ist der Pfad zur Anwendung .

Ich würde dir noch empfehlen, eine Funktion einzubauen mit welcher der User neue Commands hinzufügen kann.
Dann musst du nur wieder die ini auslesen lassen, dann "Count" durch 1 erhöhen und dann eine neue Sektion anlegen "COMX" , "X" ist hierbei die ID, bzw die aktuelle anzahl der Commands.

Kaev

Erstmal danke für eure antworten. :P

*electriZer* könntest du mir evtl. ein Codebeispiel nennen? Ich bin nicht grad der beste auf dem Gebiet und würde da sonst ein paar Stunden lang dran verzweifeln :3 (Vorallem weil ich noch nie mit einer For-Schleife gearbeitet habe ._.)

Danke schonmal :)
MfG

H4ckHunt3r

Am einfachsten ist sowas mit einer *.ini datei.

Zum verwalten von INIDateien... hier eine kleine Klasse... viel spaß damit^^

Code

Option Explicit On


Public Class INIDatei
    'Funktionen(DLL)zum LESEN einer *.INI deklarieren
    Private Declare Ansi Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" ( _
        ByVal lpApplicationName As String, ByVal lpSchlüsselName As String, ByVal lpDefault As String, _
        ByVal lpReturnedString As String, ByVal nSize As Integer, ByVal lpFileName As String) As Integer


    'Funktion(DLL)zum SCHREIBEN in eine *.INI deklarieren
    Private Declare Ansi Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" ( _
        ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, _
        ByVal lpFileName As String) As Integer


    'Funktion(DLL)zum Löschen einer gesammten Sektion deklarieren
    Private Declare Ansi Function DeletePrivateProfileSection Lib "kernel32" Alias "WritePrivateProfileStringA" ( _
        ByVal Section As String, ByVal NoKey As Integer, ByVal NoSetting As Integer, _
        ByVal FileName As String) As Integer


    ' Öffentliche Klassenvariablen (Der Pfad zur *.INI)
    Public INIpfad As String


    Public Function WertLesen(ByVal Sektion As String, ByVal Schlüssel As String, Optional ByVal Standardwert As String = "", Optional ByVal BufferSize As Integer = 1024) As String
        ' Testen, ob ein Pfad zur INI in die Variable INIpfad eingetragen wurde
        If INIpfad = "" Then
            MsgBox("Es ist kein Pfad zur INI angegeben. Deshalb ist das Auslesen des Wertes nicht möglich." _
                & vbCrLf & vbCrLf & "Angeforderte Sektion: " & Sektion & vbCrLf & "Angeforderter Schlüssel: " _
                & Schlüssel, MsgBoxStyle.Exclamation, "Pfad zur INI-Datei fehlt")
            WertLesen = "Lesefehler"
            Exit Function
        End If


        ' Testen, ob die *.INI Datei existiert
        If IO.File.Exists(INIpfad) = False Then
            MsgBox("Die angegebene INI-Datei exstiert auf diesem Rechner nicht. Deshalb ist das " _
                & "Auslesen des Wertes nicht möglich." & vbCrLf & vbCrLf & "INI-Datei: " & INIpfad _
                & vbCrLf & "Angeforderte Sektion: " & Sektion & vbCrLf & "Angeforderter Schlüssel: " _
                & Schlüssel, MsgBoxStyle.Exclamation, "Pfad zur INI-Datei fehlt")
            WertLesen = "Lesefehler"
            Exit Function
        End If


        ' Auslesen des Wertes
        Dim sTemp As String = Space(BufferSize)
        Dim Length As Integer = GetPrivateProfileString(Sektion, Schlüssel, Standardwert, sTemp, BufferSize, INIpfad)
        Return Left(sTemp, Length)
    End Function


    Public Sub WertSchreiben(ByVal Sektion As String, ByVal Schlüssel As String, ByVal Wert As String)
        ' Testen, ob ein Pfad zur INI in die Variable INIpfad eingetragen wurde
        If INIpfad = "" Then
            MsgBox("Es ist kein Pfad zur INI angegeben. Deshalb ist das Schreiben des Wertes nicht möglich." _
                & vbCrLf & vbCrLf & "Angeforderte Sektion: " & Sektion & vbCrLf & "Zu schreibender Schlüssel: " _
                & Schlüssel, MsgBoxStyle.Exclamation, "Pfad zur INI-Datei fehlt")
            Exit Sub
        End If


        ' Testen, ob der Order, in dem die *.INI liegen soll, existiert
        Dim Ordner As String
        Ordner = IO.Path.GetDirectoryName(INIpfad)
        If IO.Directory.Exists(Ordner) = False Then
            MsgBox("Die angegebene Ordner für die INI-Datei exstiert auf diesem Rechner nicht. Deshalb ist das " _
                & "Schreiben des Wertes nicht möglich." & vbCrLf & vbCrLf & "Fehlender Ordner: " & Ordner _
                & vbCrLf & "Angeforderte Sektion: " & Sektion & vbCrLf & "Zu schreibender Schlüssel: " _
                & Schlüssel, MsgBoxStyle.Exclamation, "Pfad zur INI-Datei existiet nicht")
            Exit Sub
        End If


        ' Schreiben in die *.INI durchführen
        WritePrivateProfileString(Sektion, Schlüssel, Wert, INIpfad)
    End Sub


    Public Sub SchlüsselLöschen(ByVal Sektion As String, ByVal Schlüssel As String)
        ' Testen, ob ein Pfad zur INI in die Variable INIpfad eingetragen wurde
        If INIpfad = "" Then
            MsgBox("Es ist kein Pfad zur INI angegeben. Deshalb ist das Löschen des Schlüssels nicht möglich." _
                & vbCrLf & vbCrLf & "Angeforderte Sektion: " & Sektion & vbCrLf & "Zu löschender Schlüssel: " _
                & Schlüssel, MsgBoxStyle.Exclamation, "Pfad zur INI-Datei fehlt")
            Exit Sub
        End If


        ' Testen, ob die der Order, in dem die *.INI liegen soll, existiert
        Dim Ordner As String
        Ordner = IO.Path.GetDirectoryName(INIpfad)
        If IO.Directory.Exists(Ordner) = False Then
            MsgBox("Die angegebene Ordner für die INI-Datei exstiert auf diesem Rechner nicht. Deshalb ist das " _
                & "Löschen des Wertes nicht möglich." & vbCrLf & vbCrLf & "Fehlender Ordner: " & Ordner _
                & vbCrLf & "Angeforderte Sektion: " & Sektion & vbCrLf & "Zu löschender Schlüssel: " _
                & Schlüssel, MsgBoxStyle.Exclamation, "Pfad zur INI-Datei existiert nicht")
            Exit Sub
        End If


        ' Löschen des Schlüssels durch eine Schreiboperation durchführen
        WritePrivateProfileString(Sektion, Schlüssel, Nothing, INIpfad)
    End Sub


    Public Sub SektionLöschen(ByVal Sektion As String)
        ' Testen, ob ein Pfad zur INI in die Variable INIpfad eingetragen wurde
        If INIpfad = "" Then
            MsgBox("Es ist kein Pfad zur INI angegeben. Deshalb ist das Löschen der Sektion nicht möglich." _
                & vbCrLf & vbCrLf & "Angeforderte Sektion: " & Sektion, MsgBoxStyle.Exclamation, _
                "Pfad zur INI-Datei fehlt")
            Exit Sub
        End If


        ' Testen, ob die *.INI Datei existiert
        If IO.File.Exists(INIpfad) = False Then
            MsgBox("Die angegebene INI-Datei exstiert auf diesem Rechner nicht. Deshalb ist das " _
                & "Löschen der Sektion nicht möglich." & vbCrLf & vbCrLf & "INI-Datei: " & INIpfad _
                & vbCrLf & "Angeforderte Sektion: ", MsgBoxStyle.Exclamation, "Pfad zur INI-Datei fehlt")
            Exit Sub
        End If


        'Löschen der Sektion
        DeletePrivateProfileSection(Sektion, 0, 0, INIpfad)
    End Sub


    Public Sub BackupAnlegen(ByVal Zielpfad As String, Optional ByVal FehlermeldungAnzeigen As Boolean = False)


        ' Testen, ob ein Pfad zur *.INI vorhanden ist
        If INIpfad = "" Then
            If FehlermeldungAnzeigen = True Then
                MsgBox("Es ist kein Pfad zur INI, von der ein Backup angelegt werden soll, angegeben." _
                    & "Das Backup konnte NICHT angelegt werden.", MsgBoxStyle.Exclamation, "Pfad zur INI-Datei fehlt")
            End If
            Exit Sub
        End If


        ' Testen, ob der Ordner des Zielpfades existiert
        Dim Ordner As String
        Ordner = IO.Path.GetDirectoryName(INIpfad)
        If IO.Directory.Exists(Ordner) = False Then
            If FehlermeldungAnzeigen = True Then
                MsgBox(Zielpfad & vbCrLf & vbCrLf & "Dieser Ordner existiert nicht." _
                   & vbCrLf & vbCrLf & "Das Backup konnte NICHT angelegt werden.", MsgBoxStyle.Exclamation, _
                   "Zielordner existiert nicht")
            End If
            Exit Sub
        End If
        ' Kopie der *.INI erstellen
        IO.File.Copy(INIpfad, Zielpfad)
    End Sub


    Private Sub DateiLöschen(Optional ByVal FehlermeldungAnzeigen As Boolean = False)
        ' Testen, ob ein Pfad zur *.INI vorhanden ist
        If INIpfad = "" Then
            If FehlermeldungAnzeigen = True Then
                MsgBox("Es ist kein Pfad zur INI, die gelöscht werden soll, angegeben." _
                    & "Das Löschen konnte NICHT durchgeführt werden.", MsgBoxStyle.Exclamation, "Pfad zur INI-Datei fehlt")
            End If
            Exit Sub
        End If


        ' Testen, ob die *.INI Datei existiert
        If IO.File.Exists(INIpfad) = False Then
            If FehlermeldungAnzeigen = True Then
                MsgBox(INIpfad & vbCrLf & vbCrLf & "Diese Datei existiert bereits nicht mehr. " _
                    & "Das Löschen hat sich damit erübrigt.", MsgBoxStyle.Exclamation, _
                   "Datei existiert nicht mehr")
            End If
            Exit Sub
        End If


        ' Löschen durchführen
        IO.File.Delete(INIpfad)
 End Sub


End Class

Alles anzeigen

lg H4ckHunt3r

*electriZer*

ich glaub das teil hier ist schon Geschichte x)
Hatte das mit Kev au in icq besproche, is aber lange her .. x)

Kaev

Ne is noch nicht Geschichte, werde es ausprobieren sobald ich n neues Motherboard habe. -.-

PS: Notfall-Laptop rules xD

[Hilfe][VB.Net] Befehle aus .txt

Jetzt mitmachen!

SCHNELLZUGRIFF

HILFE & COMMUNITY

RECHTLICHES