ຟັງຊັນ 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
