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

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: требуется помощь Добавлено: 03.06.09 16:49  

Автор вопроса:  ASPIK | ICQ: 47-33-00-99-2 
You got Carrot 1.
You got Bear's Footskin 1.
You got Animal Skin 1.
You got Potato 1.
You got Honey 1.
You got Bear's Footskin 1.
You got Animal Skin 1.
You got Potato 1.
You got Honey 1.
Schreiben Sie die Zahl,die Si8e in diesem Satz sehen,und drucken Enter
Введите цифру, которую8 Вы видите в этом предложении, и нажмите Enter
Please type in the numeral you see in this sentence and press En8ter
You got Bear's Footskin 1.
You got Animal Skin 1.
You got Puppet 1.
You got Potato 1.
You got Honey 1.
Accepted.


требуется ввести "8" каким методом проше отсеять текс и оставить только восьмерку?

Ответить

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

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



Администратор

ICQ: 201502381 

Вопросов: 15
Ответов: 737
  Профиль | | #1 Добавлено: 03.06.09 19:58
  1. for i = 1 to len(s)
  2.    u = asc(mid(s, i, 1))
  3.    if u >= 48 and u <= 57 then
  4.       msgbox chr(u)
  5.       exit for
  6.    end if
  7. next

Ответить

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



ICQ: 47-33-00-99-2 

Вопросов: 9
Ответов: 24
  Профиль | | #2 Добавлено: 03.06.09 20:15
Спасибо! Объясни пожалуйста как работает? по ASCII ищешь в заданном диапазоне?

Ответить

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



Администратор

ICQ: 201502381 

Вопросов: 15
Ответов: 737
  Профиль | | #3 Добавлено: 03.06.09 20:17
Да

Ответить

Страница: 1 |

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



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