String manipulation... quick question

[NJCam]

I've got a string value that wraps onto two lines...

Example:
"Welcome to
my site"

What I want:
"Welcome to my site"

How can I manipulate this string so that it gets "fixed" to one line? Any help would be much appreciated.

Thanks in advance,
- Sam

 

[SkipVought]

Hi,

You have a line feed character embedded in the string

Function StripCRLF(MyString As String) as String
sOut = ""
for i = 1 to len(MyString)
  sByte = mid(MyString, i,1)
  select case sByte
   case vbLf, vbCr
     sOut = sOut & " "
   case Else
     sOut = sOut & sByte
  end select
  StripCRLF = sOut
next

hope this helps


Skip,
Skip@TheOfficeExperts.com

http://www.TheOfficeExperts.com

 

[SkipVought]

oops...

forgot End Function

;-)

Skip,
Skip@TheOfficeExperts.com

http://www.TheOfficeExperts.com

 

[poltergeist]

dim test as string
test = Replace(test, vbLf & vbCr, " &quot
or
test = replace(Replace(test, vbLf, "&quot,vdCr, "&quot


peterguhl@yahoo.de

 

[NJCam]

Perfect... thanks again!

- Sam