作者Y78 (Y78)
看板Visual_Basic
标题Re: [VB6 ] 如何让英文转换成数字
时间Sun Mar 8 21:53:04 2009
这边提供一个方法
但是不保证可以很快的执行啦~(我写出来的东西通常都不怎麽注意到时间Orz
Text1是要转换的东西
Dim str()
str = Array("A想转的", "B想转的","C想转的"..,"Z想转的")
Dim str2 As String
For i = 1 To Len(Text1.Text)
str2 = str2 & str(Asc(UCase(Mid(Text1.Text, i, 1))) - 65)
Next
Text1.Text = str2
先建立一个阵列 内容存放你想要转的东西
然後再一个一个字跑 把那个字转成阵列的某一个值
例如说文字是B Asc("B")是66 66-65=1
就会等於str(1),也就是"B想转的"
如果只是想要按照数字顺序转的话
(例如A转成1 B转成2
Dim str2 As String
For i = 1 To Len(Text1.Text)
str2 = str2 & Asc(UCase(Mid(Text1.Text, i, 1))) - 64
Next
Text1.Text = str2
如果A不是转成1 例如是转成8的话
把後面的64改成57就好了(64-7=57)
※ 引述《linkevin1688 (你有得宅吗？)》之铭言：
: 我想让A到Z全部转换成我想要的数字
: 例如A = 01 B = 02
: 不分大小写
: 如果输入 ABC 就出现 010203
: 用ASC码不知道能不能写？
: 请求版上大大帮忙
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 122.116.162.36
1F：→ MOONRAKER:其实现在不用太考虑时间问题…前面的指教不用在意 XD 03/08 22:37
2F：→ Y78:自从上一篇体验到两种作法时间差那麽多之後(十倍) 我也想开始 03/08 23:26
3F：→ Y78:注重时间的问题~ 03/08 23:26
4F：→ Y78:做大量资料运算的时候时间很重要阿~ 03/08 23:26