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

    Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

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

      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:

      Quellcode

      1. If Antwort = "clear" Then
      2. COMMAND
      3. TEXTZEILE
      4. End If


      Also z.b.

      Quellcode

      1. If Antwort = "clear" Then
      2. Console.Clear()
      3. Console.WriteLine("Cleared.")
      4. End If


      Die neuen Command sollte dann etwa so aussehen:

      Quellcode

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


      Quellcode

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


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

      Ich hoffe ihr könnt mir helfen. :)

      MfG
      Kaev

    • Werbung zur Unterstützung des Forums ( Bitte AddBlocker deaktivieren )

    • 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.

    • 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:

      Quellcode

      1. Dim Reader As New StreamReader("Test.txt")
      2. Dim Test as String
      3. Dim Zahl as Integer
      4. While (Test != "")
      5. Test = Reader.ReadLine()
      6. If Test != "" Then
      7. Zahl = Zahl + 1
      8. End If
      9. 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

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

      Quellcode

      1. [COM]
      2. Count=2
      3. [COM1]
      4. Shell=C:\programme\adobe\photoshop\photoshop.exe
      5. Com=photoshop
      6. [COM2]
      7. Shell=C:\windows\editor.exe
      8. 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.

    • 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

    • Am einfachsten ist sowas mit einer *.ini datei.

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

      Quellcode

      1. Option Explicit On
      3. Public Class INIDatei
      4. 'Funktionen(DLL)zum LESEN einer *.INI deklarieren
      5. Private Declare Ansi Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" ( _
      6. ByVal lpApplicationName As String, ByVal lpSchlüsselName As String, ByVal lpDefault As String, _
      7. ByVal lpReturnedString As String, ByVal nSize As Integer, ByVal lpFileName As String) As Integer
      9. 'Funktion(DLL)zum SCHREIBEN in eine *.INI deklarieren
      10. Private Declare Ansi Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" ( _
      11. ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, _
      12. ByVal lpFileName As String) As Integer
      14. 'Funktion(DLL)zum Löschen einer gesammten Sektion deklarieren
      15. Private Declare Ansi Function DeletePrivateProfileSection Lib "kernel32" Alias "WritePrivateProfileStringA" ( _
      16. ByVal Section As String, ByVal NoKey As Integer, ByVal NoSetting As Integer, _
      17. ByVal FileName As String) As Integer
      19. ' Öffentliche Klassenvariablen (Der Pfad zur *.INI)
      20. Public INIpfad As String
      22. 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
      23. ' Testen, ob ein Pfad zur INI in die Variable INIpfad eingetragen wurde
      24. If INIpfad = "" Then
      25. MsgBox("Es ist kein Pfad zur INI angegeben. Deshalb ist das Auslesen des Wertes nicht möglich." _
      26. & vbCrLf & vbCrLf & "Angeforderte Sektion: " & Sektion & vbCrLf & "Angeforderter Schlüssel: " _
      27. & Schlüssel, MsgBoxStyle.Exclamation, "Pfad zur INI-Datei fehlt")
      28. WertLesen = "Lesefehler"
      29. Exit Function
      30. End If
      32. ' Testen, ob die *.INI Datei existiert
      33. If IO.File.Exists(INIpfad) = False Then
      34. MsgBox("Die angegebene INI-Datei exstiert auf diesem Rechner nicht. Deshalb ist das " _
      35. & "Auslesen des Wertes nicht möglich." & vbCrLf & vbCrLf & "INI-Datei: " & INIpfad _
      36. & vbCrLf & "Angeforderte Sektion: " & Sektion & vbCrLf & "Angeforderter Schlüssel: " _
      37. & Schlüssel, MsgBoxStyle.Exclamation, "Pfad zur INI-Datei fehlt")
      38. WertLesen = "Lesefehler"
      39. Exit Function
      40. End If
      42. ' Auslesen des Wertes
      43. Dim sTemp As String = Space(BufferSize)
      44. Dim Length As Integer = GetPrivateProfileString(Sektion, Schlüssel, Standardwert, sTemp, BufferSize, INIpfad)
      45. Return Left(sTemp, Length)
      46. End Function
      48. Public Sub WertSchreiben(ByVal Sektion As String, ByVal Schlüssel As String, ByVal Wert As String)
      49. ' Testen, ob ein Pfad zur INI in die Variable INIpfad eingetragen wurde
      50. If INIpfad = "" Then
      51. MsgBox("Es ist kein Pfad zur INI angegeben. Deshalb ist das Schreiben des Wertes nicht möglich." _
      52. & vbCrLf & vbCrLf & "Angeforderte Sektion: " & Sektion & vbCrLf & "Zu schreibender Schlüssel: " _
      53. & Schlüssel, MsgBoxStyle.Exclamation, "Pfad zur INI-Datei fehlt")
      54. Exit Sub
      55. End If
      57. ' Testen, ob der Order, in dem die *.INI liegen soll, existiert
      58. Dim Ordner As String
      59. Ordner = IO.Path.GetDirectoryName(INIpfad)
      60. If IO.Directory.Exists(Ordner) = False Then
      61. MsgBox("Die angegebene Ordner für die INI-Datei exstiert auf diesem Rechner nicht. Deshalb ist das " _
      62. & "Schreiben des Wertes nicht möglich." & vbCrLf & vbCrLf & "Fehlender Ordner: " & Ordner _
      63. & vbCrLf & "Angeforderte Sektion: " & Sektion & vbCrLf & "Zu schreibender Schlüssel: " _
      64. & Schlüssel, MsgBoxStyle.Exclamation, "Pfad zur INI-Datei existiet nicht")
      65. Exit Sub
      66. End If
      68. ' Schreiben in die *.INI durchführen
      69. WritePrivateProfileString(Sektion, Schlüssel, Wert, INIpfad)
      70. End Sub
      72. Public Sub SchlüsselLöschen(ByVal Sektion As String, ByVal Schlüssel As String)
      73. ' Testen, ob ein Pfad zur INI in die Variable INIpfad eingetragen wurde
      74. If INIpfad = "" Then
      75. MsgBox("Es ist kein Pfad zur INI angegeben. Deshalb ist das Löschen des Schlüssels nicht möglich." _
      76. & vbCrLf & vbCrLf & "Angeforderte Sektion: " & Sektion & vbCrLf & "Zu löschender Schlüssel: " _
      77. & Schlüssel, MsgBoxStyle.Exclamation, "Pfad zur INI-Datei fehlt")
      78. Exit Sub
      79. End If
      81. ' Testen, ob die der Order, in dem die *.INI liegen soll, existiert
      82. Dim Ordner As String
      83. Ordner = IO.Path.GetDirectoryName(INIpfad)
      84. If IO.Directory.Exists(Ordner) = False Then
      85. MsgBox("Die angegebene Ordner für die INI-Datei exstiert auf diesem Rechner nicht. Deshalb ist das " _
      86. & "Löschen des Wertes nicht möglich." & vbCrLf & vbCrLf & "Fehlender Ordner: " & Ordner _
      87. & vbCrLf & "Angeforderte Sektion: " & Sektion & vbCrLf & "Zu löschender Schlüssel: " _
      88. & Schlüssel, MsgBoxStyle.Exclamation, "Pfad zur INI-Datei existiert nicht")
      89. Exit Sub
      90. End If
      92. ' Löschen des Schlüssels durch eine Schreiboperation durchführen
      93. WritePrivateProfileString(Sektion, Schlüssel, Nothing, INIpfad)
      94. End Sub
      96. Public Sub SektionLöschen(ByVal Sektion As String)
      97. ' Testen, ob ein Pfad zur INI in die Variable INIpfad eingetragen wurde
      98. If INIpfad = "" Then
      99. MsgBox("Es ist kein Pfad zur INI angegeben. Deshalb ist das Löschen der Sektion nicht möglich." _
      100. & vbCrLf & vbCrLf & "Angeforderte Sektion: " & Sektion, MsgBoxStyle.Exclamation, _
      101. "Pfad zur INI-Datei fehlt")
      102. Exit Sub
      103. End If
      105. ' Testen, ob die *.INI Datei existiert
      106. If IO.File.Exists(INIpfad) = False Then
      107. MsgBox("Die angegebene INI-Datei exstiert auf diesem Rechner nicht. Deshalb ist das " _
      108. & "Löschen der Sektion nicht möglich." & vbCrLf & vbCrLf & "INI-Datei: " & INIpfad _
      109. & vbCrLf & "Angeforderte Sektion: ", MsgBoxStyle.Exclamation, "Pfad zur INI-Datei fehlt")
      110. Exit Sub
      111. End If
      113. 'Löschen der Sektion
      114. DeletePrivateProfileSection(Sektion, 0, 0, INIpfad)
      115. End Sub
      117. Public Sub BackupAnlegen(ByVal Zielpfad As String, Optional ByVal FehlermeldungAnzeigen As Boolean = False)
      119. ' Testen, ob ein Pfad zur *.INI vorhanden ist
      120. If INIpfad = "" Then
      121. If FehlermeldungAnzeigen = True Then
      122. MsgBox("Es ist kein Pfad zur INI, von der ein Backup angelegt werden soll, angegeben." _
      123. & "Das Backup konnte NICHT angelegt werden.", MsgBoxStyle.Exclamation, "Pfad zur INI-Datei fehlt")
      124. End If
      125. Exit Sub
      126. End If
      128. ' Testen, ob der Ordner des Zielpfades existiert
      129. Dim Ordner As String
      130. Ordner = IO.Path.GetDirectoryName(INIpfad)
      131. If IO.Directory.Exists(Ordner) = False Then
      132. If FehlermeldungAnzeigen = True Then
      133. MsgBox(Zielpfad & vbCrLf & vbCrLf & "Dieser Ordner existiert nicht." _
      134. & vbCrLf & vbCrLf & "Das Backup konnte NICHT angelegt werden.", MsgBoxStyle.Exclamation, _
      135. "Zielordner existiert nicht")
      136. End If
      137. Exit Sub
      138. End If
      139. ' Kopie der *.INI erstellen
      140. IO.File.Copy(INIpfad, Zielpfad)
      141. End Sub
      143. Private Sub DateiLöschen(Optional ByVal FehlermeldungAnzeigen As Boolean = False)
      144. ' Testen, ob ein Pfad zur *.INI vorhanden ist
      145. If INIpfad = "" Then
      146. If FehlermeldungAnzeigen = True Then
      147. MsgBox("Es ist kein Pfad zur INI, die gelöscht werden soll, angegeben." _
      148. & "Das Löschen konnte NICHT durchgeführt werden.", MsgBoxStyle.Exclamation, "Pfad zur INI-Datei fehlt")
      149. End If
      150. Exit Sub
      151. End If
      153. ' Testen, ob die *.INI Datei existiert
      154. If IO.File.Exists(INIpfad) = False Then
      155. If FehlermeldungAnzeigen = True Then
      156. MsgBox(INIpfad & vbCrLf & vbCrLf & "Diese Datei existiert bereits nicht mehr. " _
      157. & "Das Löschen hat sich damit erübrigt.", MsgBoxStyle.Exclamation, _
      158. "Datei existiert nicht mehr")
      159. End If
      160. Exit Sub
      161. End If
      163. ' Löschen durchführen
      164. IO.File.Delete(INIpfad)
      165. End Sub
      167. End Class
      Alles anzeigen


      lg H4ckHunt3r