ຟັງຊັນ StrConv [VBA]

ເນື້ອໃນ

# ຟັງຊັນ StrConv

ແປງຂໍ້ຄວາມຕາມປະເພດການແປງທີ່ລະບຸ.

ຄ່າຄົງທີ່, ຟັງຊັນ ຫຼື ອັອບເຈັກນີ້ຈະຖືກເປີດໃຊ້ດ້ວຍຄຳສັ່ງ Option VBASupport 1 ທີ່ວາງໄວ້ກ່ອນລະຫັດໂປຣແກຣມໃນໂມດູນ.

### ໄວຍາກອນ:

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

### ປະເພດຄ່າທີ່ສົ່ງກັບ:

String

### ພາຣາມິເຕີ:

string: ນິພົດຂໍ້ຄວາມໃດໆທີ່ຖືກຕ້ອງ.

Conversion: ປະເພດການແປງທີ່ຈະປະຕິບັດ, ຕາມທີ່ກຳນົດໃນຕາຕະລາງລຸ່ມນີ້.

ການແປງ | ຄ່າ | ຄຳອະທິບາຍ
--- | --- | ---
vbUpperCase | 1 | ແປງຕົວອັກສອນໃນ Text ເປັນຕົວພິມໃຫຍ່.
vbLowerCase | 2 | ແປງຕົວອັກສອນໃນ Text ເປັນຕົວພິມນ້ອຍ.
vbProperCase | 3 | ແປງຕົວອັກສອນທຳອິດຂອງທຸກໆຄຳໃນ Text ເປັນຕົວພິມໃຫຍ່.
vbWide | 4 | ແປງອັກສອນແບບແຄບ (ເຄິ່ງຄວາມກວ້າງ) ໃນ Text ໃຫ້ເປັນອັກສອນແບບກວ້າງ (ເຕັມຄວາມກວ້າງ).
vbNarrow | 8 | ແປງອັກສອນແບບກວ້າງ (ເຕັມຄວາມກວ້າງ) ໃນ Text ໃຫ້ເປັນອັກສອນແບບແຄບ (ເຄິ່ງຄວາມກວ້າງ).
vbKatakana | 16 | ແປງຕົວອັກສອນ Hiragana ໃນ Text ເປັນ Katakana.
vbHiragana | 32 | ແປງຕົວອັກສອນ Katakana ໃນ Text ເປັນ Hiragana.
vbUnicode | 64 | ແປງຕົວອັກສອນໃນ Text ເປັນ Unicode ໂດຍໃຊ້ code page ເລີ່ມຕົ້ນຂອງລະບົບ.
vbFromUnicode | 128 | ແປງຕົວອັກສອນໃນ Text ຈາກ Unicode ເປັນ code page ເລີ່ມຕົ້ນຂອງລະບົບ.

LCID ທາງເລືອກ. Locale ID ໃນຮູບແບບໂຕເລກຖານສິບ. ຖ້າເວັ້ນໄວ້ ຈະໃຊ້ Locale ID ຂອງລະບົບ. ເບິ່ງໄຟລ໌ msi-encodinglist.txt ສຳລັບຄ່າ LCID ທີ່ມີໃຫ້.

### ຕົວຢ່າງ:

    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 ແປງອັກສອນແບບແຄບ (single-byte) ໃນຂໍ້ຄວາມໃຫ້ເປັນແບບກວ້າງ
        Print StrConv("ABCDEVB¥ì¥¹¥¥å©", vbWide) ' = "ＡＢＣＤＥＶＢ￥ì￥¹￥￥å©"

        REM ແປງອັກສອນແບບກວ້າງ (double-byte) ໃນຂໍ້ຄວາມໃຫ້ເປັນແບບແຄບ (single-byte)
        Print StrConv("ＡＢＣＤ＠＄％２３＇？ＥＧ", vbNarrow) ' = "ABCD@$%23'?EG"

        REM ແປງອັກສອນ Hiragana ໃນຂໍ້ຄວາມໃຫ້ເປັນ Katakana
        Print StrConv("かたかな", vbKatakana) ' = "カタカナ"

        REM ແປງອັກສອນ Katakana ໃນຂໍ້ຄວາມໃຫ້ເປັນ Hiragana
        Print StrConv("カタカナ", vbHiragana) '= "かたかな"

        REM  ສົມມຸດວ່າໃຊ້ການເຂົ້າລະຫັດ CP-1252 ທີ່ກ່ຽວຂ້ອງກັບ en-US locale ທີ່ໃຊ້ໃນການທົດສອບ.
        Dim x() As Byte
        x = StrConv("ÉÏº£ÊÐABC", vbFromUnicode)
        Print UBound(x) ' 8 ຕົວອັກສອນ
        Print x(2) ' = 186
        Print StrConv(x, vbUnicode)' = "ÉÏº£ÊÐABC"
    End Sub

ຫົວຂໍ້ທີ່ກ່ຽວຂ້ອງ

ຟັງຊັນ ແລະ ຄຳສັ່ງສະເພາະຂອງ VBA

ກະລຸນາສະໜັບສະໜູນພວກເຮົາ!