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"