Removing a box??

[kiwis]

This is my code and everything works well however there are little boxes after most lines and guess this is where someone hit the space bar after entering it on the online form??

How can I remove it??

ssource = Inet1.OpenURL("http://www.mysite.com/application/get_news.php?id=" & Form1.Text2.Text)
lStart = 1
lEnd = 1
sFindStart = "##"
sFindEnd = "/##"
lStart = InStr(lStart, ssource, sFindStart, vbTextCompare)
If lStart Then
lStart = lStart + Len(sFindStart)
lEnd = InStr(lStart, ssource, sFindEnd, vbTextCompare)
If lEnd > lStart Then
Body = Mid$(ssource, lStart, lEnd - lStart)
NewBody = Replace(Body, "<p>", vbCrLf)
NewBody2 = Replace(NewBody, "</p>", vbCrLf)
NewBody3 = Replace(NewBody2, "</br>", vbCrLf)
NewBody4 = Replace(NewBody3, "<br>", vbCrLf)
Text5.Text = NewBody4
'Text5.Text = Mid$(ssource, lStart, lEnd - lStart)
Else
Debug.Print "End text not found."
End If
Else
Debug.Print "Text not found."
End If

[RhinoBull]

The box you reffer to could be the NULL character so try the following:

Text5.Text = Replace(NewBody4, Chr(0), "")

[kiwis]

No it does not fix it :-(

Any other ideas?

[gavio]

Try vbLf instead of vbCrLf:

NewBody = Replace(Body, "<p>", vbLf)
NewBody2 = Replace(NewBody, "</p>", vbLf)
NewBody3 = Replace(NewBody2, "</br>", vbLf)
NewBody4 = Replace(NewBody3, "<br>", vbLf)

[kiwis]

God no that makes it worse, thanks for the idea however :-)

[gavio]

Maybe this can help:

Dim newString As String * 1
   newString = 'put in here the box char
      Text5.Text = Replace(NewBody4, newString, "")

[RhinoBull]

@kiwis:

did you set MultiLIne = True for your textbox?

[kiwis]

Hi RhinoBull,

yes I am, everything else works ie <p> and <br> it's just these [] or similiar that are showing.... it's not that though

[kiwis]

You can see the problem here

[RhinoBull]

You can use Asc() function to determine ascii code and then replace that thing with empty string.

[westconn1]

this should get rid of all boxes, no matter what they are

For i = 0 To 31
Select Case i
    Case 1 To 8, 11, 12, 14 To 31
    
    body = Replace(body, Chr(i), "")
End Select
Next

[BillGeek]

Don't know if the tab char is included with the list from Westconn1, but try it as well.

body = Replace(body, vbTab, "")

[westconn1]

tab is 9
cr is 13
lf is 10

all not included, they don't show as boxes

[kiwis]

this should get rid of all boxes, no matter what they are

For i = 0 To 31
Select Case i
    Case 1 To 8, 11, 12, 14 To 31
    
    body = Replace(body, Chr(i), "")
End Select
Next

Will this change any number i have like "team one won 15 - 1"??

[gavio]

Only numbers 1,2,3,4,5,6,7,8,11,12 and from 14 to 31.
1 and 15 would be replaced.

[westconn1]

the code above will not replace any numbers at all

it replaces characters with the ascii codes i listed, all of which display as small boxes