Função StrConv

Converte uma string conforme especificado por um tipo de conversão.

warning

Esta constante, função ou objeto se ativa com a instrução Option VBASupport 1 colocada antes do código executável do programa em um módulo.


Sintaxe:

StrConv(Texto, Conversão, [ LCID ])

Valor de retorno:

String

Parâmetros:

Texto: Qualquer expressão de string válida.

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

Conversão

Valor

Descrição

vbUpperCase

1

Converte caracteres Texto em maiúsculas.

vbLowerCase

2

Converte caracteres Texto em minúsculas.

vbProperCase

3

Converte a primeira letra de cada palavra em Texto em maiúsculas.

vbWide

4

Conversão de caractere narrow (half-width) em Texto caracter wide (full-width).

vbNarrow

8

Conversão de caracteres wide (full-width) para Texto caracteres narrow (half-width)

vbKatakana

16

Converte caracteres Hiragana em Texto em caracteres Katakana.

vbHiragana

32

Converte caracteres Katakana em Texto em caracteres Hiragana.

vbUnicode

64

Converte caracteres Texto em caracteres Unicode usando a página de código padrão do sistema.

vbFromUnicode

128

Converte caracteres Texto de Unicode para a página de código padrão do sistema.


LCID Opcional. O ID da localidade em número decimal. Se este parâmetro for omitido, ele assumirá o ID local do sistema. Consulte o arquivo msi-encodinglist.txt para os valores 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" vbProperCase)")

    REM Converte narrow caracteres (byte único) em string para caracteres wide.
    Print StrConv("ABCDEVB¥ì¥¹¥­¥å©", vbWide) ' = "ABCDEVB¥ì¥¹¥­¥å©"

    REM Converte caracteres wide (byte duplo) em string para caracteres narrow (byte único).
    Print StrConv("ABCD@$%23'?EG", vbNarrow) ' = "ABCD@$%23'?EG"

    REM Converte caracteres Hiragana em string em caracteres Katakana.
    Print StrConv("かたかな", vbKatakana) ' = "カタカナ"

    REM Converte caracteres Katakana em string em caracteres Hiragana.
    Print StrConv("カタカナ", vbHiragana) '= "かたかな"

    REM  Assumes CP-1252 encoding associated with en-US locale used in unit tests.
    Dim x() As Byte
    x = StrConv("ÉϺ£ÊÐABC", vbFromUnicode)
    Print UBound(x) ' 8 characters
    Print x(2) ' = 186
    Print StrConv(x, vbUnicode)' = "ÉϺ£ÊÐABC"
End Sub

♥ Doe para nosso projeto! ♥