Отправляет email-рассылки с помощью сервиса Sendsay

Visual Basic.NET. Уроки

  Все выпуски  

Visual Basic.NET. Уроки


Информационный Канал Subscribe.Ru

Уроки по Visual Basic.NET. Рассылки сайта progs.biz
Рассылка № 68
 
Начало > VB.NET > FAQ > Вопросы 13-14

Джон Коннелл. Разработка элементов управления Microsoft .NET на Microsoft Visual Basic .NET.

Заказать на Озоне

Подробнее


Полные версии вопросов (с картинками): вопрос 13, вопрос 14.

VB.NET. FAQ
Вопрос 13. Как получить текушее время?

Для получения текущего времени можно использовать статический метод Now класса DateTime.

Например, можно написать что-то вроде:

Label1.Text = DateTime.Now()

Результатом будет строка вида "05.01.2005 17.25.43". Как вы видите, в этой строке есть число, месяц, год, часы, минуты и секунды текущего времени.

При необходимости можно вычленить отдельные части текущего времени - секунды, минуты и т. п. Для этого мы используем свойства Second, Minute, Hour, Day, Month и Year. В этом случаем мы пишем что-то вроде:

' Получаем текущий год.
Label1.Text = DateTime.Now().Year.ToString()

VB.NET. FAQ
Вопрос 14. Как найти все подстроки в строке?

Для нахождения всех определенных подстрок в некой строке надо вызвать в цикле метод IndexOf. Этот метод возвращает позицию первого вхождения указанной подстроки. Для нахождения дальнейших подстрок надо вызывать этот же метод, указав в нем, что поиск надо делать не с начала, а с найденной позиции.

Вот пример:

        ' Строка, в которой ищем.
        Dim s As String = "qqaa qqsss"
        ' Строка, которую ищем.
        Dim find As String = "qq"
        ' Номер позиции найденного элемента.
        Dim pos As Int32 = 0
        Do
            ' Получаем позицию очередного элемента.
            pos = s.IndexOf(find, pos)
            ' Если что-то найдено...
            If pos <> -1 Then
                ' то показываем поицию найденного элемента.
                MessageBox.Show("Подстрока найдена на " + pos.ToString() + _
                    " позиции")
                ' Увеличиваем позицию поиска на длину строки для поиска.
                pos += find.Length
            End If
        Loop Until pos = -1

Указанный фрагмент выведет 0 и 5 - именно на этих позициях находится подстрока "qq" в строке "qqaa qqsss".

Рассылки сайта progs.biz
Visual C++, MFC
C# и .NET
VB.NET
ASP.NET new!
Win API
C/C++
Delphi
Java
HTML, PHP, mySQL, WEB-дизайн
Flash MX
C++ Builder
Ассемблер
SQL Server
DirectX
Обзор книг
Обзор программ
Новости сайта progs.biz


PARKING.RU. Качественный ВИРТУАЛЬНЫЙ ХОСТИНГ на платформе Windows(r): поддержка NET, многофункциональная панель управления, аренда бизнес-приложений, сертифицированные специалисты. Управляемый ВЫДЕЛЕННЫЙ ХОСТИНГ на платформе Windows(r): производительные серверы, профессиональная поддержка, аренда ПО Microsoft(r), безопасность, гарантии. http://www.parking.ru


Копирование любых материалов сайта без разрешения авторов и владельцев сайта запрещено.
© 2002-2005 сайт progs.biz
© 2002-2005 Алексеев Игорь

http://subscribe.ru/
http://subscribe.ru/feedback/
Подписан адрес:
Код этой рассылки: comp.soft.prog.vblessons
Отписаться

В избранное