ส่งกลับค่า ()String ที่แปลงVariant
ไวยากรณ์
StrConv(string, conversion [, LCID])
StrConvไวยากรณ์ของฟังก์ชันมีอาร์กิวเมนต์ดังนี้
| อาร์กิวเมนต์ | คำอธิบาย |
|---|---|
string |
จำเป็น นิพจน์สตริงที่จะแปลง |
conversion |
จำเป็น จํานวนเต็ม ผลรวมของค่าที่ระบุชนิดของการแปลงที่จะดําเนินการ |
LCID |
ไม่จำเป็น ID ระบบภาษา ถ้าแตกต่างจาก ID ระบบภาษา ID ระบบภาษาเป็นค่าเริ่มต้น |
การตั้งค่า
conversionการตั้งค่าอาร์กิวเมนต์ มีดังนี้
| ค่าคงที่ | ค่า | คำอธิบาย |
|---|---|---|
vbUpperCase |
1 | แปลงสตริงเป็นอักขระตัวพิมพ์ใหญ่ |
vbLowerCase |
2 | แปลงสตริงเป็นอักขระตัวพิมพ์เล็ก |
vbProperCase |
3 | แปลงตัวอักษรตัวแรกของทุกคําในสตริงเป็นตัวพิมพ์ใหญ่ |
vbWide * |
4* | แปลงอักขระแบบแคบ (ไบต์เดี่ยว) ในสตริงให้เป็นอักขระแบบกว้าง (ไบต์คู่) |
vbNarrow * |
8* | แปลงอักขระกว้าง (ไบต์คู่) ในสตริงให้เป็นอักขระแบบแคบ (ไบต์เดี่ยว) |
vbKatakana ** |
16** | แปลงอักขระฮิระงะนะในสตริงเป็นอักขระคะทะคะนะ |
vbHiragana ** |
32** | แปลงอักขระคะทะคะนะในสตริงเป็นอักขระฮิระงะนะ |
vbUnicode |
64 | แปลงสตริงเป็น Unicode โดยใช้โค้ดเพจเริ่มต้นของระบบ (ไม่มีให้ใช้บน Macintosh) |
vbFromUnicode |
128 | แปลงสตริงจาก Unicode เป็นโค้ดเพจเริ่มต้นของระบบ (ไม่มีให้ใช้บน Macintosh) |
*ใช้กับท้องถิ่นในเอเชียตะวันออก
**ใช้กับประเทศญี่ปุ่นเท่านั้น
หมายเหตุ
Visual Basic for Applications (VBA) ระบุค่าคงที่เหล่านี้ คุณสามารถใช้ได้ทุกที่ในโค้ดของคุณแทนค่าจริง คุณสามารถรวมค่าคงที่ส่วนใหญ่ได้ ตัวอย่างเช่น ใช้ vbUpperCase + vbWide. อย่ารวมค่าคงที่ที่แยกออกจากกัน ตัวอย่างเช่น อย่าใช้vbUnicode + vbFromUnicode
vbWide, , vbNarrowvbKatakanaและค่าvbHiraganaคงที่ ทําให้เกิดข้อผิดพลาดขณะทํางานเมื่อคุณใช้ในตําแหน่งที่ตั้งที่ไม่นําไปใช้
ต่อไปนี้คือตัวคั่นคําที่ถูกต้องสําหรับตัวพิมพ์ใหญ่-เล็กที่เหมาะสม: Null (),Chr$(0) แท็บแนวนอน (),Chr$(9) อักขระเลื่อน (), อักขระตัวดึงข้อมูลบรรทัด (),Chr$(10) แท็บแนวตั้ง (),Chr$(11) ตัวดึงฟอร์ม (),Chr$(12) อักขระขึ้นบรรทัดใหม่ ()Chr$(13) และช่องว่าง (SBCS) (Chr$(32)) สําหรับ DBCS ค่าจริงสําหรับช่องว่างจะแตกต่างกันไปในแต่ละประเทศหรือภูมิภาค
ข้อสังเกต
เมื่อคุณแปลงอาร์Byteเรย์ในรูปแบบ ANSI เป็นสตริง ให้ใช้ฟังก์ชันStrConv เมื่อคุณแปลงอาร์เรย์ชนิดเดียวกันในรูปแบบ Unicode ให้ใช้คําสั่ง assign
ตัวอย่างคิวรี
| นิพจน์ | ผลลัพธ์ |
|---|---|
SELECT StrConv(ProductDesc,1) AS Expr1 FROM ProductSales; |
แปลงค่าจากเขตข้อมูลเป็น ProductDesc ตัวพิมพ์ใหญ่ และแสดงค่าเหล่านั้นใน Expr1 คอลัมน์ |
SELECT StrConv(ProductDesc,2) AS LowercaseID FROM ProductSales; |
แปลงค่าจากเขตข้อมูลเป็น ProductDesc ตัวพิมพ์เล็ก และแสดงค่าเหล่านั้นใน LowercaseID คอลัมน์ |
ตัวอย่าง VBA
หมายเหตุ
ตัวอย่างต่อไปนี้แสดงวิธีการใช้ฟังก์ชันนี้ในโมดูล Visual Basic for Applications (VBA) สําหรับข้อมูลเพิ่มเติมเกี่ยวกับการทํางานกับ VBA ให้เลือก การอ้างอิงนักพัฒนา ในรายการดรอปดาวน์ที่อยู่ถัดจาก ค้นหา แล้วใส่คําอย่างน้อยหนึ่งคําในกล่องค้นหา
ตัวอย่างนี้ใช้ฟังก์ชันใน StrConv การแปลงสตริง Unicode เป็นสตริง ANSI
Dim i As Long
Dim x() As Byte
x = StrConv("ABCDEFG", vbFromUnicode) ' Convert string.
For i = 0 To UBound(x)
Debug.Print x(i)
Next