Funktion StrConv

Konvertiert eine Zeichenfolge, wie von einem Konvertierungstyp angegeben.

warning

Diese Konstante, diese Funktion oder dieses Objekt wird durch Platzierung der Anweisung Option VBASupport 1 vor dem auszuführenden Programmcode des Moduls aktiviert.


Syntax:

StrConv(Text, Konvertierung, [ LCID ])

Rückgabewert:

String

Parameter:

Text: Beliebige gültige Zeichenfolge.

Konvertierung: Der Typ der durchzuführenden Konvertierung, wie in der folgenden Tabelle definiert.

Konvertierung

Wert

Beschreibung

vbUpperCase

1

Wandelt die Zeichen von Text in Großbuchstaben um.

vbLowerCase

2

Wandelt die Zeichen von Text in Kleinbuchstaben um.

vbProperCase

3

Wandelt den ersten Buchstaben jedes Wortes von Text in Großbuchstaben um.

vbWide

4

Wandelt schmale (halbbreite) Zeichen in Text in breite (normalbreite) Zeichen um.

vbNarrow

8

Wandelt breite (normalbreite) Zeichen in Text in schmale (halbbreite) Zeichen um.

vbKatakana

16

Wandelt Hiragana-Zeichen in Text in Katakana-Zeichen um.

vbHiragana

32

Wandelt Katakana-Zeichen in Text in Hiragana-Zeichen um.

vbUnicode

64

Wandelt Zeichen in Text in Unicode-Zeichen um. Dazu wird die Standard-Codepage des Systems verwendet.

vbFromUnicode

128

Converts Text characters from Unicode to the default code page of the system.


LCID Optional. The Locale ID in decimal number. If this parameter is omitted, it assumes the system Locale ID. Refer to the file msi-encodinglist.txt for the available LCID values.

Beispiel:


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 Converts narrow (single-byte) characters in string to wide
    Print StrConv("ABCDEVB¥ì¥¹¥­¥å©", vbWide) ' = "ABCDEVB¥ì¥¹¥­¥å©"

    REM Converts wide (double-byte) characters in string to narrow (single-byte) characters
    Print StrConv("ABCD@$%23'?EG", vbNarrow) ' = "ABCD@$%23'?EG"

    REM Converts Hiragana characters in string to Katakana characters
    Print StrConv("かたかな", vbKatakana) ' = "カタカナ"

    REM Converts Katakana characters in string to Hiragana characters
    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