A string has no line feeds or cariage retunrs or spaces, need to insert a vbCrLf

[Jason]

When users fill out my text area field, there is a chance that there
will be no line feeds or cariage returns or spaces and just one really
long word. THIS CAUSES A MAJOR PROBLEM! What I am trying to do is
force a vbCrLf if a string is long than 80 characters in a row. So if
a string is a total of 500 characters with no line feeds, spaces, or
returns, I want to force a vbCrLf every 80 characters so that is
doesn't overflow my preview text field on the next page.

Any suggestions on how the algorithm would be for this in VBscript
ASP?

Thanks,
Jason

[Adrienne]

Gazing into my crystal ball I observed al******@msn.com (Jason) writing in
news:ce**************************@posting.google.c om:

When users fill out my text area field, there is a chance that there
will be no line feeds or cariage returns or spaces and just one really
long word. THIS CAUSES A MAJOR PROBLEM! What I am trying to do is
force a vbCrLf if a string is long than 80 characters in a row. So if
a string is a total of 500 characters with no line feeds, spaces, or
returns, I want to force a vbCrLf every 80 characters so that is
doesn't overflow my preview text field on the next page.

Any suggestions on how the algorithm would be for this in VBscript
ASP?

Thanks,
Jason

How about:
for each word in split(request.form("test")," ")
if len(trim(word)) > 5 then
test = test & left(word,5) & vbcrlf & right(word,len(word)-5) & " "
else
test = test & word & " "
end if
next

--
Adrienne Boswell
Please respond to the group so others can share
http://www.arbpen.com

[Tom B]

Your script seems to shorten each word to a maximum of 5 characters?

"Adrienne" <ar********@sbcglobal.net> wrote in message
news:Xn****************************@207.115.63.158 ...

Gazing into my crystal ball I observed al******@msn.com (Jason) writing in
news:ce**************************@posting.google.c om:

When users fill out my text area field, there is a chance that there
will be no line feeds or cariage returns or spaces and just one really
long word. THIS CAUSES A MAJOR PROBLEM! What I am trying to do is
force a vbCrLf if a string is long than 80 characters in a row. So if
a string is a total of 500 characters with no line feeds, spaces, or
returns, I want to force a vbCrLf every 80 characters so that is
doesn't overflow my preview text field on the next page.

Any suggestions on how the algorithm would be for this in VBscript
ASP?

Thanks,
Jason

How about:
for each word in split(request.form("test")," ")
if len(trim(word)) > 5 then
test = test & left(word,5) & vbcrlf & right(word,len(word)-5) & " "
else
test = test & word & " "
end if
next

--
Adrienne Boswell
Please respond to the group so others can share
http://www.arbpen.com

[Tom B]

Dim iLoop
Dim sWorking
Dim sSection
for iLoop = 0 to len(theString) step 80
sSection=mid(theString,iLoop,80)
if instr(sSection," ") = 0 OR instr(sSection,vbCrLf)=0 then
sWorking=sWorking & sSection & vbCrLf
else
sWorking=sWorking & sSection
end if
next

"Jason" <al******@msn.com> wrote in message
news:ce**************************@posting.google.c om...

When users fill out my text area field, there is a chance that there
will be no line feeds or cariage returns or spaces and just one really
long word. THIS CAUSES A MAJOR PROBLEM! What I am trying to do is
force a vbCrLf if a string is long than 80 characters in a row. So if
a string is a total of 500 characters with no line feeds, spaces, or
returns, I want to force a vbCrLf every 80 characters so that is
doesn't overflow my preview text field on the next page.

Any suggestions on how the algorithm would be for this in VBscript
ASP?

Thanks,
Jason

[Aaron Bertrand [MVP]]

http://tinyurl.com/rhyl


"Jason" <al******@msn.com> wrote in message
news:ce**************************@posting.google.c om...

When users fill out my text area field, there is a chance that there
will be no line feeds or cariage returns or spaces and just one really
long word. THIS CAUSES A MAJOR PROBLEM! What I am trying to do is
force a vbCrLf if a string is long than 80 characters in a row. So if
a string is a total of 500 characters with no line feeds, spaces, or
returns, I want to force a vbCrLf every 80 characters so that is
doesn't overflow my preview text field on the next page.

Any suggestions on how the algorithm would be for this in VBscript
ASP?

Thanks,
Jason

[Adrienne]

Gazing into my crystal ball I observed "Tom B"
<sh*****@NOSPAMhotmail.com> writing in
news:#u**************@TK2MSFTNGP10.phx.gbl:

"Adrienne" <ar********@sbcglobal.net> wrote in message
news:Xn****************************@207.115.63.158 ...

Gazing into my crystal ball I observed al******@msn.com (Jason)
writing in news:ce**************************@posting.google.c om:

> When users fill out my text area field, there is a chance that there
> will be no line feeds or cariage returns or spaces and just one
> really long word. THIS CAUSES A MAJOR PROBLEM! What I am trying to
> do is force a vbCrLf if a string is long than 80 characters in a
> row. So if a string is a total of 500 characters with no line feeds,
> spaces, or returns, I want to force a vbCrLf every 80 characters so
> that is doesn't overflow my preview text field on the next page.
>
> Any suggestions on how the algorithm would be for this in VBscript
> ASP?
>
> Thanks,
> Jason
>

How about:
for each word in split(request.form("test")," ")
if len(trim(word)) > 5 then
test = test & left(word,5) & vbcrlf & right(word,len(word)-5) & " "
else test = test & word & " "
end if
next

Your script seems to shorten each word to a maximum of 5 characters?

Just for testing. It's a little easier to test with 5 characters than 80.
YMMV.

--
Adrienne Boswell
Please respond to the group so others can share
http://www.arbpen.com

[Bob Lehmann]

I have trouble remembering something that happened last week, and you recall
a thread from over three years ago? :>)

Bob Lehmann

"Aaron Bertrand [MVP]" <aa***@TRASHaspfaq.com> wrote in message
news:uy**************@TK2MSFTNGP12.phx.gbl...

http://tinyurl.com/rhyl


"Jason" <al******@msn.com> wrote in message
news:ce**************************@posting.google.c om...

When users fill out my text area field, there is a chance that there
will be no line feeds or cariage returns or spaces and just one really
long word. THIS CAUSES A MAJOR PROBLEM! What I am trying to do is
force a vbCrLf if a string is long than 80 characters in a row. So if
a string is a total of 500 characters with no line feeds, spaces, or
returns, I want to force a vbCrLf every 80 characters so that is
doesn't overflow my preview text field on the next page.

Any suggestions on how the algorithm would be for this in VBscript
ASP?

Thanks,
Jason

[Aaron Bertrand - MVP]

I vaguely recalled dealing with the situation before (and was surprised I
hadn't entered an article about it). Though you can easily force carriage
returns by placing text within a fixed-width table or div.

It took me about 20 minutes to find that thread, because of my initial
choice of keywords...


"Bob Lehmann" <no****@dontbotherme.zzz> wrote in message
news:uj**************@tk2msftngp13.phx.gbl...

I have trouble remembering something that happened last week, and you recall a thread from over three years ago? :>)