'100 första tecknen i txt
str = left(txt,100)
'100 sista tecknen i txt
str = right(txt,100)
'100 tecken från pos 50 i txt
str = mid(txt,50,100)
eller vad menar du med senaste?
9 svar · 211 visningar · startad av Hazze
Hejsan!
Skulle behöva lite hjälp tror jag
Försöker lägga in en left-kod som visar de 100 senaste tecknen på följande rad men får det inte att fungera:
strText = strText & strNewsText & vbCrLf
Säkert ganska simpelt men...
'100 första tecknen i txt
str = left(txt,100)
'100 sista tecknen i txt
str = right(txt,100)
'100 tecken från pos 50 i txt
str = mid(txt,50,100)
eller vad menar du med senaste?
Usch, det är jag som uttrycker mig uselt
de första 100 tecknen i artikeln ska visas.
Hursomhelst... fick det tyvärr inte att fungera med hjälp av din kod. Hur exakt ska den placeras?
Om du har texten i variablen strText och enbart vill att 100 tecken ska komma ut så kan man lägga in det direkt i response.write
response.write "<Html>"
response.write left(strText,100)
Det finns ingen response.write i aspkoden... hrrm
Du menar att du använder
<%=strText%>
i så fall kan du lägga det direkt där
<%=left(strText,100)%>
Tackar för de snabba svaren LarsG! Följande felmeddelande uppenbarade sig:
Microsoft VBScript compilation error '800a03ea'
Syntax error
/johan/ezine/default.asp, line 411
strText = <%=left(strText,100)%
----------^
Om du bara vill tilldela värdet till en annan variabel såär det bara att skriva
strText = left(strText,100)
Man kan använda <%=value%> när man blandar html-kod och vbscript på samma sida, t.ex
<HTML>
<BODY>
<%
dim StrText
strText = "hej hopp ditt feta nylle"
%>
<a href="join.html"> <%=left(strText,10)%> </a>
</BODY>
</HTML>
Något konstruerat men ändå.
Ok, det börjar ta sig nu
Raden såg tidigare ut så här:
strText = strText & strNewsText & vbCrLf
Jag ändrade till följande:
strText = strText = left(strNewsText,100) & vbCrLf
Får inget felmeddelande, däremot fungerar det inte. Där ingressen till artikeln borde ligga står istället texten "false". Huah...
Okej, vi går vidare. Skriv så här
strText = left(strNewsText,100) & vbCrLf
(I din kod så tilldelar du strtext värdet av det logiska uttrycket strText = left(strNewsText,100) & vbCrLf
Dvs om det som står på varsin sida om = är lika så blir strtext true annars
false. Det är därför du får false som resultat.)