Laske, onko numeerinen arvo on kahden arvojen VBScript
Muutama päivä sitten löysin työskennellä ja käyttää SQL VÄLILLÄ varmistaa, että etsintä parametri oli kaksiarvoisen ja tajusin voisi olla hyödyllistä joissakin tapauksissa jopa toimia kuten että ohjelmakoodia, eikä vain hakumerkkijonoa tietokantaan.
Lopussa kirjoitin toiminto, joka suorittaa sama tehtävä käyttämällä VBScript.
Tämän johdannon jälkeen "kaikki yhdessä hengenvetoon," Teen lähtökohta: Päätin asettaa tämän artikkelin client-side VBScript antaa kaikille mahdollisuus testata sitä heti, mutta samaa koodia voidaan käyttää myös ASP kuin Visual Basic-tai jopa samaa logiikkaa, että olen seurannut, se on erittäin helppo kirjoittaa yksi PHP, Java, JavaScript tai muita jotka kuten VBScript, ei ole tätä ominaisuutta natiivisti välillä oletuksena.
Katsotaanpa koodi mukautetun toiminnon välillä
Toiminto välillä (MyValue, StartValue, EndValue)
Jos IsEmpty (MyValue) Sitten
Välillä 0 =
ElseIf IsEmpty (StartValue) Sitten
Välillä 0 =
ElseIf IsEmpty (EndValue) Sitten
Välillä 0 =
ElseIf IsNumeric (MyValue) = False sitten
Välillä 0 =
ElseIf IsNumeric (StartValue) = False sitten
Välillä 0 =
ElseIf IsNumeric (EndValue) = False sitten
Välillä 0 =
Muu
Jos MyValue> = StartValue Ja MyValue <= EndValue sitten
Välillä 1 =
Muu
Välillä 0 =
End If
End If
End Function
Toiminto kestää kolme asiaa: ensimmäinen on määrä arvioida, kattavatko ne myös alkuarvon ja tavoitearvon, toinen ja kolmas parametri ovat kuitenkin tarkasti numerot lähtö-ja määräpaikan.
Sitten, käyttäen funktio seuraavasti triviaalisti
document.write välillä (1, 0, 10)me Tarkista, että 1 on välillä 0 ja 10, ja tietysti se on, niin tulos on "1" (tosi).
Tässä tapauksessa kuitenkin
Välillä document.write (25, 0, 10)saavat "0" (epätosi), koska 23 ei ole välillä 0 ja 10.
Jatkamme tutkia toiminto. Teemme sarja ehdollisen testejä tarkastaakseen, että parametrit eivät ole tyhjä ja jotka ovat numeerisia.
Voit hyväksyä tai olla suodattaa numeerisia parametreja type string voidaan käyttää sisällä mukautetun toiminnon, toiminto oletuksena muuntaminen "CInt".
Riittävästi tilaa minä olen asettanut joukon ehtoja kunkin yksittäisen kentän, mutta voit käyttää hoikka yksi ehto, erottaen yksittäisiä tarkastuksia toimija "tai".
Katsotaanpa nyt käytännössä tätä toimintoa testataan
Dim numero, alku, loppu
numero = 1
start = 0
END = 10
Jos välissä (numero, alku, loppu) = 1,
Muu
End If
Erityisesti numero arvioida arvon lähtö ja kohteet muuttujien kuvaava nimi, jolloin teen hyvässä kunnossa käyttämällä sisäänrakennettua toimivat ehdollinen suodatin.
 |
ASP Zero (Ebook)
Learning Microsoft ASP-ja VBScript tyhjästä. Vain 29 €. |
 |
Visual Basic 6 (kurssi)
Tee Desktop Applications kanssa VB6. Alkaen 39 €. |