Re: [VB6 ] 如何讓英文轉換成數字
這邊提供一個方法
但是不保證可以很快的執行啦~(我寫出來的東西通常都不怎麼注意到時間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
→
03/08 22:37, , 1F
03/08 22:37, 1F
→
03/08 23:26, , 2F
03/08 23:26, 2F
→
03/08 23:26, , 3F
03/08 23:26, 3F
→
03/08 23:26, , 4F
03/08 23:26, 4F
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 2 之 3 篇)：