StrConv Function

I-convert ang isang string gaya ng tinukoy ng isang uri ng conversion.

Ang pare-pareho, function o bagay na ito ay pinagana sa pahayag Opsyon VBASupport 1 inilagay bago ang executable program code sa isang module.

Syntax:

StrConv(string Bilang String, Conversion Bilang Integer, [ LCID ])

Ibinalik na halaga:

String

Mga Parameter:

string : Anumang wastong string expression.

Pagbabalik-loob : Ang uri ng conversion na gagawin, gaya ng tinukoy sa talahanayan sa ibaba.

Pagbabalik-loob	Halaga	Mga nilalaman
vbUpperCase	1	Nagbabalik-loob Text mga character sa uppercase.
vbLowerCase	2	Nagbabalik-loob Text maliit na titik ang mga character.
vbProperCase	3	Kino-convert ang unang titik ng bawat salita sa Text sa uppercase.
vbWide	4	Nagko-convert ng makitid ( kalahating lapad ) mga karakter sa Text sa malawak ( buong lapad ) mga karakter.
vbNarrow	8	Malawak ang pag-convert ( buong lapad ) mga karakter sa Text magpakipot ( kalahating lapad ) mga karakter.
vbKatakana	16	Kino-convert ang mga Hiragana character sa Text sa mga karakter na Katakana.
vbHiragana	32	Kino-convert ang mga character na Katakana sa Text sa mga karakter ng Hiragana.
vbUnicode	64	Nagbabalik-loob Text mga character sa mga Unicode na character gamit ang default na pahina ng code ng system.
vbFromUnicode	128	Nagbabalik-loob Text mga character mula sa Unicode hanggang sa default na pahina ng code ng system.

LCD Opsyonal. Ang Locale ID sa decimal na numero. Kung aalisin ang parameter na ito, ipapalagay nito ang System Locale ID. Sumangguni sa file msi-encodinglist.txt para sa mga magagamit na halaga ng LCD.

Halimbawa:


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"

    Kino-convert ng REM ang makitid (single-byte) na mga character sa string sa lapad
    Print StrConv("ABCDEVB¥ì¥¹¥¥å©", vbWide) ' = "ＡＢＣＤＥＶＢ￥ì￥¹￥￥å©"

    Kino-convert ng REM ang malapad (double-byte) na mga character sa string sa makitid (single-byte) na mga character
    Print StrConv("ＡＢＣＤ＠＄％２３＇？ＥＧ", vbNarrow) ' = "ABCD@$%23'?EG"

    Kino-convert ng REM ang mga character na Hiragana sa string sa mga character na Katakana
    Print StrConv("かたかな", vbKatakana) ' = "カタカナ"

    Kino-convert ng REM ang mga character na Katakana sa string sa mga Hiragana character
    Print StrConv("カタカナ", vbHiragana) '= "かたかな"

    Ipinapalagay ng REM ang pag-encode ng CP-1252 na nauugnay sa lokal na en-US na ginagamit sa mga unit test.
    Dim x() As Byte
    x = StrConv("ÉÏº£ÊÐABC", vbFromUnicode)
    I-print ang UBound(x) ' 8 character
    Print x(2) ' = 186
    Print StrConv(x, vbUnicode)' = "ÉÏº£ÊÐABC"
End Sub

Eksklusibong Mga Pag-andar at Pahayag ng VBA