Support http://amicus.ba with small donation

Vrlo često je potrebno vršiti određene manipulacije sa stringovima prije upisa u kontrole na formi, kao što je isijecanje dijela stringa. U tu svrhu se koriste funkcije Left, Mid i InStr.

Ako je potrebno, sa lijeve strane, isjeći određen broj znakova (n) iz nekog stringa (string) onda se koristi funkcija (Left):

LijeviDio = Left(string, n)

Na primjer:

LijeviDio = Left ("http://amicus.ba", 7)

kao rezultat daje:

LijeviDio=http://

Za izdvajanje segmenta stringa koji počinje sa m-tim a završava sa n-tim znakom, uključujući znake m i n, koristi se funkcija mid:

sredina = Mid(string, m, n)

Na primjer:

sredina = Mid("http://amicus.ba", 7,13)

kao rezultat daje:

sredina=amicus

Traženje nekog znaka znak u tekstualnoj varijabli string.

pozicija = InStr(m, string, "znak", n)

Pozicija vraća brojčanu vrijednost pozicije traženog znaka u stringu. m označava poziciju u stringu sa koje počinje pretraga. String predstavlja tekstualnu varijablu koja se pretražuje. Znak predstavlja znak koji se traži, a n označava način poređenja: 1 označava da se vrši tekstualno poređenje. Ako je upisana 0 vrši se binarno poređenje.

Na primjer:

pozicija = InStr(1, "http://amicus.ba", ".", 1)

kao rezultat daje:

pozicija=14

Ako treba kursor postaviti na kraj teksta u nekom text box-u onda koristiti:

txtime.SelStart = Len(txtime.text)

Pri tome je txtime ime text box-a dok funkcija Len daje ukupnu dužinu teksta unutar text box-a.

Za prelazak u novi red pri upisu teksta u text box (prelom linije) koristiti sljedeći kôd:

poruka=txtPoruka.Text

txtPrimljeno.Text = txtPrimljeno.Text & vbCrLf & poruka

Na ovaj način se, zahvaljujući vbCrLf dodanom na kraj prethodne linije teksta, nailazeći tekst ispisuje u novom redu. U polju txtPrimljeno će postojećem tekstu, ali u novom redu biti dodan string sadržan u varijabli poruka koji predstavlja sadržaj drugog text box-a.