Funzione StrConv

Convertite una stringa come specificato da un tipo di conversione.

Questa costante, funzione od oggetto viene abilitata con l'istruzione Option VBASupport 1 posizionata prima del codice eseguibile del programma all'interno del modulo.

Sintassi:

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

Valore restituito:

String

Parametri:

stringa: qualunque stringa valida.

Conversione: il tipo di conversione da eseguire, come definito nella tabella seguente.

Conversione	Valore	Descrizione
vbUpperCase	1	Converte i caratteri di Testo in maiuscolo.
vbLowerCase	2	Converte i caratteri di Testo in minuscolo.
vbProperCase	3	Converte in maiuscolo la prima lettera di ogni parola di Testo.
vbWide	4	Converte i caratteri ridotti (mezza larghezza) del Testo in caratteri larghi (a larghezza intera).
vbNarrow	8	Converte i caratteri larghi (larghezza intera) del Testo in caratteri ridotti (mezza larghezza).
vbKatakana	16	Converte i caratteri Hiragana di Testo in caratteri Katakana.
vbHiragana	32	Converte i caratteri Katakana di Testo in caratteri Hiragana.
vbUnicode	64	Converte i caratteri di Testo in caratteri Unicode seguendo la tabella codici predefinita del sistema.
vbFromUnicode	128	Converte i caratteri di Testo da Unicode ai caratteri della tabella codici predefinita del sistema.

LCID Facoltativo. L'ID delle impostazioni internazionali espresso in numero decimale. Se questo parametro viene omesso assume l'ID delle impostazioni internazionali del sistema. Fate riferimento al file msi-encodinglist.txt per i valori LCID disponibili.

Esempio:


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 i caratteri ridotti (a byte singolo) della stringa in caratteri estesi
    Print StrConv("ABCDEVB¥ì¥¹¥¥å©", vbWide) ' = "ＡＢＣＤＥＶＢ￥ì￥¹￥￥å©"

    REM Converte i caratteri estesi (a doppio byte) della stringa in caratteri ridotti (a byte singolo)
    Print StrConv("ＡＢＣＤ＠＄％２３＇？ＥＧ", vbNarrow) ' = "ABCD@$%23'?EG"

    REM Converte i caratteri Hiragana della stringa in caratteri Katakana
    Print StrConv("かたかな", vbKatakana) ' = "カタカナ"

    REM Converte i caratteri Katakana della stringa in caratteri Hiragana
    Print StrConv("カタカナ", vbHiragana) '= "かたかな"

    REM presuppone che la codifica CP-1252 associata all'impostazione locale en-US sia usata da questo unit test.
    Dim x() As Byte
    x = StrConv("ÉÏº£ÊÐABC", vbFromUnicode)
    Print UBound(x) ' 8 caratteri
    Print x(2) ' = 186
    Print StrConv(x, vbUnicode)' = "ÉÏº£ÊÐABC"
End Sub

Funzioni e istruzioni VBA esclusive