Legge inn et   etter 20 tegn

Quick and dirty. Funktionen tager ikke højde for om den evt. indsætter   midt i et ord!

Function AddNbsp(pInput)
Dim iBreak, strResult

  iBreak = 20
  If Len(pInput) >= iBreak Then
    strResult = Left(pinput, 20) & " " & Mid(pInput,20)
  Else
    strResult = pInput
  End If
  AddNbsp = strResult
End Function

Response.Write AddNbsp("HejMedDigDetteErEnTestForAtSeOmDetVirker")

kan man enkelt få den til å ta høyde for om det er midt i et ord så den legger det foran det ordet?

Problemet er at jeg har en meny som er x antall px bred. Den tar å automatisk wrapper teksten hvis det blir for langt. Den starter med  

Feks:
( )Her kan du laste ned
alle våre produkter

Vil jeg skal bli
( )Her kan du laste ned
( )alle våre produkter

Prøv med nedenstående. Vil ikke afvise at det kan gøres smartere ;)

Function AddNbsp(pInput)
Dim iBreak, strResult, iPos

  iBreak = 20
  If Len(pInput) >= iBreak Then
    If Mid(pInput, 20, 1) <> " " Then
      iPos = CInt(0 & InStr(20, pInput, " "))
      If iPos > 0 Then
        StrResult = Left(pInput, iPos) & "&nbsp;" & Mid(pInput,iPos)
      Else
        strResult = Left(pinput, 20) & "&nbsp;" & Mid(pInput,20)
      End If
    Else
        strResult = Left(pinput, 20) & "&nbsp;" & Mid(pInput,20)
    End If
  Else
    strResult = pInput
  End If
  AddNbsp = strResult
End Function

Post et svar.

:)