Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Убрать вопросики... / 9 сообщений из 9, страница 1 из 1
13.11.2019, 10:47
    #39888465
NVT
NVT
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Убрать вопросики...
Всем добра!

Есть ячейка со значением (визуально) = 2072575
Когда в отладчике пишешь ?ячейка.value то выдает 207?257?5
И когда просто копируешь ячейку и в код вставляешь - тоже вопросики возникают.
В вопросиках стоит символ ascii код = 63

Полагаю, что в этой ячейке вставленное через буфер значение,
содержащее символы непонятной кодировки, которые не визуально не показываются.
Где пользователь взял сие значение - загадка.

Как бы убрать ненужные символы? Есть ли функция какая или самому писать?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.11.2019, 10:54
    #39888467
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Убрать вопросики...
Код: vbnet
1.
Replace(..., chr(63), "")
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.11.2019, 11:43
    #39888509
NVT
NVT
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Убрать вопросики...
Shocker.Pro, а если там не только 63 сомвол? Речь о том, что бы вообще все ненужное убрать.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.11.2019, 11:48
    #39888514
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Убрать вопросики...
Нужно сначала определиться, что такое "ненужное"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.11.2019, 12:07
    #39888536
NVT
NVT
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Убрать вопросики...
Shocker.Pro, хороший вопрос ))
Сначала наверное надо попробовать убрать символы в юникоде
Типа вот такого:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Sub xxxxxxxx()
Dim str As String, s As String, strResult As String
    
    str = Лист.Range(адресПлохойЯчейки)
    For i = 1 To Len(str)
        s = Mid(str, i, 1)
        If Asc(s) = AscW(s) Then strResult = strResult & s
    Next
    Debug.Print str
    Debug.Print strResult
End Sub

результат в окне отладки
207?257?5
2072575


Вроде как прокатывает, что скажете?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.11.2019, 12:23
    #39888543
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Убрать вопросики...
NVT
В вопросиках стоит символ ascii код = 63
Ну вообще-то 63 - это и есть код символа ? ...

NVT
Есть ячейка со значением (визуально) = 2072575
Тип значения в ячейке? его формат?

Но лучше всего выложить файл с наблюдаемой проблемой.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.11.2019, 13:09
    #39888569
NVT
NVT
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Убрать вопросики...
Akina, тип текстовый
файл в аттаче. Ячейка выделена желтым
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.11.2019, 16:32
    #39888733
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Убрать вопросики...
Мда... навскидку не опознаётся. Показателен вывод
Код: vbnet
1.
for i = 1 to lenb(cells(2,2).value) : ? asc(midb(cells(2,2).value, i)), ascb(midb(cells(2,2).value, i)) : next
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.11.2019, 16:53
    #39888739
NVT
NVT
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Убрать вопросики...
Akina, подсказал коллега
"там символ не с кодом ansii = 63 а символ с кодом ansii = 63 и с юникодом 8203, это разные символы, потому как просто вопрос имеет код ansii = 63 и юникод 63."
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Убрать вопросики... / 9 сообщений из 9, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 415ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2171964]:
 0ms
get settings:
 11ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 32ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 45ms
get tp. blocked users:
 1ms
others: 290ms
total:  415ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]