variastringa

gestione variabili stringa

Option Explicit

Private Sub CommandButton1_Click()
Dim testo As String
Dim spazio As String
Dim stringa As String
testo = "mansuetudine"
'(LEN(testo)fornisce lunghezza della stringa...12)
'(LEN("parola"))
Lista.AddItem (Len(testo))
Lista.AddItem (Len("mansuetudine"))
'(Right$(testo,numero) fornisce numero caratteri da destra)
Lista.AddItem (Right$(testo, 4))
Lista.AddItem (Right$("mansuetudine", 4))
'(Left$(testo,numero) fornisce numero caratteri da sinistra))
Lista.AddItem (Left$(testo, 6))
Lista.AddItem (Left$("mansuetudine", 6))
'(Mid$(testo,inizio,numero) fornisce numero caratteri da inizio))
Lista.AddItem (Mid$(testo, 4, 3))
Lista.AddItem (Mid$("mansuetudine", 4, 3))
'(unione di stringhe in unica stringa con segno & )
Lista.AddItem ("maria" & "rosa")
'(LTrim(testo) elimina spazi a sinistra nella stringa )
spazio = "     cinque spazi a sinistra e 4 a destra    "
Lista.AddItem (spazio)
Lista.AddItem (LTrim(spazio))
'(RTrim(testo) elimina spazi a destra nella stringa)
Lista.AddItem (RTrim(spazio))
'(Trim(testo) elimina spazi a sinistra e a destra)
Lista.AddItem (Trim(spazio))
'(Str$(numero) trasforma valore numerico in stringa)
stringa = Str$(15678)
Lista.AddItem (stringa)
'(tratto 15678 come stringa)
Lista.AddItem (Len(stringa))
Lista.AddItem (Left$(stringa, 2))
'(Val("testo123") fornisce valore numerico presente in stringa)
Lista.AddItem (Val("123testo"))
'(tratto 123 come numero)
Lista.AddItem (100 + Val("123testo"))

End Sub

Private Sub UserForm_Click()

End Sub

ritorna