Iphone

Question: I need to remove leading zeroes from the following types of text strings. I'm looking for the shortest, fastest way of converting this field. I'll be using setvalue to post these to another text field. The initial field's character count can be any number of digits.


Below are sample entries.

01234 converts to 1234
0001234a converts to 1234a
001234-a converts to 1234-a
101234 remains at 101234
2509398 remains at 2509398
123z remains at 123z
000002829839 converts to 2829839

Thank you. Points go to fastest application. I'll be testing with 1000 rows of data.

Iphone

Public Function trimLeadingChar(charToRemove As String, stringToFix As String) As String
Dim lngLC As Long

For lngLC = 1 To Len(stringToFix)
If Mid(stringToFix, lngLC, 1) <> Left(charToRemove, 1) Then
trimLeadingChar = Right(stringToFix, Len(stringToFix) - lngLC + 1)
Exit Function
End If
Next lngLC
trimLeadingChar = ""

End Function