Função StrConv [VBA]

Conteúdo

# 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

Tópicos relacionados

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

Necessitamos da sua ajuda!