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 fra Trustworks
Tillid i en Zero-Trust verden
Med voksende trusler, nye EU-krav og øget kompleksitet er cybersikkerhed nu en central ledelsesopgave på linje med strategi og økonomi.
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