|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Miscelâneas)
|
|
 |
Título da Dica: Convertendo Identificadores em Rótulos e Cabeçalhos
|
 |
|
|
|
Postada em 14/8/2000 por Webmaster
webmaster@vbweb.com.br
Programadores possuem o hábito de criar identificadores (nomes de variáveis, por exemplo) por fusão de palavras como SobreNome ou CargoAnterior. É possível usar alguns destes nomes para se criar labels (rótulos) e descrições diversas. A função abaixo insere espaços, "quebrando" os identificadores a cada inicial maiúscula. Assim, CargoAnterior será convertido para Cargo Anterior.
Function SpaceName (src As String) As String
Dim i as Integer, tgt As String
tgt = Left$(src,1)
For i = 2 to Len(src)
Select Case Mid$(src, i-1, 1
Case "a" to "z"
Select Case Mid$ (src, i, 1)
Case "A" to "Z"
tgt = tgt & " "
End Select
End Select
tgt = tgt & Mid$(src, i, 1)
Next i
SpaceName = tgt
End Function
|
|
|
|
|
