quote:

---

Originally posted by Davio

Ok, for those of you who offered to help me out with the mod, this one's for you.

I want to display only 150 characters of a message. Anything after that is cut off and replaced with an elipses ...

Needs to be in vbscript. And if possible (not a must, but would be good) to not cut off the message in the middle of a word. But cut it off at the nearest space.

Thanks guys.

---

Function RemoveHTML( strText )
  Dim TAGLIST
  TAGLIST=";A;a;B;b;font;IMG;img;CENTER;center;PRE;pre;BR;br;"
    
  Dim nPos1
  Dim nPos2
  Dim nPos3
  Dim strResult
  Dim strTagName
  Dim bRemove
  Dim bSearchForBlock
  
  nPos1 = InStr(strText, "<")
  Do While nPos1 > 0
    nPos2 = InStr(nPos1 + 1, strText, ">")
    If nPos2 > 0 Then
      strTagName = Mid(strText, nPos1 + 1, nPos2 - nPos1 - 1)
      strTagName = Replace(Replace(strTagName, vbCr, " "), vbLf, " ")
      nPos3 = InStr(strTagName, " ")
      If nPos3 > 0 Then
        strTagName = Left(strTagName, nPos3 - 1)
      End If
         
      If Left(strTagName, 1) = "/" Then
        strTagName = Mid(strTagName, 2)
        bSearchForBlock = False
      Else
        bSearchForBlock = True
      End If
           
      If InStr(1, TAGLIST, ";" & strTagName & ";", vbTextCompare) > 0 Then
        bRemove = True
        
        If bSearchForBlock Then
        
          If InStr(1, BLOCKTAGLIST, ";" & strTagName & ";", vbTextCompare) > 0 Then
            nPos2 = Len(strText)
            nPos3 = InStr(nPos1 + 1, strText, "</" & strTagName, vbTextCompare)
        
            If nPos3 > 0 Then
              nPos3 = InStr(nPos3 + 1, strText, ">")
            End If
                      
            If nPos3 > 0 Then
              nPos2 = nPos3
            End If
            
          End If
          
        End If
        
      Else
        bRemove = False
      End If
          
      If bRemove Then
        strResult = strResult & Left(strText, nPos1 - 1)
        strText = Mid(strText, nPos2 + 1)
      Else
        strResult = strResult & Left(strText, nPos1)
        strText = Mid(strText, nPos1 + 1)
      End If
    Else
      strResult = strResult & strText
      strText = ""
    End If
      
    nPos1 = InStr(strText, "<")
  Loop
  strResult = strResult & strText    
  RemoveHTML = strResult
End Function

dim sChar, tChar, hChar, dChar, aChar 
sChar = 100 ' number of characters to show 
tChar = Len(formatStr(ChkString(rs("T_MESSAGE"),"sqlString"))) 'number of characters in message
hChar = Len(RemoveHtml(formatStr(ChkString(rs("T_MESSAGE"),"sqlString")))) 'number of characters with out html tags
dChar = tChar - hChar 'adjust factor 
aChar = sChar + dChar 'adjusted character count

Response.Write formatStr(Left(rs("T_MESSAGE"),aChar)) & "  ...."

quote:

---

Originally posted by Carefree

I found the second mod which works together with the one above. If you want to take a look at the code, get it here:

Threaded Mod

---

Function left150(fString)
  if ((InStr(fString, "<")>0) and (InStr(fString, ">")>0) and len(fString)>150) Then
    Dim strTemp, strTempcnt, strBrk1, strBrk2, strRemoved,tagCount
	strTemp = fString
	strTempcnt = 0
	strRemoved = 0
	tagCount = 0
	  Do While (InStr(1, strTemp, "<")>0) And (InStr(1, strTemp, ">")>0)
	    strBrk1 = InStr(1, strTemp, "<")
	    strBrk2 = InStr(1, strTemp, ">")-strBrk1
	    tagCount = tagCount + 1
	    strRemoved = strRemoved + Len(Mid(strTemp, strBrk1, strBrk2))
	    strTemp = Left(strTemp, Instr(1, strTemp, "<")-1) & Right(strTemp, Len(strTemp)-Instr(1,strTemp, ">"))
	    strTempcnt =  Len(strTemp)
		if (InStr(Left(strTemp, 150), "<")<1) And (InStr(Left(StrTemp,150),">")<1) then
		  Exit Do
		end if
	  Loop
	  
	  if ((strTempcnt > 150) and (strRemoved > 0)) then
		LastChars = Right(Left(strTemp, (140+Cint(Instr(Mid(strTemp,140,15)," ")))-1),5)
		left150 = Left(fString, InStr(fString, LastChars)+4) & "..."
	  elseif (strTempcnt > 150) and (strRemoved < 1) then 
 	    left150 = Left(fString, (140+Cint(Instr(Mid(fString,140,15)," ")))-1) & "..."
	  else
	    left150 = fString
	  end if
  elseif len(fString)>150 then
 	left150 = Left(fString, (140+Cint(Instr(Mid(fString,140,15)," ")))-1) & "..."
  else
        left150 = fString
  end if
End Function