Funzione StrConv [VBA]

Contenuto

# 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 ])

### Tipo di ritorno:

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

Argomenti correlati

Funzioni e istruzioni VBA esclusive

Sostienici!