05. april 2007 - 10:10
Der er
18 kommentarer og 1 løsning
how to combine left & mid
Så langt så godt <% If Len(rs("link")) => 25 Then Response.Write Left(rs("link"),25) & " ..." Else Response.Write Mid(rs("link"),8) End If %> Men den mid funktion EFTER else vil jeg også gerne have FØR else, hvordan gør jeg det
Annonceindlæg tema
Offentlig digitalisering
Fra effektivisering til digital suverænitet. Hvordan skaber det offentlige en digital fremtid med AI, sikkerhed og kontrol i centrum?
05. april 2007 - 11:30
#1
Giv et eksempel på hvordan linket ser ud, og hvordan den skal udskrives, både med IF og ELSE.
05. april 2007 - 11:33
#2
<% link = rs("link") If Len(link) => 25 Then link = Mid(link,8) link = Left(link,25) & " ..." Else link = Mid(link,8) End If Response.Write link %>
05. april 2007 - 11:34
#3
Eller bare: <% link = rs("link") link = Mid(link,8) If Len(link) => 25 Then link = Left(link,25) & " ..." Response.Write link %>
05. april 2007 - 11:35
#5
Men giv lige et eksempel, som nævnte i første indlæg :)
05. april 2007 - 11:38
#6
Dvs, du vil ikke bare fjerne htt:// og vise "..." hvis linket er mere end 25 tegn langt?
Eksempel:
link =
http://1234567890123456789012345678901234567890 (40 tegn)
link = 1234567890123456789012345678901234567890 ("
http://" er fjernet, 32 tegn)
if længden >= 25 tegn then link = "1234567890123456789012345 ..." (25 tegn + "...")
udskriv link
Eller hva'?
05. april 2007 - 11:40
#7
Jeg glemte at lægge længden af "
http://" til den første, så det er faktisk 47 tegn..
Og så tager man fra tegn 8..
05. april 2007 - 11:40
#8
PS: Koden er ikke testet..
05. april 2007 - 12:08
#9
<% link = rs("link") If Len(link) => 25 Then link = Mid(link,8) link = Left(link,25) & " ..." Else link = Mid(link,8) End If Response.Write link %> Virkede fint :-) Svar ?
05. april 2007 - 12:13
#10
Jeg vil anbefale den anden jeg skrev: <% link = rs("link") link = Mid(link,8) If Len(link) => 25 Then link = Left(link,25) & " ..." Response.Write link %> Den er kortere, og udnytter det faktum at du under alle omstændigheder vil bruge Mid(link,8).. Så kan man lige så godt gøre det fra starten af.. :-) - Svar :-)
05. april 2007 - 12:56
#11
Takker :-)
05. april 2007 - 13:33
#12
Faktisk burde du checke, om link/rs("link") nu også indeholder noget.. <% link = "" & rs("link") if link <> "" then ' Fejl - Der har ikke været gemt/angivet et link ved oprettelse af posten - gør et eller andet else link = Mid(link,8) If Len(link) => 25 Then link = Left(link,25) & " ..." Response.Write link end if %> Ellers får du en fejl i denne linie: link = Mid(link,8) ..og så vil siden dø = ikke blive vist
05. april 2007 - 13:33
#13
..og det var så lidt :-)
05. april 2007 - 13:56
#14
Jeg laver jo en test efter sql eof, det burde vel være nok.
05. april 2007 - 14:08
#15
Ja, det burde det, hvis du kun henter rs("link").. Hvis der er andre kolonner i tabellen, og du *ikke* bruger en where klausul, kan det give problemer.. Men jeg regner med at du har styr på databasen.. og jeg har intet viden om den, så det går nok.. :-)
05. april 2007 - 14:38
#16
Okay tak
05. april 2007 - 23:55
#17
karma :-)
06. april 2007 - 00:28
#18
Hmm... Det forstår jeg ikke.. Den sidste karma jeg har fået, er på 0%.. Har du givet mig 0% for at hjælpe dig? :-)
06. april 2007 - 00:38
#19
hehe, har da ikke givet dig, jeg ville gerne have lidt :-)
Kurser inden for grundlæggende programmering