ขอคำชี้แนะเกิ่ยวกฟบ Select Case DirectCast operator '-' is not defined for type char and char

outhai1992

1. Public Function Main(ByVal StrChr As Char) As Char
   
2. 
   
3.         Select Case DirectCast((StrChr1 - "x"c), Char)
   
4.             Case ChrW(0)
   
5.                 Return "x"c
   
6.             Case ChrW(1), ChrW(2), ChrW(3), ChrW(4), ChrW(5), ChrW(6), ChrW(7), vbBack, vbTab, vbLf, vbVerticalTab, vbFormFeed, vbCr, ChrW(14), ChrW(15), ChrW(16), ChrW(17), ChrW(18), ChrW(19), ChrW(20), ChrW(21), ChrW(22), ChrW(23), ChrW(24), ChrW(25), ChrW(26), ChrW(27), ChrW(28), ChrW(29), ChrW(30), ChrW(31), " "c, "!"c, """"c, "#"c, "$"c, "%"c, "&"c, "'"c, "("c, "4"c, ">"c, "?"c, "O"c, "R"c, "S"c, "T"c, "X"c, "Y"c, "Z"c, "["c, ""c, "]"c, "^"c, "_"c, "`"c, "a"c, "b"c, "c"c, "d"c, "e"c, "f"c, "g"c, "h"c, "i"c, "j"c, "k"c, "l"c, "m"c, "n"c, "o"c, "p"c, "q"c, "u"c, "v"c, "w"c, ChrW(135), ChrW(136), ChrW(137), ChrW(138), ChrW(139), ChrW(140), ChrW(141), ChrW(142), ChrW(143), ChrW(144), ChrW(145), ChrW(146), ChrW(147), ChrW(148), ChrW(149), ChrW(150), ChrW(151), ChrW(152), ChrW(153), ChrW(154), ChrW(155), ChrW(156), ChrW(157), ChrW(158), ChrW(159), " "c, "¡"c, "¢"c, "£"c, "¤"c, "¥"c, "¦"c, "§"c, "¨"c, "©"c, "ª"c, "«"c, "¬"c, "­"c, "®"c, "¯"c, "°"c, "±"c, "²"c, "³"c, "´"c, "µ"c, "¶"c, "·"c, "¸"c, "¹"c, "º"c, "»"c, "¼"c, "½"c, "¾"c, "¿"c, "À"c, "Á"c, "Â"c, "Ã"c, "Ä"c, "Å"c, "Æ"c, "Ç"c, "È"c, "É"c, "Ê"c, "Ë"c, "Ì"c, "Í"c, "Î"c, "Ï"c, "Ð"c, "Ñ"c, "Ò"c, "Ó"c, "Ô"c, "Õ"c, "Ö"c, "×"c, "Ø"c, "Ù"c
   
7.                 Return StrChr
   
8.             Case ")"c
   
9.                 Return "ກ"c
   
10.             Case "*"c
    
11.                 Return "ຂ"c
    
12.             Case "+"c
    
13.                 Return "ຄ"c
    
14.             Case ","c
    
15.                 Return "ງ"c
    
16.             Case "-"c
    
17.                 Return "ຈ"c
    
18.             Case "."c
    
19.                 Return "ສ"c
    
20.             Case "/"c
    
21.                 Return "ຊ"c
    
22.             Case "0"c
    
23.                 Return "ຍ"c
    
24.             Case "1"c
    
25.                 Return "ດ"c
    
26.             Case "2"c
    
27.                 Return "ຕ"c
    
28.             Case "3"c
    
29.                 Return "ຖ"c
    
30.             Case "5"c
    
31.                 Return "ນ"c
    
32.             Case "6"c
    
33.                 Return "ບ"c
    
34.             Case "7"c
    
35.                 Return "ປ"c
    
36.             Case "8"c
    
37.                 Return "ຜ"c
    
38.             Case "9"c
    
39.                 Return "ຝ"c
    
40.             Case ":"c
    
41.                 Return "ພ"c
    
42.             Case ";"c
    
43.                 Return "ຟ"c
    
44.             Case "<"c
    
45.                 Return "ມ"c
    
46.             Case "="c
    
47.                 Return "ຢ"c
    
48.             Case "@"c
    
49.                 Return "ວ"c
    
50.             Case "A"c
    
51.                 Return "ຫ"c
    
52.             Case "B"c
    
53.                 Return "ອ"c
    
54.             Case "C"c
    
55.                 Return "ຮ"c
    
56.             Case "D"c
    
57.                 Return "ຽ"c
    
58.             Case "E"c
    
59.                 Return "ະ"c
    
60.             Case "F"c
    
61.                 Return "າ"c
    
62.             Case "G"c
    
63.                 Return "ຳ"c
    
64.             Case "H"c
    
65.                 Return "ເ"c
    
66.             Case "I"c
    
67.                 Return "ແ"c
    
68.             Case "J"c
    
69.                 Return "ໂ"c
    
70.             Case "K"c
    
71.                 Return "ໃ"c
    
72.             Case "L"c
    
73.                 Return "ໄ"c
    
74.             Case "M"c
    
75.                 Return "ໆ"c
    
76.             Case "N"c
    
77.                 Return "ຯ"c
    
78.             Case "P"c
    
79.                 Return "່"c
    
80.             Case "Q"c
    
81.                 Return "້"c
    
82.             Case "U"c
    
83.                 Return "ຫ"c
    
84.             Case "V"c
    
85.                 Return "ໜ"c
    
86.             Case "W"c
    
87.                 Return "ໝ"c
    
88.             Case "r"c
    
89.                 Return "ທ"c
    
90.             Case "s"c
    
91.                 Return "ຣ"c
    
92.             Case "t"c
    
93.                 Return "ລ"c
    
94.             Case "x"c
    
95.                 Return "ໍ"c
    
96.             Case "y"c
    
97.                 Return "ັ"c
    
98.             Case "z"c
    
99.                 Return "ິ"c
    
100.             Case "{"c
     
101.                 Return "ີ"c
     
102.             Case "|"c
     
103.                 Return "ຶ"c
     
104.             Case "}"c
     
105.                 Return "ື"c
     
106.             Case "~"c
     
107.                 Return "ົ"c
     
108.             Case ChrW(127)
     
109.                 Return "ຸ"c
     
110.             Case ChrW(128)
     
111.                 Return "ູ"c
     
112.             Case ChrW(129)
     
113.                 Return "ຼ"c
     
114.             Case ChrW(130)
     
115.                 Return "່"c
     
116.             Case ChrW(131)
     
117.                 Return "້"c
     
118.             Case ChrW(132)
     
119.                 Return "໊"c
     
120.             Case ChrW(133)
     
121.                 Return "໋"c
     
122.             Case ChrW(134)
     
123.                 Return "໌"c
     
124.             Case "Ú"c
     
125.                 Return "-"c
     
126.         End Select
     
127. 
     
128.         Return StrChr
     
129.     End Function
     

คัดลอกไปที่คลิปบอร์ด

thongkorn

ไม่สามารถเอา String หรือ Character มาลบกันได้ครับ จะต้องแปลงค่าพวกนี้ให้เป็นตัวเลขก่อนด้วยคำสั่ง ASC("ตัวเลข/ตัวอักษร 1 ค่า") ...


ตัวอย่างการหาค่า ASCII Code เพื่อเปลี่ยนตัวเลข 0 - 9 ให้เป็น ๐ - ๙
โดยที่ 0 มี ASCII Code = 48 และ ๐ มีค่า ASCII Code = 240 ซึ่งจะมีค่าห่างกัน 192 ค่า ... การหาคำตอบจะไม่ใช้การเปรียบเทียบค่า แต่อาศัยรหัสแอสกี้โค้ดแทน

1.     Function ConvertNum(ByVal strChr As Char) As Char
   
2.         ConvertNum = ""
   
3.         Select Case strChr
   
4.             Case "0", "1", "2", "3", "4", "5", "6", "7", "8", "9"
   
5.                 '// เมื่อ 0 มี ASCII Code = 48, ๐ มี ASCII Code = 240 ...
   
6.                 '// ระยะห่างกัน 192 ค่า
   
7.                 Return Chr(192 + Asc(strChr))
   
8.         End Select
   
9.     End Function

คัดลอกไปที่คลิปบอร์ด

ตัวอย่าง ...

1.         Dim Num As String = String.Empty
   
2.         Dim NumThai As String = String.Empty
   
3.         For i = 0 To 9
   
4.             Num = Num & " " & i
   
5.             NumThai = NumThai & " " & ConvertNum(Chr(48 + i))
   
6.         Next
   
7.         Debug.Print("Num: " & Num & vbCrLf & "Num Thai: " & NumThai)

คัดลอกไปที่คลิปบอร์ด

ผลลัพธ์ ...
Num:  0 1 2 3 4 5 6 7 8 9
Num Thai:  ๐ ๑ ๒ ๓ ๔ ๕ ๖ ๗ ๘ ๙