Estrarre solo le prime 200 battute di un campo testo che ne contiene circa 1.000

[TheLinuxBadGuys]

Nel mio db ho un campo all'interno del quale metto la descrizione dell'auto. Le descrizioni contenute in questo campo sono solitamente di 1.000 battute.

Ho la necessità di farne comparire solo 200. Sapete come posso fare per segare in automatico tutte le altre?

Sotto me le stampa tutte ma io voglio solo le prime 200.

outstream.writeline("Auto - "&descrizione&" - ")



thelinuxbadguys

[fraude]

Originariamente inviato da maximum
Spero possa esservi utile!

<%
Function dividiStringa(sStr, iInizio, iProg)

	Dim sTesto 
	Dim lLenght
	Dim sFinal 

	If Len(sStr) > 20 Then
	   If Mid(sStr, 21, 1) = " " Then
		  sFinal = Mid(sStr, 1, 20) & "
"
  	  	  response.write(sFinal)
		  sTesto = Mid(sStr, 22, Len(sStr) - 21)
		  iProg = iProg + 1
		  dividiStringa sTesto, 1, iProg
	   Else
		  lLenght = InStrRev(Mid(sStr, 1, 20), " ")
		  If Not lLenght = 0 Then
			 sFinal = Mid(sStr, 1, lLenght) & "
" 
	  	  	 response.write(sFinal)
			 sTesto = Mid(sStr, lLenght + 1, Len(sStr) - lLenght)
		  Else
			 sFinal = Mid(sStr, 1, 20) & "
" 
  	  	     response.write(sFinal)
			 sTesto = Mid(sStr, 20 + 1, Len(sStr) - 20)
		  End If
		  iProg = iProg + 1
		  dividiStringa sTesto, 1, iProg
	   End If
	ElseIf Len(sStr) <= 20 And Len(sStr) <> 0 Then
		 sFinal = sStr
 	  	 response.write(sFinal)
	End If

End Function

response.write(dividiStringa("Ciao, questa è una prova di come funziona l'algoritmo ricorsivo di spezzatura di stringhe troppo lunghe!",1,1))
%>

[schizzorl86]

response.write left(campodatabase,200)

Nothing easier!!!