How to Strip Leading Spaces and Underscores from Object
On Wed, 24 Dec 2008 12:59:00 -0800, TomP
wrote:
I have a string that captures text from a mainframe and would like to know
how to get rid of the underscores and spaces.
Here's an example of what I have
Dim SMPL as String
SMPL = CurrentScreenObject.GetString (3, 30, 25)
Range ( "A14") = SMPL 'text is put on the spreadsheet
Here's an example of what would show up on the spreadsheet .....
___ TEXT
Try this used defined function:
Function r_l_s_u(s As String) As String
' removes leading spaces and underscores
Dim x As String
x = s
Do While (Mid(x, 1, 1) = "_" Or Mid(x, 1, 1) = " ")
x = Mid(x, 2)
Loop
r_l_s_u = x
End Function
In cell B14 you put the formula =r_l_s_u(A14)
Hope this helps
|