Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - VBA

Страница: 1 |

 

  Вопрос: Непечатные символы Добавлено: 17.03.09 00:31  

Автор вопроса:  Dropper
Можно ли как-нибудь определить печатный символ или непечатный?

Ответить

  Ответы Всего ответов: 4  

Номер ответа: 1
Автор ответа:
 fAndOrIn



Вопросов: 5
Ответов: 344
  Профиль | | #1 Добавлено: 17.03.09 07:51
  1. Function IsPrint(ch As String) As Boolean
  2.   IsPrint = ch > " " 'ch>=" " '-если считать пробел печатным символом
  3. End Function

Ответить

Номер ответа: 2
Автор ответа:
 Dropper



Вопросов: 11
Ответов: 19
  Профиль | | #2 Добавлено: 17.03.09 16:51
Честно говоря не понял эту конструкцию. Оно как-то должно различать печатные и непечатные?

Ответить

Номер ответа: 3
Автор ответа:
 fAndOrIn



Вопросов: 5
Ответов: 344
  Профиль | | #3 Добавлено: 17.03.09 17:34
  1. Sub IsPrint_Example()
  2. Dim I As Long, S As String
  3. S = "12 34" + vbTab + "56" + vbCr + "7" + vbLf + "8" + vbBack + "9" + vbVerticalTab
  4. For I = 1 To Len(S)
  5.   If IsPrint(Mid(S, I, 1)) Then
  6.     MsgBox "Символ """ + Mid(S, I, 1) + """ печатный"
  7.   Else
  8.     MsgBox "Символ Chr$(" & Asc(Mid(S, I, 1)) & ") непечатный"
  9.   End If
  10. Next I
  11. End Sub

Ответить

Номер ответа: 4
Автор ответа:
 Dropper



Вопросов: 11
Ответов: 19
  Профиль | | #4 Добавлено: 17.03.09 18:02
Нет к сожалению это не работает. Например n-space, m-space, non-breaking space и прочие непечатные символы, данная конструкция воспринимает как печатные.

В принципе я конечно могу ввести все известные мне символы и проверить через Asc, но хотелось бы знать как определить вообще все, а не только известные мне.

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам