It works now, but what would I have to do to remove 3 more spaces before it
finds the first character? Most of the spaces and underscores were removed.

Thank you

"Lars-Åke Aspelin" wrote:

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