How to Strip Leading Spaces and Underscores from Object
Put this in your code before you store the string in cell A14:
SMPL = r_l_s_u(SMPL)
Hope this helps / Lars-Åke
On Mon, 29 Dec 2008 09:09:01 -0800, TomP
wrote:
I'm sorry, but, I'm not real sure how to apply this function. Where would I
put my object string SMPL that needs to be trimmed? My next question is how
does cell B14 get in to the picture? Couldn't I just assign the object from
the code?
Thank you,
Tom
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)
"Lars-Åke Aspelin" wrote:
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
|