[Resolvido] Ler as primeiras 150 primeiras letras

[marcelonhenhe 0]

Entao quero saber como se faz para ler as 150 primeiras letras de uma string

por exemplo

string="fksdfjsfnjfhnjdsncvjdsnvcjdkvncjdsbvhdsvnjdsbvhsdfvjgcdbvjdsnvjkdsfvfvfdjkv"...

 

eu quero ler so as primeiras 150

se tiver mais de 150

[saloeric 1]

palavra = "fksdfjsfnjfhnjdsncvjdsnvcjdkvncjdsbvhdsvnjdsbvhsdfvjgcdbvjdsnvjkdsfvfvfdjkv"

response.write left(palavra,150)

[Vinicius Ianni 189]

Eu uso essa função que peguei no laboratório de scripts:

 

function resumetexto(str,pos,strLink)
strAux = str
if instr(trim(mid(strAux,1))," ")<>0 then
 if len(strAux) >= pos+1 then
  if trim(mid(strAux,pos,pos-1)) <> " " then
   posicaoEspaco = instrrev(trim(mid(strAux,1,pos-1))," ")
   if posicaoEspaco <> 0 then
    strAux = trim(mid(strAux,1,posicaoEspaco))&strLink
   else
    posicaoEspacoPalavra = instr(mid(strAux,1,len(strAux))," ") 
    if posicaoEspaco < instr(trim(mid(strAux,1,posicaoEspacoPalavra))," ") then
     strAux = trim(mid(strAux,1,pos))&strLink 
    else
     strAux = trim(mid(strAux,1,posicaoEspacoPalavra))&strLink 
    end if 
   end if
  end if
 end if
end if
resumetexto = strAux
end function

 

E onde quero usar a função, coloco:

<td>"&(resumetexto(rs1("descricao").Value,80,"..."))&"</td>

 

Note que o 80 é a quantidade de caracteres que desejo exibir, que no seu caso seriam 150.

[saloeric 1]

pode usar este bem mais pequena,

 

function cortapalavra(texto,limite)
if len(texto) > limite then
 cumpdktm=left(texto,limite)
 espdktm=instrrev(cumpdktm," ")
 saidktm=left(texto,espdktm)
 saiforktm=saidktm&"..."
else
 saiforktm=texto
end if
cortapalavra=saiforktm
end function

 

não ligue muito ao nome das variáveis usadas

[marcelonhenhe 0]

Resolvido...

Muito Obrgado a todos pela ajuda