返回列表 上一主題 發帖

[發問] vb截取數字???

ashan0418

帖子
59 
主題
5 
精華
0 
積分
75 
點名
176  
作業系統
xp 
軟體版本
2003 
閱讀權限
20 
性別
男 
來自
基隆 
註冊時間
2012-7-5 
最後登錄
2025-7-7 

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章
1# 跳轉到 »
發表於 2014-12-5 09:28 | 顯示全部帖子
抱歉我權限不足以下載你的附件檔，
但看你文的意思是只取數字而已嘛!!
若是的話應可以用asc()去判別每一個字的碼，
數字0是回傳48~數字9是回傳57!!

TOP

ashan0418

帖子
59 
主題
5 
精華
0 
積分
75 
點名
176  
作業系統
xp 
軟體版本
2003 
閱讀權限
20 
性別
男 
來自
基隆 
註冊時間
2012-7-5 
最後登錄
2025-7-7 

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章
2#
發表於 2014-12-5 10:49 | 顯示全部帖子
回復 5# t8899


Sub test()
  str1 = "123abc321"
  For i = 1 To Len(str1)
    If Asc(Mid(str1, i, 1)) >= 97 And Asc(Mid(str1, i, 1)) <= 122 Then
        str2 = str2 + Mid(str1, i, 1)
    End If
  Next
  MsgBox str2
End Sub

TOP

        靜思自在 : 慈悲沒有敵人，智慧不起煩惱。
返回列表 上一主題