Удаление невидимых символов 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