Kao što već sigurno znate, Internet skript jezici i uopšte programski jezici se najviše koriste za rad sa stringovima. Tako je i sa Visual Basic Script-om, uglavnom je to obrada stringova na stranicama ili njihovo prezentovanje. Predstavićemo vam osnovne funkcije koje možete da upotrebite na vašim stranicama za obradu stringova.
- Prvo ćemo predstaviti srodne ugrađene funkcije: Trim, Ltrim i Rtrim, koje ćete najčešće koristiti za validaciju ulaznih podataka. Naime, ove funcije služe za uklanjanje blank (praznih znakova) karaktera iz stringa. Evo i primera:
MidString = " <-NekaRec-> "
' Pocetni string.
RezString = LTrim(MidString)
' RezString = "<-NekaRec-> ".
RezString = RTrim(MidString)
' RezString = " <-NekaRec->".
RezString = LTrim(RTrim(MidString))
' RezString = "<-NekaRec->".
' Koristeci Trim funkciju samostalno,
' dobicemo isti rezultat.
RezString = Trim(MojString)
' RezString = "<-NekaRec->".
- Sledeća funkcija je Len koja služi za prebrojavanje karaktera u jednom stringu (što znači i blank-ova):
Dim MojString, Duzina
MidString = "Pozdrav svima"
' Inicijalizacija varijable
Duzina = Len(MidString)
' Rezultat je 13
- Funkcija Mid kao rezultat vraća segment stringa određene dužine. Na primer:
MidString = "Mid Funkcija Prikaz"
' Kreiranje tekst stringa
PrvaRec = Mid(MojString, 1, 3)
' Rezultat je "Mid"
PoslednjaRec = Mid(MojString, 14, 6)
' Rezultat je "Prikaz"
SrednjaRec = Mid(MojString, 5)
' Rezultat je "Funkcija Prikaz"
- I prikazaćemo vam dve slične funkcije: Left i Right. Ove funkcije vraćaju određeni broj karaktera, sa leve, odnosno desne strane početnog stringa:
MojString = "Test stringa"
NoviString = Left(MojString,3)
' NoviString = "Tes"
NoviString = Right(MojString,4)
' NoviString = "inga"
Nakon objašnjenja šta koja funkcija radi daćemo vam i primer jedne VBScript funkcije koja će da prebroji broj praznih (space) karaktera u stringu kojeg unosi posetilac web stranice preko InputBox-a. Kada unese string i pritisne dugme "OK", dobiće podatak o dužini.
<HTML>
<HEAD>
<TITLE> "VBScript"</TITLE>
<SCRIPT LANGUAGE="VBScript">
<!--
Dim UnetiString, BrSpaceova, Duzina, Pozicija
BrSpaceova = 0
UnetiString = InputBox("Unesite string?")
Duzina = Len(UnetiString)
For Pozicija = 1 to Duzina
If Mid(UnetiString, Pozicija, 1) = Chr(32)
Then BrSpaceova = BrSpaceova + 1
Next
Document.write "Vas string ima "
Document.write BrSpaceova
Document.write " space karaktera"
-->
</SCRIPT>
</HEAD>
<BODY>
</BODY>
</HTML>