Funzione StrConv

Convertite una stringa come specificato da un tipo di conversione.

warning

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(Testo, Conversione, [ LCID ])

Valore restituito:

String

Parametri:

Testo: 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 caratteri Unicode a quelli 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" vbProperCase)")

    REM Converte i caratteri ridotti (a byte singolo) nella stringa in caratteri larghi
    Print StrConv("ABCDEVB¥ì¥¹¥­¥å©", vbWide) ' = "ABCDEVB¥ì¥¹¥­¥å©"

    REM Converte i caratteri larghi (a doppio byte) nella stringa in caratteri ridotti (a byte singolo)
    Print StrConv("ABCD@$%23'?EG", 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  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

Sosteneteci!