[ASP] tronquer une chaine?

tronquer une chaine? [ASP] - ASP - Programmation

Marsh Posté le 25-04-2003 à 16:17:17    

Comment je pourrais tronqué une chaine de caractere en ASP en affichant que le debut d'une phrase avec ... apres?


Message édité par gothico le 25-04-2003 à 16:17:56

---------------
MOD : Mon PC silencieux  |  Topic Miranda IM
Reply

Marsh Posté le 25-04-2003 à 16:17:17   

Reply

Marsh Posté le 26-04-2003 à 01:04:36    

T'as qu'à récupérer les x premiers caractères avec la fonction Left(lachaine,x)...si j'ai bien compris
 [:rem']


---------------
@ + : Rem'
Reply

Marsh Posté le 26-04-2003 à 23:46:27    

mid(variable,premiere_pos,derniere_pos)
 
exemple, pour prendre les 20 premiers caractères de la chaine mystring:
 
MID(mystring,1,20)
 
 
(si c'est pas mid, c'est dim, je sais jamais  [:tinostar] )


---------------
.: Clône de Drasche .:. Ebichuleys .:. Avec l'Aloe Vera je fais de beaux cacas [:dawa] .: www.oserselancer.com :.
Reply

Marsh Posté le 27-04-2003 à 03:14:00    

Je te nettoie pas le code, t'avais qu'à te casser la tête :p
 

Code :
  1. <p class="titreOri"><br/>Aux nouvelles<br/><br/></p>
  2. <%
  3. sql = "SELECT TOP 5 ID, DATE_NEWS, TITRE, ENTETE, CORPS, U_LOGIN FROM NEWS ORDER BY DATE_NEWS DESC"
  4. dim rsNewsH
  5. set rsNewsH = server.CreateObject("ADODB.RecordSet" )
  6. rsNewsH.ActiveConnection = cnx
  7. rsNewsH.Open sql
  8. i = 1
  9. do while not rsNewsH.EOF
  10. %>
  11. <p class="textefixe"><b><%=doDate(rsNewsH("DATE_NEWS" ))%></b> - <a href="default.asp?page=News&id=<%=rsNewsH("ID" )%>"><%=rsNewsH("TITRE" )%></a></p>
  12. <%
  13. cleanString = removeDangerousTags(rsNewsH("ENTETE" ))
  14. if cleanString <> "" then
  15.  textNews = cleanString & " <a href=""default.asp?page=News&id=" & rsNewsH("ID" ) & """>[...]</a>"
  16. else
  17.  cleanString = removeDangerousTags(rsNewsH("CORPS" ))
  18.  if len(cleanString) > 255 then
  19.   posPOINT = max(max(max(instrRev(left(cleanString, 255), "." ), instrRev(left(cleanString, 255), "!" )), instrRev(left(cleanString, 255), "?" )), instrRev(left(cleanString, 255), ":" ) - 2)
  20.   summary = closeOpenedTags(left(cleanString, posPOINT))
  21.   if lcase(right(summary, 4)) = "</p>" then
  22.    textNews = left(summary, len(summary) - 4) & " <a href=""default.asp?page=News&id=" & rsNewsH("ID" ) & """>[...]</a>" & right(summary, 4)
  23.   else
  24.    textNews = summary & " <a href=""default.asp?page=News&id=" & rsNewsH("ID" ) & """>[...]</a>"
  25.   end if
  26.  else
  27.   textNews = cleanString
  28.  end if
  29. end if
  30. displayTextArea "CORPS", i, textNews, "textAreaDescription", "summary", false
  31. i = i + 1
  32. %>
  33. <p class="texte"><a href="default.asp?page=VoirProfil&user=<%=rsNewsH("U_LOGIN" )%>" class="texte"><b><%=rsNewsH("U_LOGIN" )%></b></a><br/><br/></p>
  34. <%
  35. rsNewsH.movenext
  36. loop
  37. rsNewsH.close
  38. set rsNewsH = nothing

Reply

Marsh Posté le 27-04-2003 à 03:17:24    

Pour résumer ce que ça fait :
 
Affiche le résumé des 5 premières news en prenant :
 
-> Le header s'il est défini.
-> Les premières phrases, dans une limite de 255 caractères du corps de la news s'il n'y a pas de header
 
Le script est un peu complexe parceque mes news sont écrites en HTML, donc faut faire gaffe aux tags écrits, et veiller à fermer les tags ouverts.


Message édité par MagicBuzz le 27-04-2003 à 03:18:38
Reply

Marsh Posté le 28-04-2003 à 08:42:57    

Merci à tous, je m'en vais essayer tout ca!
 :sol:


---------------
MOD : Mon PC silencieux  |  Topic Miranda IM
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed