Diese Seite ist unverschlüsselt! Um sicherzustellen, das Ihr Passwort nicht ausgelesen werden kann, sollten Sie auf die verschlüsselte Seite wechseln!

    Herzlich Willkommen, lieber Gast!
  Sie befinden sich hier:

  Forum » Visual Basic 6.0 / VBA » String Problem
Forum | Hilfe | Team | Links | Impressum | > Suche < | Mitglieder | Registrieren | Einloggen
  Quicklinks: MSDN-Online || STL || clib Reference Grundlagen || Literatur || E-Books || Zubehör || > F.A.Q. < || Downloads   

Autor Thread - Seiten: > 1 < [ 2 ]
000
27.09.2004, 10:49 Uhr
FlAsH
keine Ahnung


Hey versuche eine Console zu machen also habe ich angefangen
doch jetzt gibt es ein prblem ich will wenn ein text "Open notepad" steht das es notepad öffnen soll:

Visual Basic:
Private Sub Command_KeyPress(KeyAscii As Integer)
On Error Resume Next
If KeyAscii = 13 Then
'******** Probe **********
'Open ereignis
CommandLeft = Left(Command.Text, 5)
If CommandLeft = "Open " Then
CommandLeft = Len(CommandLeft)
CommandLeft = CommandLeft - 5
Shell CommandLeft, vbNormalFocus
CommandList.AddItem CommandLeft
End If
End If
End Sub

Private Sub Form_Load()
Dim CommandLeft As String
End Sub

Leider gibt der string 0 zurück
Wieso, wie kann ich das lösen?
 
Profil || Private Message || Suche Download || Zitatantwort || Editieren || Löschen || IP
001
27.09.2004, 10:50 Uhr
FlAsH
keine Ahnung


Ups ich glaube ich habe den Fehler habe ich da bei Len was ausgelassen
 
Profil || Private Message || Suche Download || Zitatantwort || Editieren || Löschen || IP
002
27.09.2004, 10:55 Uhr
FlAsH
keine Ahnung


Dieser stimmt:

Visual Basic:
Private Sub Command_KeyPress(KeyAscii As Integer)
On Error Resume Next
If KeyAscii = 13 Then
'******** Probe **********
'Open ereignis
CommandLeft = Left(Command.Text, 5)
If CommandLeft = "Open " Then
CommandLeft = Len(Command.Text)
CommandLeft = CommandLeft - 5
CommandLeft = Right(Command.Text, CommandLeft)
Shell CommandLeft, vbNormalFocus
CommandList.AddItem Command.Text
End If
End If
End Sub

Private Sub Form_Load()
Dim CommandLeft As String
End Sub
 
Profil || Private Message || Suche Download || Zitatantwort || Editieren || Löschen || IP
003
27.09.2004, 14:35 Uhr
sXene[WARE]



 Shell "C:\Windows\system32\notepad.exe" !?!??
--
sXene.de
Dieser Post wurde am 27.09.2004 um 14:35 Uhr von sXene[WARE] editiert.
 
Profil || Private Message || Suche Download || Zitatantwort || Editieren || Löschen || IP
004
28.09.2004, 10:29 Uhr
FlAsH
keine Ahnung


notepad kann man auch ohne den ganzen pfad anzugeben öffnen
 
Profil || Private Message || Suche Download || Zitatantwort || Editieren || Löschen || IP
005
28.09.2004, 16:54 Uhr
sXene[WARE]



 hmm kann man das? jo kann sein aber warum sollte man das anders machen?
wenn man windows hat is notepad in dem verzeichnis..
--
sXene.de
 
Profil || Private Message || Suche Download || Zitatantwort || Editieren || Löschen || IP
006
28.09.2004, 17:04 Uhr
sXene[WARE]



 ich würd das script so schreiben:


Visual Basic:
Private Sub Command_KeyPress(KeyAscii As Integer)
On Error Resume Next
If KeyAscii = 13 Then SubOpenDialoge
End Sub

Public Sub SubOpenDialoge()
If Command.Text = "open notepad" then Shell "C:\Windows\system32\notepad.exe"
If Command.Text = "open konsole" then Shell "C:\Windows\system32\cmd.exe"
If Command.Text = "open telnet" then Shell "C:\Windows\telnet.exe"
If Command.Text = "open explorer" then Shell "C:\Windows\explorer.exe"
If Command.Text = "open taschenrechner" then Shell "C:\Windows\system32\calc.exe"
'e.t.c.
End Sub

--
sXene.de
 
Profil || Private Message || Suche Download || Zitatantwort || Editieren || Löschen || IP
007
28.09.2004, 21:24 Uhr
FlAsH
keine Ahnung


Ich will aber jedes programm öffnen können so muss ich ja alle programme auflisten!
 
Profil || Private Message || Suche Download || Zitatantwort || Editieren || Löschen || IP
008
29.09.2004, 22:22 Uhr
FloSoft
Medialer Over-Flow
(Administrator)


hmm machs mal so


Visual Basic:
If Left( Command.Text, 5 ) = "open " Then
  Shell  "C:\Windows\system32\" & Mid( Command.Text, 5 ) & ".exe"
Endif


evtl musst du bei Left oder bei Mid den 2ten Parameter noch anpassen, kann sein das es noch um eins verschoben ist.
--
class God : public ChuckNorris { };
 
Profil || Private Message || Suche Download || Zitatantwort || Editieren || Löschen || IP
009
30.09.2004, 11:03 Uhr
FlAsH
keine Ahnung


Das würde gehen doch das andere geht ja...
man muss nur
Open {Filename}
eingeben und schon wird {Filename} Geöffnet
 
Profil || Private Message || Suche Download || Zitatantwort || Editieren || Löschen || IP
Seiten: > 1 < [ 2 ]     [ Visual Basic 6.0 / VBA ]  


ThWBoard 2.73 FloSoft-Edition
© by Paul Baecher & Felix Gonschorek (www.thwboard.de)

Anpassungen des Forums
© by Flo-Soft (www.flo-soft.de)

Sie sind Besucher: