VBA函数在特定情况下添加尾随零

我试图创建一个函数，该函数可以通过字符串给出数字的部分值。我试过的各种版本的工作效果都不尽如人意，我在http://www.utteraccess.com/forum/Find-number-string-Ins-t1746052.html上找到了一个代码片段。VBA函数在特定情况下添加尾随零

，我试图从样子拉值的字符串：
A11, A21A23, A25, A23A21, etc.
有几个专门的情况下字符串是：
A23 D0, A23 D1, A23A21 D0, etc.

出于某种原因，在包括了d的情况下，，代码将为D后的任意数量加上一个零。所以A23 D0返回：23，因为它应该A23 D1，但是，返回230。 A23 D3返回23000，依此类推。

我对VBA相当陌生，我无法弄清楚会导致字母D添加尾随零的位置，其他字母代替D的位置不会有相同的效果。

的VBA脚本如下：

Public Function GetNumFromStringFloating(strText As String, Optional intPos As Integer = 1) As String 
'? GetNumFromStringFloating("12*TLG AUTVTG18871890AAUG") = 12 
'? GetNumFromStringFloating("12*TLG AUTVTG18871890AAUG",3) = 12 
'? GetNumFromStringFloating("12*TLG AUTVTG18871890AAUG",14) = 18871890 
'? GetNumFromStringFloating("12*TLG AUTVTG18871890AAUG",-1) = 18871890 (Reverse Search) 
Dim X As Integer 
If intPos > 0 Then 
    For X = intPos To Len(strText) 
     If IsNumeric(Mid(strText, X, 1)) Then 
      GetNumFromStringFloating = val(Mid(strText, X) & "") 
      Exit For 
     End If 
    Next X 
Else 
    For X = Len(strText) To Abs(intPos) Step -1 
     If IsNumeric(Mid(strText, X, 1)) Then 
      GetNumFromStringFloating = val(Mid(strText, X) & "") 
     Else 
      If GetNumFromStringFloating <> "" Then Exit For 
     End If 
    Next X 
End If 
End Function

来源

2012-07-05 Secundus

什么是你的业务规则是什么呢？什么是输入和什么是你想要的输出？ – NoChance 2012-07-05 23:37:38

Val存在一定的误解（http://office.microsoft.com/en-us/access-help/val-function-HA001228931.aspx） – Fionnuala 2012-07-05 23:41:14

像这样的东西可能适合：

Function getnum(sText) 
''A11, A21A23, A25, A23A21 
Dim sNum As String 

''Skip the first letter 
For i = 2 To Len(sText) 
    If IsNumeric(Mid(sText, i, 1)) Then 
     sNum = sNum & Mid(sText, i, 1) 
    Else 
     Exit For 
    End If 
Next 

getnum = sNum 
End Function

来源

2012-07-05 23:47:47 Fionnuala

VBA函数在特定情况下添加尾随零

回答

相关问题