Stringhe VBScript


 
StrComp

STRING

The String function returns a string that contains a repeating character of a specified length.

Syntax:

String(number,character)

Parameter Description
number Required. The length of the returned string
character Required. The character that will be repeated

Example 1
document.write(String(10,"#"))
Output:##########

Example 2
document.write(String(4,"*"))
Output:****

Example 3
document.write(String(4,42))Output:****

Example 4
document.write(String(4,"XYZ"))
Output:XXXX

Bisogna fare una distinzione tra (ad esempio) Mid e Mid$, Mid$ restituisce un tipo Stringa invece Mid un Variant.

Le funzioni principali che si occupano della gestione delle stringhe sono:


Mid$
------

Dichiarazione:
Function Mid$(String As String, Start As Long, [Length]) As String

Definizione:
Restituisce una parte di stringa di lunghezza specificata.

Esempio:
Dim strProva As String
Dim str2 As String
strProva = "Ciao a Tutti"
str2 = Mid$(strProva, 5, 4)
'A str2 viene assegnato il valore "a Tu"

Questo perchè la funzione mid$ restituisce i primi 4 caratteri partendo dal 5°, spostandosi verso destra.


Left$ e Right$
----------------

Dichiarazioni:
- Function Left$(String As String, Length As Long) As String
- Function Right$(String As String, Length As Long) As String

Definizioni:
Restituiscono rispettivamente N caratteri da destra o da sinistra.

Esempio:
Dim strProva As String
Dim str2 As String
strProva = "Ciao a Tutti"
str2 = Right$(strProva,5)
'A str2 viene assegnato il valore "Tutti"
str2 = Left$(strProva)
'A str2 viene assegnato il valore "Ciao "

LCase e UCase
---------------

Dichiarazioni:
- Function UCase$(String As String) As String
- Function LCase$(String As String) As String

Definizioni:
Convertono una stringa da maiuscola a minuscola (LCase: Low Case) e viceversa (UCase: Upper Case).

Esempio:
Dim strProva As String
Dim str2 As String
strProva = "Ciao a Tutti"
str2 = UCase$(strProva)
'A str2 viene assegnato il valore "CIAO A TUTTI"
str2 = LCase(strProva)
'A str2 viene assegnato il valore "ciao a tutti"

Asc e Chr$
------------

Dichiarazioni:
- Function Asc(String As String) As Integer
- Function Chr$(CharCode As Long) As String

Definizioni:
Restituiscono il carattere Ascii di un carattere (Asc) e viceversa (Chr$).

Esempio:
Dim strProva As String
Dim Ascii As Integer
Dim str2 As String
strProva = "C"
Ascii = Asc(strProva)
'Ascii conterrà il carattere Ascii del PRIMO carattere della stringa passata
str2 = Chr$(Ascii)
'str2 avrà il valore "C"

Instr
-------

Dichiarazione:
Function InStr([Start], [String1], [String2], [Compare As VbCompareMethod = vbBinaryCompare])

Definizione:
Restituisce la posizione del primo carattere String2 in String1, se String2 non viene trovata restituisce 0.

Esempio:
Dim str1 As String
Dim str2 As Integer
Dim str2 As String
str1 = "Ciao a Tutti"
str2 = "Tutti"
MsgBox Instr(1,str1,str2)
'Mostrerà una finestra di messaggio con il valore 8
'Invece se str2 = "uiyfguyg"
'Mostrerà 0

Un metodo per controllare se una stringa è contenuta in un'altra è il seguente:
If Instr(str1,str2) <> 0 Then ....

Len
-----
Dichiarazione:
Function Len(expression)

Definizione:
Restituisce il numero di caratteri che compongono una variabile di tipo String. 
Se viene passata una variabile di tipo numerico produce un errore.

Esempio:
Dim string1 As String
Dim lunghezza As Integer
string1="Hello World!"
lunghezza=Len(string1)
'A lunghezza viene assegnato il valore 12

->LTrim$, RTrim$ e Trim$
------------------------

Dichiarazione:
- Function LTrim$(string)
- Function RTrim$(string)
- Function Trim$(string)

Definizione:
LTrim$ (Left) toglie le spaziature che si trovano all'inizio (partendo da sinistra) di una stringa. 
RTrim$ (Right) toglie le spaziature che si trovano all'inizio (partendo da destra) di una stringa. 
Trim$ toglie le spaziature che si trovano all'inizio e alla fine di una stringa.

Esempio:
Dim string1 As String
Dim string2 As String
string1="  Today is a beautiful day!  "
string2=LTrim$(string1)
'Assegna a string2 il valore "Today is a beautiful day!  "
string2=RTrim$(string1)
'Assegna a string2 il valore "  Today is a beautiful day!"
string2=Trim$(string1)
'Assegna a string2 il valore "Today is a beautiful day!"

StrReverse
------------

Dichiarazione:
Function StrReverse(expression as String) As String

Definizione:
Inverte i caratteri di una stringa, ritornando una nuova stringa di tipo String.

Esempio:
Dim string1 As String
Dim string2 As String
string1="Ciao"
string2=StrReverse(string1)
'Assegna a string2 il valore "oaiC"

Replace
---------

Dichiarazione:
Function Replace(string1,string2,string3) As String

Definizione:
Trova e sostituisce una sottostringa di una stringa.

Esempio:
Dim string1 As String
Dim string2 As String
Dim string3 As String
string1="Ciao"
string2="ao"
string3="polla"
MsgBox Replace(string1,string2,string3),,""
'Mostrerà una finestra di messaggio con il valore "Cipolla"

Space$
--------

Dichiarazione:
Function Space$(number As Long) As String

Definizione:
Restituisce una stringa composta dal numero specificato di spazi.

Esempio:
Dim string1 As String
string1=Space$(5)
'Assegna a string1 il valore "     " (5 caratteri di spaziatura)

Split
-------

Dichiarazione:
Function Split(string,[delimiter])

Definizione:
Divide una stringa e assegna i valori all'interno di un array. Per dividere la stringa, la funzione split usa il 
carattere di spaziatura come delimitatore predefinito.

Esempio:
Dim string1 As String
Dim array1 As Variant
string1="Hello-World-!"
array1=Split(string1,"-")
MsgBox array1(1),,""
'Mostrerà una finestra di messaggio con il valore "World"

Join
------

Dichiarazione:
Function Join(array, [delimiter]) As String

Definizione:
Inserisce gli elementi di un array in una stringa

Esempio:
Dim string1 As String
Dim array1 As Variant
array1 = Array("Hello", "World", "!")
string1=Join(array1,"-")
'Assegna a string1 il valore "Hello-Word-!"



Strconv
---------

Dichiarazione:

Function StrConv(String, Conversion As VbStrConv, [LocaleID As Long])

Definizione:
Converte una stringa

Esempio:

Function LTF(path As String) As String
    Dim Buff() As Byte
    Dim s As Integer
    s = FreeFile
    Open path For Binary As #s
        ' resize del buffer
        ReDim Buff(LOF(s))
        ' read all
        Get s, , Buff
    Close #s
    LTF = StrConv(Buff, vbUnicode)
End Function

Il byte array Buff viene convertito in unicode per essere visualizzato

String$
---------

Dichiarazione:
Function String$(Number As Long, Character) As String

Definizione:
Restituisce una stringa di caratteri ripetuti della lunghezza specificata.

Esempio:
MsgBox String$(5, "c")
'Mostrerà una finestra di messaggio con il valore "ccccc"



Come ottimizzare un controllo su una stringa, per sapere se è vuota:

If Stringa <> "" Then
-> "pesante"

If Stringa <> vbNullString Then ...
-> "pesante"

If Len(Stringa)=0 Then ...
-> la piu' "performante"



     	

 

 www.fabrizio.tommasi.name by Fabrizio Tommasi
 
Questo sito e' un sito non commerciale e potrebbe riportare informazioni non aggiornate e/o non corrette. Leggi il disclaimer sottostante.

Lavoro |  Home |  Locali |  Info                   001253                 Disclaimer |  Portale |  Blog |  Ricette