→ MOONRAKER:其實現在不用太考慮時間問題…前面的指教不用在意 XD 03/08 22:37
→ Y78:自從上一篇體驗到兩種作法時間差那麼多之後(十倍) 我也想開始 03/08 23:26
→ Y78:注重時間的問題~ 03/08 23:26
→ Y78:做大量資料運算的時候時間很重要阿~ 03/08 23:26
這邊提供一個方法
但是不保證可以很快的執行啦~(我寫出來的東西通常都不怎麼注意到時間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