各位大虾好，小生于一个问题需要请教：
通过哪个函数能够自动判断一个数据前面有没有字母，如果有就去掉数据前面的字母，输出数据；如果没有就直接输出数据。

举例：对于“C25200.0”，该函数能够自动判断出数据前面有字母并去掉字母（C），输出“25200.0"；
对于“28520.0”，该函数能够自动判断数据前面没有字母，输出“28520.0”。

请大师不吝赐教，谢谢！！

[CODE]Function TickOutForwardingChars(inputStr As String) As String
Const MathStr = "0123456789"
Dim i As Integer, startPos As Long
startPos = 65536
For i = 1 To 10
startPos = IIf((InStr(inputStr, Mid(MathStr, i, 1)) < startPos) And (InStr(inputStr, Mid(MathStr, i, 1)) > 0), InStr(inputStr, Mid(MathStr, i, 1)), startPos)Next 'i
TickOutForwardingChars = Right(inputStr, Len(inputStr) - startPos + 1)
End Function[/CODE]

楼上的代码多次使用了Mid(MathStr, i, 1)
应该使用个变量来存放.效率会高一些.

[CODE]Public Function TickOutForwardingChars(inputStr As String) As String
Const MathStr = "0 1 2 3 4 5 6 7 8 9"
Dim MathArr() As String
MathArr = Split(MathStr)
Dim i As Integer, startPos As Long
startPos = 65536
For i = 1 To 10
startPos = IIf((InStr(inputStr, MathArr(i)) < startPos) And (InStr(inputStr, MathArr(i)) > 0), InStr(inputStr, MathArr(i)), startPos)
Next 'i
TickOutForwardingChars = Right(inputStr, Len(inputStr) - startPos + 1)
End Function[/CODE]

[此贴子已经被作者于2007-9-15 14:37:23编辑过]

这是我写的版本.

Private Sub Command1_Click()
Dim s As String
s = "ABC200.1"
Print trimEngChar(s)
s = "200.1"
Print trimEngChar(s)
End Sub

Public Function trimEngChar(strSource As String) As String
Dim intIndex As Integer
Dim intStrLength As Integer
Dim intCharIndex As Integer
Dim strChar As String

'get string length
intStrLength = Len(strSource)

'first char is not number
If Not IsNumeric(Mid(strSource, 1, 1)) Then
intCharIndex = 1
For intIndex = 1 To intStrLength
strChar = Mid(strSource, intIndex, 1)
If Not IsNumeric(strChar) Then
intCharIndex = intCharIndex + 1
Else
Exit For
End If
Next
trimEngChar = Mid(strSource, intCharIndex)
Else
trimEngChar = strSource
End If
End Function

路过，顶一下

如果为“H”怎么办？十六进制！