Avatar billede idiotbarn Nybegynder
18. december 2002 - 18:09 Der er 13 kommentarer og
1 løsning

left() skal se bort fra html koder?

Jeg har en tekst hvor der skal udskrives 47 tegn fra:
left(rs("Tekst"), 47)
Problemet er nu at jeg gerne vil ha den til at se bort fra htmlkoder...hvordan kan jeg gøre det (hvis jeg kan)
De eneste koder er kan være er:
<b></b>, <I></I>, <U></U> og <a href="xxx">xxx</a>
Avatar billede hossein Nybegynder
18. december 2002 - 18:56 #1
måske du skal Bruge mid() funktionen:

mid(string, start, lenght)---> tekst = mid(tekst, 10, 20)
Avatar billede idiotbarn Nybegynder
18. december 2002 - 19:52 #2
starder den så ikke bare midt i teksten?
Avatar billede hossein Nybegynder
18. december 2002 - 20:32 #3
Nej min ven, hvis fx du vil have iot ud af dit navn så skal du gøre på følgende måde:

<%
Navn = "idiotbarn"
strNavn = mid(navn,3,3)
Response.Write strnavn
%>
resultatet er så: iot
Avatar billede idiotbarn Nybegynder
18. december 2002 - 21:07 #4
dont get it...
Avatar billede dark-mixer Nybegynder
18. december 2002 - 21:09 #5
ifølge min teori er der ikke nogen af de ovenstående "eksempler" der fjerner alt hvad der hedder html koder....
Avatar billede idiotbarn Nybegynder
18. december 2002 - 21:12 #6
jeg skal jo sådan set bare have den til at ikke tælle dem med, den skal tælle tegnene springe <b> over, tælle tegnene, springe </b> over...den skal egentligt ikke fjerne dem...
Avatar billede dark-mixer Nybegynder
18. december 2002 - 21:20 #7
Prøv og leg lidt med denne funktion jeg har skrevet istedet :
Function StripHTML(data)
  tmp = split(data, "<")
  for i=0 to ubound(tmp)
  if i > 0 Then
    start = instr(1, tmp(i), ">", vbTextCompare)
    StripHTML = StripHTML & mid(tmp(i), start + 1, len(tmp(i)) - start)
  else
    StripHTML = StripHTML & tmp(i)
  End If
  Next
End Function

nyTekst = StripHTML(rs("Tekst"))
nyTekst = Left(nyTekst, 47)
Avatar billede burningice Nybegynder
19. december 2002 - 02:55 #8
dark-mixer>> hvorfor gøre tingene mere besværligt end det er??

Function RemoveHTML(strText)
  Dim RegEx

  Set RegEx = New RegExp

  RegEx.Pattern = "<[^>]*>"
  RegEx.Global = True

  RemoveHTML = RegEx.Replace(strText, "")
End Function
Avatar billede hossein Nybegynder
20. december 2002 - 00:00 #9
fjerner disse funktioner bogstaverne også fx br i <br>?
Avatar billede burningice Nybegynder
20. december 2002 - 04:43 #10
ja... den funktion jeg kom med gør i hvert fald

asædæk <br> sældfk <script> sdpkj
bliver til
asædæk sældfk sdpkj
Avatar billede hossein Nybegynder
20. december 2002 - 10:41 #11
Ok, tak for svaret!
Avatar billede idiotbarn Nybegynder
20. december 2002 - 13:01 #12
men de skal sådan set ikke fjernes, de skal bare ikke tælles med...
Avatar billede burningice Nybegynder
21. december 2002 - 16:34 #13
hermm... jeg kan godt se hvad det er du vil, men jeg kan ikke lige komme i tanke om en måde hvorpå det kan lade sig gøre :(
Avatar billede idiotbarn Nybegynder
10. januar 2005 - 00:43 #14
Lukker
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