VBScript - Rad sa stringovima

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>

Pratite Krstaricu na www.krstarica.com