'=========================================================================
'Имя функции: Replacetrim
'Effect: отфильтровать все вкладки, возврат перевозки и разрывы линий в символах
'=========================================================================
PublicfunctionReplacetrim (byvalstrcontent)
OnerRorResumenext
Димре
Setre = newRegexp
re.ignorecase = true
re.global = true
re.pattern = "(" & chr (8) & "|" & chr (9) & "|" & chr (10) & "|" & chr (13) & ")"
strcontent = re.replace (strcontent, vbnullstring)
Setre = ничего
Replacetrim = strcontent
Выходная функция
Конечная функция