Delete a single character (parse) from a string. Very useful.
Delete a single character (parse) from a string. Very useful.
API Declarations
'
'Example on how to use:
'
'Private Sub Form_Load()
'NewString = "My speelling is bad."
'FixedString = DeleteChar (NewString, 6)
'End Sub
Rate Delete a single character (parse) from a string. Very useful.
(2(2 Vote))
Do
a = a + 1
b = Mid(CharString, a, 1)
If a = CharPosition Then GoTo 1
DeleteChar = DeleteChar + b
1 If a = Len(CharString) Then Exit Do
Loop
End Function
Delete a single character (parse) from a string. Very useful. Comments
No comments yet — be the first to post one!
Post a Comment