Função StrConv

Converte uma cadeia de caracteres de acordo com o tipo de conversão especificado.

Esta constante, função ou objeto é ativado através da instrução Option VBASupport 1, colocada antes do código executável do programa num módulo.

Sintaxe:

StrConv(string As String, Conversion As Integer, [ LCID ])

Tipo de retorno:

String

Parâmetros:

string: Qualquer expressão de cadeia de caracteres válida.

Conversão: O tipo de conversão a realizar, conforme definido na tabela abaixo.

Conversão	Valor	Descrição
vbUpperCase	1	Converte os caracteres Text em maiúsculas.
vbLowerCase	2	Converte os caracteres Text para minúsculas.
vbProperCase	3	Converte a primeira letra de cada palavra em Texto em maiúscula.
vbWide	4	Converte os caracteres estreitos (de meia largura) no Texto em caracteres largos (de largura total).
vbNarrow	8	Converte os caracteres largos (largura total) no Texto em caracteres estreitos (meia largura).
vbKatakana	16	Converte os caracteres hiragana em Texto em caracteres katakana.
vbHiragana	32	Converte os caracteres katakana no Texto em caracteres hiragana.
vbUnicode	64	Converte os caracteres Text em caracteres Unicode utilizando a página de códigos predefinida do sistema.
vbFromUnicode	128	Converte os caracteres Text do Unicode para a página de códigos predefinida do sistema.

LCID Opcional. O ID de localização expresso num número decimal. Se este parâmetro for omitido, assume-se o ID de localização do sistema. Consulte o ficheiro msi-encodinglist.txt para conhecer os valores de LCID disponíveis.

Exemplo:


Option VBASupport 1
Option Explicit
Sub Test_StrConv
    Print StrConv("abc EFG hij", vbUpperCase) '= "ABC EFG HIJ"
    Print StrConv("abc EFG hij", vbLowerCase) ' =  "abc efg hij"
    Print StrConv("abc EFG hij", vbProperCase) ' = "Abc Efg Hij"

    REM Converte os caracteres estreitos (de um byte) numa cadeia de caracteres em caracteres largos
    Print StrConv("ABCDEVB¥ì¥¹¥¥å©", vbWide) ' = "ＡＢＣＤＥＶＢ￥ì￥¹￥￥å©"

    REM Converte caracteres largos (de dois bytes) numa cadeia de caracteres em caracteres estreitos (de um byte)
    Print StrConv("ＡＢＣＤ＠＄％２３＇？ＥＧ", vbNarrow) ' = "ABCD@$%23'?EG"

    O REM converte os caracteres hiragana de uma cadeia de caracteres em caracteres katakana
    Print StrConv("かたかな", vbKatakana) ' = "カタカナ"

    REM Converte os caracteres katakana de uma cadeia de caracteres em caracteres hiragana
    Print StrConv("カタカナ", vbHiragana) '= "かたかな"

    REM  Presume-se que seja utilizada a codificação CP-1252 associada à configuração regional en-US nos testes unitários.
    Dim x() As Byte
    x = StrConv("ÉÏº£ÊÐABC", vbFromUnicode)
    Imprimir UBound(x) ' 8 caracteres
    Print x(2) ' = 186
    Print StrConv(x, vbUnicode)' = "ÉÏº£ÊÐABC"
End Sub

Funções e instruções exclusivas do VBA