以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  列转换  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=58940)
--  作者：Bin
--  发布时间：2014/10/27 8:27:00
--  
你应该默认就输入数字,再转换大写.
--  作者：有点甜
--  发布时间：2014/10/27 9:26:00
--  
 你这种的转换，很麻烦的，要分析各个级别的规律，要分析各个档的规律才能转换为数字的。
--  作者：Bin
--  发布时间：2014/10/27 17:23:00
--  
固定的话,就新增一个等级表 和一个档次表

利用FIND找到对应的数值即可

搞不定就上个例子,我帮你完成
--  作者：有点甜
--  发布时间：2014/10/27 17:27:00
--  

 参考代码

 

Dim jb() As String = {"一", "二", "二十四"}
Dim dw() As String = {"一", "二", "十二"}

Dim str1 As String = "二十四级"
Dim str2 As String = "二档"

Dim idx1 As Integer = array.IndexOf(jb, str1.Replace("级", ""))
Dim idx2 As Integer = array.IndexOf(dw, str2.Replace("档", ""))

msgbox(idx1 + 1 + (idx2+1) * 0.1)
--  作者：有点甜
--  发布时间：2014/10/27 19:11:00
--  

 5楼已经告诉你答案了。

 

 做一个表格，或者用6楼的代码。
--  作者：飞飞
--  发布时间：2014/10/27 19:49:00
--  
小伙子思路还要改进