VBScript – Rad sa stringovima

 –  aลพurirano:  –  

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