¡@
2014/10/16 ¤W¤È 12:09:10
jquery Programming Glossary: stroutputCreating Excerpt text with a read more link http://stackoverflow.com/questions/1528780/creating-excerpt-text-with-a-read-more-link strHTML ''Strips the HTML tags from strHTML Dim objRegExp strOutput Set objRegExp New Regexp objRegExp.IgnoreCase True objRegExp.Global.. . n ''Replace all HTML tag matches with the empty string strOutput objRegExp.Replace strHTML ''Replace all and with lt and gt strOutput.. objRegExp.Replace strHTML ''Replace all and with lt and gt strOutput Replace strOutput lt strOutput Replace strOutput gt stripHTML..
Creating Excerpt text with a read more link http://stackoverflow.com/questions/1528780/creating-excerpt-text-with-a-read-more-link this function to strip out any HTML tags Function stripHTML strHTML ''Strips the HTML tags from strHTML Dim objRegExp strOutput Set objRegExp New Regexp objRegExp.IgnoreCase True objRegExp.Global True objRegExp.Pattern . n ''Replace all HTML tag matches.. True objRegExp.Global True objRegExp.Pattern . n ''Replace all HTML tag matches with the empty string strOutput objRegExp.Replace strHTML ''Replace all and with lt and gt strOutput Replace strOutput lt strOutput Replace strOutput gt.. all HTML tag matches with the empty string strOutput objRegExp.Replace strHTML ''Replace all and with lt and gt strOutput Replace strOutput lt strOutput Replace strOutput gt stripHTML strOutput ''Return the value of strOutput Set objRegExp Nothing..
|