Access ASP SQL Server VBA NET - Форумы по проектированию

LEADERSOFT.ru Разработка на заказ программ и сайтов

Форумы по информационным технологиям

Начало

Forums

Регистрация | Вход

Форумы

Поиск

Список форумов

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: какой сим...

RE: какой символ заменит любое числовое значение?

15.06.2007 21:09:40

All

4316 сообщения

RE: какой символ заменит любое числовое значение?

Dim s
s = "1.1 - Пункт меню"
s = Left(s, InStr(1, s, " ") - 1)
s = Replace(s, ".", ",")
If IsNumeric(s) Then
MsgBox s
Else
MsgBox "Ошибка"
End If

P.S. Связанные таблицы Excel
Автор: Admin от 0:00:00 Источник ...

15.06.2007 21:09:40

All

4316 сообщения

RE: какой символ заменит любое числовое значение?

Спасибо Admin идея отличная, вариант для поиска основных пунктов.
только список многоуровневый, т.е. 1.1 - 1.1.1 - 1.1.1.1
хотя если сделать поиск пошаговым с переводом 1.1.1 в 11,1 поможет, но есть но: 1.1.1а вот такой пункт.
И все же раз нельзя применить маску воспользуюсь Вашим предложением.

P.S. Связанные таблицы Excel
Автор: 2244 от 0:00:00 Источник ...

15.06.2007 21:09:40

All

4316 сообщения

RE: какой символ заменит любое числовое значение?

Спасибо Admin идея отличная, вариант для поиска основных пунктов.
только список многоуровневый, т.е. 1.1 - 1.1.1 - 1.1.1.1
хотя если сделать поиск пошаговым с переводом 1.1.1 в 11,1 поможет, но есть но: 1.1.1а - вот такой пункт.
И все же раз нельзя применить маску воспользуюсь Вашим предложением.

P.S. Связанные таблицы Excel
Автор: 2244 от 0:00:00 Источник ...

15.06.2007 21:09:41

All

4316 сообщения

RE: какой символ заменит любое числовое значение?

Спасибо Admin идея отличная, вариант для поиска основных пунктов.
только список многоуровневый, т.е. 1.1 - 1.1.1 - 1.1.1.1
хотя если сделать поиск пошаговым с переводом 1.1.1 в 11,1 поможет, но есть но: 1.1.1а - вот такой пункт.
И все же раз нельзя применить маску воспользуюсь Вашим предложением.

P.S. Связанные таблицы Excel
Автор: 2244 от 0:00:00 Источник ...

15.06.2007 21:09:41

All

4316 сообщения

RE: какой символ заменит любое числовое значение?

Dim s, n, num As String
s = "1.1.234.45a - Пункт меню"
s = Left(s, InStr(1, s, " ") - 1)
s = Split(s, ".")
For i = 0 To UBound(s)
n = Replace(s(i), "a", "")
If IsNumeric(n) Then
If num <> "" Then num = num & "."
num = num & s(i)
Else
Exit For
End If
Next
MsgBox num

P.S. Связанные таблицы Excel
Автор: Admin от 0:00:00 Источник ...

Страница 2 из 3

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: какой сим...

Поиск

Список форумов

Начало | Forums