Advanced Search

Return to Snippet

Revision: 26733
at May 8, 2010 13:50 by CaptainProton
Updated Code 
Private Function stripZeros(str As String) As String
  If (Left(str, 1) = "0" And Len(str) > 1) Then
    stripZeros = stripZeros(Mid(str, 2))
  Else
    stripZeros = str
  End If
End Function

Revision: 26732
at May 8, 2010 13:49 by CaptainProton
Initial Code 
Private Function stripZeros(str As String) As String
  If Left(str, 1) = "0" And Len(str) > 1 Then
    stripZeros = stripZeros(Mid(str, 2))
  Else
    stripZeros = str
  End If
End Function
Initial URL 









Initial Description





This function removes all leading zeros at the beginning of a string.









Initial Title





stripZeros(String) As String









Initial Tags














Initial Language





Visual Basic