Avatar billede pollas Nybegynder
07. november 2000 - 14:25 Der er 1 kommentar og
1 løsning

Chop tekststreng ved mellemrum

Jeg har en lille iframe, hvor jeg helst ikke vil scrolle sidelæns. Så jeg har fusket lidt med en chop-funktion, der deler strengen ved den ønskede bredde, hvilket er fint nok, hvis det ikke var fordi, at den selvfølgelig er ligeglad med, om den er midt i et ord.

Hvordan kunne man fikse en funktion, så den indsatte det ønskede <br> i et mellemrum omkring en angivet øsnket bredde...

Håber det fremgår hvad jeg vil - jeg har en fornemmelse af, at det ikke kan være så svært, men jeg tænker ikke så klart i øjeblikket...

På forhånd tak

Oh, her er funktionen (som er fra activeserverpages.dk, tror jeg):

Function Chop(input, value)
Length = Len(input)
If Length > value Then
Break = Int(Length/value)
Rest = Length - Break*value
For a = 0 To Break-1
Chop = Chop & Mid(input, (a*value)+1, value) & \"<br>\"
Next
Chop = Chop & Mid(input, (Break*value)+1, Rest)
Else Chop = input
End If
End Function
Avatar billede zogu Nybegynder
08. november 2000 - 09:42 #1
Hej pollas

Her er din løsning. :o)

Function Chop(Txt_Line, value)
  Dim Length
  Dim break
  Dim a
  Dim rest
  Dim Start
  Dim temp

  Length = Len(Txt_Line)
  Start = 1
  While Start + value - 1 < Length
      break = value + Start - 1
      For a = value To 0 Step -1
          If Mid(Txt_Line, a + Start - 1, 1) = \" \" Then
            break = a
            a = 0
          End If
      Next
       
      rest = Length - break
      Chop = Chop & Mid(Txt_Line, Start, break - 1) & \"<br>\"
      Start = Start + break
  Wend
  Chop = Chop & Mid(Txt_Line, Start, Length - Start + 1)
End Function

Med venlig hilsen
Zogu
Avatar billede pollas Nybegynder
02. februar 2001 - 01:07 #2
Såmænd:)

Tusind tak - og undskyld jeg var så længe væk. Projektet lå lige stille et stykke tid...
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester