Copyright Notice: You can reprint anything, you must indicate the original source and author information in hyperlink when reprint.
I haven't updated it for a long time, put a small function: remove all HTML mark function filterhtml (str, str, Strlen) Dim Re set re = new regexp Re.ignorecase = true re.global = true re.pattern = "<(. [^>] *)> "Str = re.replace (STR," ") set re = Nothing Diml, T, C, I l = LEN (STR) T = 0 for i = 1 to l c = ABS (ASC (MID) STR, I, 1)))) IF C> 255 Then T = T 2 else T = T 1 End if IF T> = Strlen Ten Cutstr = Left (STR, I) & "..." EXIT for else Cutstr = Str End if Next Cutstr = Replace (CUTSTR, CHR (10), "") Cutstr = Replace (Cutstr, Chr (13), "") End Function
