Keeping words together?

[johany]

Ok,
I've retrived some really long text from a table. Now I'd like to split it up into two columns. I replace some stuff and then:
For col1: left(string,600)
For col2: left(string,600)

My problem is that words get split up i.e
in col1 it sais: "I have a big blac"
and in col2: "k dog."

Is there som good way to solve this?

Thanks for your help!

/johan

 

[streborr]

Give something like this a try.
maybe someone else can clean it up


' search for blank space
SearchChar = " "

SearchString = "what ever the text string is"

'position of blank space in string after 600
Pos = InStr(1, SearchString, SearchChar, 1)

'text before blank space
strText1 = Left(SearchString, Pos)

'length of text
tLen = Len(strText1)

strText2 = Right(strText1, (tLen))

For Col 1: strText1
For Col 2: strText2

hope it helps,
Rick

 

[streborr]

Oops, correction

'position of blank space in string after 600
Pos = InStr([COLOR=#ff000]600[/color], SearchString, SearchChar, 1)

 

[johany]

Thanks!
That really helped.

This way it works very good:

'Get a big chunk of text from a db and replace the
'linefeeds with <br>
SearchString = replace(rsBook(&quot;str_Desc&quot, VbCrlf, &quot;<br>&quot

'search for blank space
SearchChar = &quot; &quot;

'position of blank space in string after 600
Pos = InStr(600, SearchString, SearchChar, 1)

'text before blank space
strText1 = Left(SearchString, Pos)

'length of text
tLen = Len(strText1)

strText2 = mid(SearchString, tLen)

Response.write strText1

Response.write strText2