請教CST VBA 字符串和數值的轉化問題
來源：edatop
更新時間：2024-09-01
閱讀：
如果是數值型字符串直接用 Eval 函數既可以轉化為數值，但是如果字符串里面含有其他字符 怎么辦?
比如Lstring=“10.2，”， 如何提取里面的10.2啊?
以前用VBS在另一個軟件里做過數字提取，但是具體的忘記了，剛才Baidu了一下，小編可以試試下面這個是否可以?
http://zhidao.baidu.com/question/287336399.html
Sub ptnum()
Dim a, b
a = InputBox("請輸入字符串") '輸入字符竄
For i = 1 To Len(a)
If IsNumeric(Mid(a, i, 1)) Then b = b & Mid(a, i, 1) '判斷是否數字
Next
MsgBox b '輸出字符竄
End Sub
謝謝， 但是如果我要保留小數點呢?這段程序把小數點都去掉了啊?
呃。那我再百度下。
找到了， 直接判斷是逗號就去掉，其他保留，
呵呵 方法比較蠢。
程序大致如下：
for i=1 to len(a)
if a（i)<>"," then
b=b&a(i)
end if
呵呵 反正這個問題解決了，謝謝各位老大的幫助啊
