获得第15位数

Question

变量包含15位数，如何从另一个函数中获取第15位数值？

--hadoop_home

这里methodToCall会调用另一个函数，该函数是 15th 数字的返回值 如何从无效函数

获取anothor函数的值

Answer 1

假设我们有一个包含数字和其他字符混合的字符串，我们想要15 ^th 数字。 UDF：

Public Function GetFifteenth(sin As String) As Variant
    kount = 0
    For i = 1 To Len(sin)
        ch = Mid(sin, i, 1)
        If IsNumeric(ch) Then
            kount = kount + 1
            If kount = 15 Then
                GetFifteenth = CLng(ch)
                Exit Function
            End If
        End If
    Next i
    GetFifteenth = ""
End Function

应该这样做。例如：

Sub MAIN()
    Dim s As String, L As Variant
    s = "t2}nf[aW(494U,Oay8OWkh{xa*9>9b2SY5yPt14;m98AYd$|>U%orIJ[iF*Q)0w21!0:eX9,kU<_ x=B+cAFU<)%@{JMSze}"
    L = GetFifteenth(s)
    MsgBox L
End Sub

如果字符串总是包含15位数字，代码会更简单一些。