Removing a box??

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??

VB Code:

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

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

VB Code:

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

No it does not fix it :-(

Any other ideas?

Try vbLf instead of vbCrLf:

VB Code:

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

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

Maybe this can help:

VB Code:

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

@kiwis:

did you set MultiLIne = True for your textbox?

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

You can see the problem here

http://www.rugbyleaguenz.com/application/editnews.jpg

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

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

VB Code:

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

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

VB Code:

body = Replace(body, vbTab, "")

tab is 9
cr is 13
lf is 10

all not included, they don't show as boxes

Quote:

---

Originally Posted by westconn1

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

VB Code:

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"??

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

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