推 plustw:謝謝你~~成功了!!我想了好幾天~~都想不出來(大心) 05/10 17:25
※ 引述《plustw (keeping)》之銘言:
: 請教一下
: 我想要把一字串
: 裡頭有夾雜英文字母和數字
: 利用像將英文字母轉為unicode的方式
: 把全部字串都轉為數字呢??
: 例如 1234ABC5678DEF
: 轉為 12346566675678686970
: VB.net有辦法做到嗎
: 或是有其他方式可以完成呢
: 謝謝大家
Dim s As String = "1234ABC5678DEF"
Dim res As String = ""
For i = 1 To Len(s)
c = Asc(Strings.Mid(s, i, 1))
If c >= 65 And c <= 90 Then
res &= c
Else
res &= Strings.Mid(s, i, 1)
End If
Next
MsgBox(res)
--
▃▅▇▆▄ ▆▂▃ `
逝去感情如何能留住,半點癡情遺留殊不易,██▅▇▄▃ ▇▃▂" .
█████████▃i ▁▄▇
更多悽悽慘慘的遭遇…………██▆▃ █▅▆▃ˍ▄*
◢ ▂█▄▇▅▂▌.
我不知道,王~八~蛋~~! ▂▆███ █▄▃ 。fumizuki。Check。
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 123.194.224.174