Parameter übernehmen

[kubike]

Hallo erstmal
Meine Frage:
Wie kann ich in VB6 Parameter übernehmen und auswerten ?

Unter DOS kann man einer Batch-Datei parameter mitgeben
und diese innerhalb der Batch mit %1 %2 etc. auswerten.

Wie funktioniert dies mit VB6 ?
Ich habe z.B. ein VB6 Programm das jochen.exe heißt.
Dies möchte ich nun mit jochen "c:\program files\test" starten um
im Programm den Pfad auszuwerten.

Mein VB-Buch gibt hierüber keine Infos.

[Mimo]

Die Übergabeparameter stehen in Command$.

Wenn Du Dein Programm so aufrufst:

MyProg /abc def /ghi=jkl

dann steht in Command$ folgendes: /abc def /ghi=jkl


In der Entwicklungsumgebung kannst Du das Testen, in Du die Parameter wie folgt vorgibst:

-Projekteigenschaften aufrufen
-auf "Erstellen" wechseln
-in "Befehlszeilenargumente" Deine Übergabewerte eingeben.

Gruss

[kubike]

Danke, schon getestet.

Dies funktioniert aber nur mit einem Parameter ?
Wenn man nun mehrere Parameter übergeben möchte ?

[cYrus]

du musst die command$ halt auseinander nehmen oder mit instr auf deren inhalt überprüfen..

so long
cYrus

[Mimo]

das ist das einzige, was man noch selbst machen muss. Den Parameter selbst auseinanderfummeln, wobei das Leerzeichen das Trennzeichen der Einzelparameter ist.

Man kann sich dabei aber von VB gut helfen lassen...

Dim a() As String
Dim i As Integer

a = Split(Command$, " ")

For i = 0 To UBound(a)
Print a(i)
Next i


Die "Split"-Funktion kann einen String automatisch in ein Array umwandeln. Es muss nur ein Trennzeichen definiert werden.

Die Anzahl der Elemente erhält man mit der Abfrage UBound(a)+1

Das Array beginnt bei Element 0 und Endet demzufolge bei Element AnzahlElemente-1

[magicdeep]

Hallo!

Funktionert eine Parameter-Übergabe bzw. ein Parameter-Emfpang auch mit VB-Script??? Wäre echt klasse, wenn jemand helfen könnte :-))
Hab schon einiges ausprobiert, aber bisher ohne Erfolg ....

Gruß
Tobias

[cYrus]

Jup geht auch mit VBS.. versuchs mal mit dem Befehl Arguments. genauere Definitionen findest du in der Dokumentation.

so long
cYrus