'================================================================
اسم الوظيفة: replacetrim
"التأثير: تصفية جميع علامات التبويب ، عودة النقل والخط في الأحرف
'================================================================
publicfunctionReplacetrim (ByvalStrContent)
onerrorresumenext
Dimre
setre = newregexp
re.ignorecase = صحيح
re.global = صحيح
re.pattern = "(" & chr (8) & "|" & chr (9) & "|" & chr (10) & "|
strcontent = re.replace (strcontent ، vbnullstring)
setre = لا شيء
استبدال = strcontent
exitfunction
الوظيفية