Programy z parametrem




Programy z parametrem

Czasem istnieje potreba napisania programu, który po wywołaniu z jakimś
parametrem uruchamia się inaczej (np. piszemy edytor textu i jak napiszemy EDIT TEXT.TXT
to pasowało by, aby nasz edytor otworzył ten plik). Nie jest to trudne. Po prostu
piszemy następujący kod w dowolnym miejscu programu (nawet na dowolnym formularzu !!!)

Msgbox Command

Ten prościutki kawałek kodu wyświetli nam
parametr z jakim wywołaliśmy program. Super !!! Jest jeden problemik : załóżmy, że
cały czas testujemy program, który wywołujemy z parametrem X. Kompilacja i uruchamianie
skompilowanego programu nie jest wygodne. Można z menu Project | <project>
properties kliknąc w zakładkę Make i w polu Command line arguments wpisać ten
parametr. Prawda, że Microsoft odwalił kawał dobrej roboty ??? Jednak jest jeden
problem. Jeżeli napiszemy taki fragment kodu :

IF command="X" then msgbox "Wywołałeś mnie z
parametrem X"
IF command="Y" then msgbox "Wywołałeś mnie z parametrem Y"
IF command="Z" then msgbox "Wywołałeś mnie z parametrem Z"

To wywołując program z parametrem X Y nie pokaże się ani
jedna informacja !!! Zmienna globalna Command będzie wyglądała tak : "X Y"
(bez cudzysłowiów). Chyba rozumiesz ten problem ??? Jak znasz Pascala, to chyba
pamiętasz instrukcje ParamCount i ParamStr(X). Ta druga podawała parametr x (np. drugi,
trzeci) a ParamCount przechowywała liczbę parametrów. Można oczywiście zrobić takie
zmienne. Oto przykład :

Dim a As Byte
Dim tMp As String
On Error GoTo 2
Dim ParamCount As Byte
Dim ParamStr(1 To 10) As String

ParamCount = 1
For a = 1 To Len(Command)
tMp = tMp + Mid$(Command, a, 1)
If Mid$(Command, a, 1) = " " Or a = Len(Command) Then ParamStr(ParamCount) =
tMp: tMp = "": ParamCount = ParamCount + 1
Next a

For a = 1 To ParamCount
IF ParamStr(a)="X" then msgbox "Wywołałeś mnie z parametrem X"
IF ParamStr(a)="Y" then msgbox "Wywołałeś mnie z parametrem Y"
IF ParamStr(a)="Z" then msgbox "Wywołałeś mnie z parametrem Z"
Next a


Jak widać ten mały kawałek kodu czyni cuda !!! Cała sztuczka
polega na operacjach na stringach i jak program napotka na znak " " (spacja) to
resztę ciągu (do końca lub do następnej spacji) dodaje do ParamStr(x) i zwiększa
ParamCount o 1. Jak znasz Pascala to wiesz o co chodzi.

Czekam na wasze porady, artykóły. Artykóły tego typu
co ten będą miały pierwszeństwo w publikacji !!! Dzięki temu zinowi możesz innym
zaszpanować swoją wiedzą i pomysłowością. To dzięki wam będzie się ukazywał ten
zin !!! Materiały z tego artykółu pochodzą z mojego programu (sam napisałem tą
procedurkę i teraz ją omówiłem)

Jelcyn