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

Visual Basic.NET. Уроки

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 6.038 RSS
←   Январь 2005   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31


За последние 60 дней ни разу не выходила


Сайт рассылки: http://progs.biz
Открыта: 17-03-2002

Автор
Алексеев Игорь

Статистика

6.038 подписчиков
0 за неделю
←   Все выпуски   →

Visual Basic.NET. Уроки


Информационный Канал Subscribe.Ru
Уроки по Visual Basic.NET. Рассылки сайта progs.biz
Рассылка № 68		  
Начало > VB.NET > FAQ > Вопросы 13-14

Джон Коннелл. Разработка элементов управления Microsoft .NET на Microsoft Visual Basic .NET.
Джон Коннелл. Разработка элементов управления 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		 Отписаться
В избранное