LInefeed characters

[Hari]

Hi,

I am getting some value in a excel cell into VB textbox. The value contains some numbers such as 0, 1 etc.

With the value 0 i am also getting some carriage return and line feed characters(vertical bars). Since i have to perform some action based on the Excel cell value i need to sepearate just the numbers (i.e. 0,1 etc).

Is there a way just to seperate the numbers from those characters. I would really appreciate some help with this.


Thanks ,
Hari

[KayJay]

Use the replace function.

newString = Replace(strgVariable, vbCrLf, "")

[otherones]

Not sure if this is what you are looking for, but this will return everything up to the first non number

for i = 1 to Len(txtBox.value)
   if Not Mid(txtBox.value,i,1)  like "#" Then
        txtBox.value = Left(txtBox.value, i-1)
        Exit For
   End if
next

[Hari]

Thanks KJ

it worked

Hari

[KayJay]

UR Welcome.

Also note that when you import/assign text from an external application/process/code, you will have a problem in differentiating, VBCRLF, VBCR, VBLF. All return as (a) pipe(s).

So use something like this

Private Sub Command1_Click()
strng = "Me" & vbCrLf & "My" & vbCr & "Myself" & vbLf
    Text1.Text = strng
strng = Replace(strng, vbCrLf, "")
strng = Replace(strng, vbCr, "")
strng = Replace(strng, vbLf, "")
    Text1.Text = strng
End Sub