[Samurize] Text Wrap

[kaptain chump]

in all sweetness i got my surfrepot to show up on my wonderful desktop...one problem!

the text is on long ass line and doesnt wrap the box like i want it to. please someone answer my cries for help....im soo close!

'------------------------------------------------------------------------

' Internet Script Template (v1.0)

'------------------------------------------------------------------------

'

' *** SCRIPT REQUEST ***

'

' A customisable template that should allow you to effectively write your

' own scripts with very little (or no) VBscripting knowledge. All you

' have to do is examine the HTML source for the page you want to get

' data from and change the six variables below.

'

' The script is already set up to work with FilePlanet.com, so if you

' want to have a good idea as to how this script works, I advise that

' you examine the source of the fileplanet.com website as well.

'

' PLEASE NOTE: I will provide very little (if any) support for this

' ------------ script. I only made it because I was asked by a user of my

' portal for a Script Template so he could have a go at

' making his own scripts.

'

' There are quite a few things that could go wrong with it

' (as far as wetting the variables below is concerned) so

' only attempt to use it if you have *SOME* idea of what

' you are doing ;)

'

'

' - NeM

'------------------------------------------------------------------------

' Stop by NeM Portal at http://samurize.breezeland.com/

'------------------------------------------------------------------------

'=========================================================================

' VARIABLES TO CHANGE:

'=========================================================================

'=========================================================================

' The name of the temp file you want to use for the script (needed for

' the GetInfoTempFile() function only)

'=========================================================================

TMP_FILE = "surfing.tmp"

'=========================================================================

'=========================================================================

' The url of the site you want to get your data from

'=========================================================================

SITE_URL = "http://newsmyrna.com/index.php?p=surfing"

'=========================================================================

'=========================================================================

' A string in the HTML source to verify that you have got the right page

' (eg. use the page title)

'=========================================================================

PAGE_CHECK = "<title>Welcome to"

'=========================================================================

'=========================================================================

' String to search for first - to advance to a spot just before each

' data item you want to extract.

' (NOTE: text containing quote marks (") must have two " marks to signify

' a " in the text.)

'=========================================================================

FIRST_CHECK = "bgcolor=""6492EB""> "

'=========================================================================

'=========================================================================

' String marking the end of all text before the text you are interested in

' (eg. if you were interested in the text of a hyperlink:

'

' <a href="somesite">My Text</a>

'

' you would set this to "somesite"">" for example.

'=========================================================================

FIRST_CHECK2 = "</b> -"

'=========================================================================

'=========================================================================

' String marking the end of the text you are interested in. eg. if you

' were interested in the text of a hyperlink:

'

' <a href="somesite">My Text</a>

'

' you would set this to "</a>"

'=========================================================================

END_CHECK = "<br />"

'=========================================================================

'=========================================================================

' DO NOT MODIFY ANYTHING PAST HERE UNLES YOU KNOW WHAT YOU ARE DOING!

'=========================================================================

Function GetInfo()

dim htmlResult,output,newsItem,mainFeature

htmlResult = ReturnHTML(SITE_URL)

output = NULL

startPos = instr(htmlResult, PAGE_CHECK)

if startPos > 0 then

Do While instr(startPos, htmlResult, FIRST_CHECK)>0

posOne = instr( startPos, htmlResult, FIRST_CHECK)

posOne = instr( posOne, htmlResult, FIRST_CHECK2) + Len(FIRST_CHECK2)

posTwo = instr( posOne, htmlResult, END_CHECK)

if posOne > 0 AND posTwo > posOne Then

'grab the name of the news item

newsItem = right(mid( htmlResult, posOne, posTwo-posOne ), posTwo-posOne)

end if

' new start position

startPos = posTwo

'append the user to the list and put a newline char after it

output = output & newsItem

' don't add a newline to the last item

If instr(startPos, htmlResult, FIRST_CHECK)>0 Then

output = output & (Chr(13) & Chr(10))

End If

Loop

else

output = "Could not obtain data."

end if

GetInfo = TrimHTML(output)

End Function

Function GetInfoTempFile()

set fs=CreateObject("Scripting.FileSystemObject")

set f=fs.CreateTextFile(TMP_FILE,true)

f.write(GetInfo())

f.close

set f=nothing

set fs=nothing

GetInfoTempFile = "OK!"

End Function

Private Function ReturnHTML(sURL)

Dim objXMLHTTP,HTML

Set objXMLHTTP = CreateObject("Microsoft.XMLHTTP")

objXMLHTTP.Open "GET", sURL, False

objXMLHTTP.Send

HTML = objXMLHTTP.responseBody

Set objRS = CreateObject("ADODB.Recordset")

objRS.Fields.Append "txt", 200, 45000, &H00000080

objRS.Open

objRS.AddNew

objRS.Fields("txt").AppendChunk HTML

ReturnHTML = objRS("txt").Value

objRS.Close

Set objRS = Nothing

Set objXMLHTTP = Nothing

End Function

' ******************************

' Following function by Alderaic

' ******************************

'very simple function that will remove all html tags

Private Function TrimHTML(str)

pos_deb = InStr(1, str, "<")

Do Until pos_deb = 0

pos_fin = InStr(pos_deb, str, ">")

part_d = Mid(str, 1, pos_deb - 1)

part_f = Mid(str, pos_fin + 1, Len(str) - pos_fin)

str = part_d & part_f

pos_deb = InStr(1, str, "<")

Loop

TrimHTML = str

End Function

[z]

What exactly does this script do?

Can you post a screenie?

-zoot

[kaptain chump]

This script gets the actual report from the newsmyrna.com surf report.

But see the problem is, the test doesnt wrap in the box and is cut off at a certain point :(

I'm trying to figure out how to make the text wrap

[Hooya]

There is a wrap text script (or add-on) that will do this. I dont' know if it's back on thier site or not. Try posting in the samurize.com forums.

[kaptain chump]

I cant seem to locate the wrap text script on google, samurize.com, or samurize forums :(

If you could hit me up with an email at [email protected] wth the addon/script that we be kickass :D