台灣最大程式設計社群網站
線上人數
1402
 
會員總數:246630
討論主題:190056
歡迎您免費加入會員
討論區列表 >> VB6 >> 如何用VB6找出中文字的筆劃數目?
[]  
[我要回覆]
1
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
如何用VB6找出中文字的筆劃數目?
價值 : 21 QP  點閱數:3065 回應數:3
樓主

Jimmy
初學者
81 6
230 33
發送站內信

e.g. 三 = 3劃,中 = 4劃,香 = 9劃 ............
搜尋相關Tags的文章: [ 中文字 ] , [ 筆劃 ] ,
本篇文章發表於2005-02-14 15:06
1樓
最有價值解答

rshonwin
捐贈 VP 給 rshonwin 檢舉此回應
你試試新增一個模組(bas)
模組裡面你寫個Function
'模組-------------------------------------------------------------
Option Explicit
Function Chinese(ByVal Str As String) As Integer
Select Case CInt(Asc(Str))
Case -23488, -23487
Chinese = 1
Case -23486 To -23476, -14016 To -14012
Chinese = 2
Case -23485 To -23426, -14011 To -14004
Chinese = 3
Case -23391 To -23299, -14003 To -13982
Chinese = 4
Case -23298 To -23073, -13981 To -13954, -13919 To -13910
Chinese = 5
Case -23072 To -22807, -13909 To -13735
Chinese = 6
Case -22806 To -22334, -23968, -13734 To -13392
Chinese = 7
Case -22333 To -21692, -13391 To -12836
Chinese = 8
Case -21691 To -21061, -23975, -12835 To -12089, -1574
Chinese = 9
Case -21060 To -20307, -23974, -12088 To -11190
Chinese = 10
Case -20306 To -19518, -23973, -23972, -11189 To -10160
Chinese = 11
Case -19517 To -18750, -23971, -10159 To -9040, -1573
Chinese = 12
Case -18749 To -18005, -9039 To -7953, -1578, -1576
Chinese = 13
Case -18004 To -17420, -23969, -23967, -7952 To -6939
Chinese = 14
Case -17419 To -16730, -6938 To -5901, -1577, -1572
Chinese = 15
Case -16729 To -16268, -23970, -5900 To -4936, -1575
Chinese = 16
Case -16267 To -15794, -4935 To -4170
Chinese = 17
Case -15793 To -15522, -4169 To -3601
Chinese = 18
Case -15521 To -15274, -3600 To -3076
Chinese = 19
Case -15273 To -15146, -3075 To -2625
Chinese = 20
Case -15145 To -14998, -2624 To -2347
Chinese = 21
Case -14997 To -14905, -2346 To -2097
Chinese = 22
Case -14904 To -14864, -2096 To -1884
Chinese = 23
Case -14863 To -14764, -1883 To -1811
Chinese = 24
Case -14763 To -14746, -1810 To -1686
Chinese = 25
Case -14745 To -14741, -1685 To -1631, -1596, -1595
Chinese = 26
Case -14740 To -14731, -1630 To -1607
Chinese = 27
Case -14730 To -14728, -1606 To -1597
Chinese = 28
Case -14727 To -14724, -1593 To -1589
Chinese = 29
Case -14723, -1588 To -1585
Chinese = 30
Case -1584
Chinese = 31
Case -14722, -1583
Chinese = 32
Case -1582
Chinese = 33
Case -1581
Chinese = 35
Case -1594, -1580
Chinese = 36
Case -1579
Chinese = 48
End Select
End Function
'--------------------------------------------------------
如果你要測試筆劃的話,就在你的Form裡呼叫Chinese
'表單----------------------------------------------------
Msgbox Chinese("香")
'--------------------------------------------------------
如果你有很多字的話,你可以用個迴圈去Run
本篇文章回覆於2005-02-15 00:22
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
2樓
這個厲害, 直接利用中文按筆劃編碼的方式求答案
請問這哪裡查的到相關資料呢?!
本篇文章回覆於2005-02-15 01:05
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
3樓
回應

rshonwin
捐贈 VP 給 rshonwin 檢舉此回應
有興趣的話,可以到財團法人中文數位化技術推廣基金會那裡,從那裡搜集一些資訊回來再加以運用
http://www.cmex.org.tw
本篇文章回覆於2005-02-15 02:02
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
   
1

回覆
如要回應,請先登入.