Skip to content

Instantly share code, notes, and snippets.

@ndthanh

ndthanh/RemoveNumbers.bas Secret

Created July 26, 2021 15:02
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save ndthanh/3ad94dc79fc58309e9c9f758cdf36816 to your computer and use it in GitHub Desktop.
Save ndthanh/3ad94dc79fc58309e9c9f758cdf36816 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
RemoveNumbers.bas
Function RemoveNumbers(str As String)
Dim sRes As String
sRes = ""
For i = 1 To Len(str)
If False = IsNumeric(Mid(str, i, 1)) Then
sRes = sRes & Mid(str, i, 1)
End If
Next i
RemoveNumbers = sRes
End Function
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment