I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
<% ' en test streng: str = "dette er noget tekst med et laaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaangt ord"
response.write "<br><br>Original: " & str ' kan slettes efter test..
MAX_LEN = 20 ' max længde per ord.. det retter du bare.. NYT_TEGN = " " 'Indsættes i langt ord. Evt kan <br> for linjeskift brugers ordArr = Split(str, " ") for i = lbound(ordArr) to ubound(ordArr) tmp = ordArr(i) if len(ordArr(i)) >= MAX_LEN then for a = 0 to len(ordArr(i)) / MAX_LEN if len(tmp) >= MAX_LEN then strNy = strNy & NYT_TEGN & left(tmp, MAX_LEN) & vbCrLf tmp = mid(tmp, MAX_LEN + 1) end if next
Prøv at ligge dette kode ind i bunden af din fil: <% function delord(str, max_antal_karakter) MAX_LEN = max_antal_karakter ' max længde per ord.. det retter du bare.. NYT_TEGN = " " 'Indsættes i langt ord. Evt kan <br> for linjeskift brugers ordArr = Split(str, " ") for i = lbound(ordArr) to ubound(ordArr) tmp = ordArr(i) if len(ordArr(i)) >= MAX_LEN then for a = 0 to len(ordArr(i)) / MAX_LEN if len(tmp) >= MAX_LEN then strNy = strNy & NYT_TEGN & left(tmp, MAX_LEN) & vbCrLf tmp = mid(tmp, MAX_LEN + 1) end if next end if strNy = strNy & " " & tmp next delord = strNy end function %>
og lav denne linje: Response.write(Replace(Rs("comment"), vbcrlf, "<br>" & vbcrlf))
Om til: Response.write(delord(Replace(Rs("comment"), vbcrlf, "<br>" & vbcrlf),20))
P.S: eksperten er F***** på hos mig lige i øjeblibber får en masse timeouts og sql fejl..
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.