How do you Delete Vbcrlf from a string?


How do you Delete all VbCrLf from a string?
vbvpgAsked:
Who is Participating?

[Webinar] Streamline your web hosting managementRegister Today

x
 
traygreenConnect With a Mentor Commented:
You can look for it using instr and then mid it out.
vbcrlf is a two character string comprised of ASCII chars 10 & 13

   Dim iCRLFPos As Integer
   
   iCRLFPos = InStr(1, Text1.Text, vbCrLf)
   If iCRLFPos > 0 Then
      If iCRLFPos = 1 Then
         Text1.Text = Mid(Text1.Text, 2)
      Else
         Text1.Text = Mid(Text1.Text, 1, iCRLFPos - 1) & Mid(Text1.Text, iCRLFPos + 2)
      End If
   End If

0
 
muffinthedogCommented:
?
While InStr(str, vbCrLf)
    str = Left(str, InStr(str, vbCrLf) - 1) & Right(str, Len(str) - InStr(str, vbCrLf) - 1)
Wend

0
All Courses

From novice to tech pro — start learning today.