Удаление невидимых символов chr(0)-chr(31) windows 1251 WORD - VBA

Узнай цену своей работы

Формулировка задачи:

Вообщем нужно в таблице (в 4-ой ячейке) удалить все неопознанное и невидимое. И вроде заменяет на пробел , но помимо этого еще в конце лишнего добавляет... Как его правильно заменить?)

Решение задачи: «Удаление невидимых символов chr(0)-chr(31) windows 1251 WORD»

textual
Листинг программы
Public function iRep(asd as String) as String
for i=0 to 31
asd=Replace(asd,chr(i)," ") 'заменяем символы с 0 по 31
next i
asd=Replace(asd,chr(160),chr(39))' заменяем симол 160
do While instr(1,asd,"  ")>0 'этот цикл убирает двойные тройные четверные и т.д  пробелы
asd=Replace(asd,"  "," ")
loop
asd=Trim(asd)' обрезаем пробелы в начале и в конце текта
if Right(asd,3)="..." Then asd=mid(asd,1,Len(asd)-3)' если в конце три точки обрезаем их
iRep=asd
 
end function

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 4.364 из 5
Похожие ответы