Ultimi Articoli
Visual Basic
Connessione a Database Microsoft SQL
Visual Basic
I controlli ListBox e ComboBox
ASP
Verificare l'esistenza di un file sul Server
Visual Basic
Informazioni aggiuntive sugli ActiveX
Visual Basic
Installare un file .inf

VBScript

FUNZIONI - FUNZIONI SULLE STRINGHE



Ecco una carrellata di funzioni sulle stringhe:

Asc Restituisce il codice ASCII di un carattere

MyNumber = Asc("A")
Restituisce 65
MyNumber = Asc("a")
Restituisce 97
MyNumber = Asc("Albero")
Restituisce 65

Chr Restituisce un carattere dato il suo codice ASCII MyChar = Chr(65)
Restituisce A.
MyChar = Chr(97)
Restituisce a.
MyChar = Chr(62)
Restituisce >.
MyChar = Chr(37)
Restituisce %.
Instr Restituisce la posizione di una stringa in un'altra SearchString ="visulabasicscript"
Stringa in cui eseguire la ricerca.
SearchChar = "i"
Esegue la ricerca della lettera "i".
MyPos = Instr(4, SearchString, SearchChar)
Confronto testuale a partire dalla posizione 4. Restituisce 10
LCase Converte in minuscolo

MyString = "VBSCript"
LCaseString = LCase(MyString)
Il valore di LCaseString è "vbscript".

Left Restituisce un numero di caratteri dalla sinistra di una stringa MyString = "VBSCript"
LeftString = Left(MyString, 3) '
Il valore di LeftString è "VBS".
Len Restituisce il numero di caratteri di una stringa MyString = Len("VBSCRIPT") '
MyString include 8 caratteri
LTrim Toglie gli spazi a sinistra MyVar = LTrim("    vbscript         ")
Il valore di MyVar è "vbscript
Mid Restituisce un certo numero di caratteri da una stringa MyVar = Mid("VB Script è divertente!", 4, 6)
Il valore di MyVar è "Script".
Replace Restituisce una data sottostringa con un'altra MyString = Replace("Linguaggio JavaScript ", "Java", "VB")
Restituisce "VBScript".
Rigth Restituisce un numero di caratteri dalla destra di una stringa AnyString = "Salve gente!"
MyStr = Right(AnyString, 1)
Restituisce "e".
MyStr = Right(AnyString, 6)
Restituisce " gente".
MyStr = Right(AnyString, 20)
Restituisce "Salve gente".
Rtrim Toglie gli spazi a destra MyVar = RTrim("     vbscript    ")
Il valore di MyVar è " vbscript".
Space Crea una Stringa di spazi MyString = Space(10)
Restituisce una stringa con 10 spazi
Split Crea un array di stringhe più piccole da una stringa MyString = "VBScriptXèXdivertente!"
MyArray = Split(MyString, "x")
' Il valore di MyArray(0) è "VBScript".
' Il valore di MyArray(1) è "è".
' Il valore di )MyArray(2) è "divertente!".
StrComp Confronta il valore di due stringhe

MyStr1 = "Cane"
MyStr2 = "Gatto"
MyStr3 = "Gatto"

MyComp = StrComp(MyStr3, MyStr2)
Restituisce 0.
MyComp = StrComp(MyStr1, MyStr2)
Restituisce -1.
MyComp = StrComp(MyStr2, MyStr1)
Restituisce 1.

String Crea una stringa di un carattere ripetuto un certo numero di volte MyString = String(5, "*")
Restituisce "*****".
MyString = String(5, 42)
Restituisce "*****".
MyString = String(10, "ABC")
Restituisce "AAAAAAAAAA".
StrReverse Inverte una stringa MyStr = StrReverse("VBScript")
Il valore di MyStr è "tpircSBV".
Trim

Taglia gli spazi da entrambi i lati di una stringa

MyVar = Trim("   vbscript   ")
Il valore di MyVar è "vbscript".

Ucase Converte in maiuscolo

MyWord = UCase("Salve gente!")
Restituisce "SALVE GENTE!".


Nell'esempio seguente vengono viste alcune delle funzioni qui sopra descritte

<script language="VBScript">
<!--
Option Explicit
dim nome,i

nome=inputbox("Inserisci il tuo nome")
document.write "Il tuo nome ha " & len(nome) & " lettere<br>"
document.write "Le prime tre lettere sono: " & left(nome,3) & "<br>"
document.write "Le ultime tre lettere sono: " & right(nome,3) & "<br>"
document.write "Il tuo nome al contrario è : " & strreverse(nome) & "<br>"
document.write "In maiuscolo: " & Ucase(nome) & "<br>"
document.write "In minuscolo: " & Lcase(nome) & "<br>"
document.write "Iniziale maiuscola: " & Ucase(left(nome,1)) & Lcase(mid(nome,2)) & "<br>"
for i =1 to len (nome)
  document.write mid(nome,1,i) & "<br>"
next
//-->
</script>