split text halvvejs ved mellemrum

<%
Function ReSizeText(inText)
'******************************************
'Created by:  FW
'Created date: 28.09.2002
'Purpose: Make sure that each line in text
'        is no more than 25 characters
'Modified by:    'Modified date:
'Description:
'******************************************
  dim tempmessage
  dim b, i
  tempmessage = ""
  b = 0
  for i = 1 to Len(inText)
  b = b + 1
  tempmessage = tempmessage & Mid(inText,i,1)
  if b > 21 and Mid(inText,i,1) = " " then
      tempmessage = tempmessage & "<br>"
      b = 0
  end if
  next
  ReSizeText = tempmessage

End Function
%>

Hvis man finder længden på strengen og så finde et mellemrum der omkkring:

VAR = "Jeg har en cykel"
strLen = Len(var)
delVed = Int(strLen/2)
if delVed > 0 then
  index = inStrRev(var, " ", delVed)
  if index > 0 then
    var1 = left(var,index)
    var2 = mid(var,index+1)
  end if
end if

hmm - virker ikke umiddelbart;

<%
Function ReSizeText(inText)
  dim tempmessage
  dim b, i
  tempmessage = ""
  b = 0
  for i = 1 to Len(inText)
  b = b + 1
  tempmessage = tempmessage & Mid(inText,i,1)
  if b > 21 and Mid(inText,i,1) = " " then
      tempmessage = tempmessage & "<br>"
      b = 0
  end if
  next
  ReSizeText = tempmessage

End Function

response.write ReSizeText("jeg har en cykel")
%>

hov - de 21 skulle lige ændres så splittes der rigtig nok...

men jeg er ikke interesseret i at teksten kan risikere at blive splittet i mere end to!

eagleeye deler i to -- ved mellemrum lige før !-)

ah - dit ser straks bedre ud eagleeye :)

hvis jeg så skal være ekstra speciel, kan man så dele VAR så VAR1 ender med at have måske 100 tegn mindre end VAR2 såfremt teksten er længere end fx 1000 tegn?

Ja det kan man da man kan bare trække 100 fra hvis længden er > 1000

VAR = "Jeg har en cykel"
strLen = Len(var)
delVed = Int(strLen/2)
if delVed > 0 then
  if strLen > 1000 then  delVed = delVed - 100  '-100 hvis total længden >1000
  index = inStrRev(var, " ", delVed)
  if index > 0 then
    var1 = left(var,index)
    var2 = mid(var,index+1)
  end if
end if

!-| Giver 200 tegn mere ,-\

Ja det var vist lige hurtigt nok, det skal jo være -50 for at få 100 ;)

det ser umiddelbart rigtig lækkert ud - jeg vil lige lege lidt mere med det før jeg giver point :)

PERFEKT! legede lidt mere med at par småting og det kører helt som det skal! takker