sperimentare

esercitazione con VBA su powerpoint

trasformare prima lettera in maiuscola
ignorare primi caratteri diversi da lettera
prima lettera maiuscola e altre minuscole
http://digilander.libero.it/francescovise/vbacodice/ignora.htm
http://digilander.libero.it/francescovise/vbacodice/ignora.ppt
http://digilander.libero.it/francescovise/vbacodice/ignora.GIF

Private Sub CommandButton1_Click()
Dim prima As String
Dim parola As String
parola = "padova"
prima = maiuscolo(parola)
ListBox1.AddItem (parola & " " & prima)
parola = "verona"
prima = maiuscolo(parola)
ListBox1.AddItem (parola & " " & prima)
parola = "roma"
prima = maiuscolo(parola)
ListBox1.AddItem (parola & " " & prima)

End Sub
Function maiuscolo(testo As String) As String
Rem trasforma in maiuscolo primo carattere stringa
maiuscolo = UCase$(Left$(testo, 1)) + Right$(testo, Len(testo) - 1)
End Function



Private Sub CommandButton2_Click()
Rem ignora primo carattere se diverso da lettera
Rem rende maiuscolo primo carattere letterale
Dim nome As String
ListBox1.AddItem ("--------------------------")
nome = "+padova"
ListBox1.AddItem (nome & " " & ignora(nome))
nome = "+Padova"
ListBox1.AddItem (nome & " " & ignora(nome))
nome = "padova"
ListBox1.AddItem (nome & " " & ignora(nome))
nome = "*+padova*+"
ListBox1.AddItem (nome & " " & ignora(nome))
End Sub



Function ignora(testo As String) As String
Rem ignora primo carattere se diverso da lettera
Dim p As Integer
p = 1
While (Not (UCase$(Mid$(testo, p, 1)) >= "A" And _
UCase$(Mid$(testo, p, 1)) <= "Z") And (p <= Len(testo)))
p = p + 1
Wend

If UCase$(Mid$(testo, p, 1)) >= "A" And UCase$(Mid$(testo, p, 1)) <= "Z" Then
If (p > 1) Then
ignora = Left$(testo, p - 1)
End If
ignora = ignora + UCase$(Mid$(testo, p, 1))
If (p < Len(testo)) Then
ignora = ignora + Right$(testo, Len(testo) - p)
End If
Else
ignora = testo
End If

End Function

Private Sub CommandButton3_Click()
Dim nome As String
ListBox1.AddItem ("------------------------")
nome = "padova"
ListBox1.AddItem (nome & " " & cambia(nome))
nome = "pADOva"
ListBox1.AddItem (nome & " " & cambia(nome))
nome = "+pADOVA *"
ListBox1.AddItem (nome & " " & cambia(nome))
nome = "PADOVA"
ListBox1.AddItem (nome & " " & cambia(nome))

End Sub

Function cambia(testo As String) As String
Rem cambia maiuscole in minuscole eccetto prima lettera
Dim p As Integer
Dim nuova As String
p = 1
While p <= Len(testo)
If UCase(Mid$(testo, p, 1)) < "A" Or UCase(Mid$(testo, p, 1)) > "Z" Then
nuova = nuova & UCase(Mid$(testo, p, 1))
p = p + 1
Else
nuova = nuova & UCase(Mid$(testo, p, 1))
p = p + 1
If p <= Len(testo) Then
While UCase(Mid$(testo, p, 1)) >= "A" And UCase(Mid$(testo, p, 1)) <= "Z"
nuova = nuova & LCase$(Mid$(testo, p, 1))
p = p + 1
Wend
End If
End If
Wend
cambia = nuova
End Function