ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / if s[i] in ['0'..'9',',','.'] then
11 сообщений из 11, страница 1 из 1
if s[i] in ['0'..'9',',','.'] then
    #33433747
tunder
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tunder
Гость
Подскажите как вот такой код написать на Visual Basic Script

код на Делфи...

i = 0;
repeat
if s in ['0'..'9',',','.'] then
begin
..............
end
else .... ERROR
inc(i);
until (i >= Length(s));

т.е. строка может содеражать только 0-9, "," , "."

спасибо.
...
Рейтинг: 0 / 0
13.12.2005, 16:55:55
| Ответить | Цитировать | Написать  
if s[i] in ['0'..'9',',','.'] then
    #33433830
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Dim s As String
Dim b As Boolean

s = "1"
b = s Like "[0-9]"
If b Then
    MsgBox "Digit"
Else
    MsgBox "Error"
End If
...
Рейтинг: 0 / 0
13.12.2005, 17:16:35
| Ответить | Цитировать | Написать  
if s[i] in ['0'..'9',',','.'] then
    #33433837
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
а вообще есть такая ф-я для этого:
IsNumeric()
...
Рейтинг: 0 / 0
13.12.2005, 17:17:57
| Ответить | Цитировать | Написать  
if s[i] in ['0'..'9',',','.'] then
    #33433856
Пользователь2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пользователь2
Гость
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Public Function DelphiToVB( _
  strValue As String) As Boolean
    Dim intI As Integer
    
    DelphiToVB = True
    
    For intI =  1  To Len(strValue)
        If (Mid(strValue, intI,  1 ) Like "[0-9]" Or _
          Mid(strValue, intI,  1 ) = "," Or Mid(strValue, intI,  1 ) = ".") Then
            '...
        Else
            DelphiToVB = False
            Exit Function
        End If
    Next
End Function
...
Рейтинг: 0 / 0
13.12.2005, 17:22:04
| Ответить | Цитировать | Написать  
if s[i] in ['0'..'9',',','.'] then
    #33433873
tunder
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tunder
Гость
Konst_One
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Dim s As String
Dim b As Boolean

s = "1"
b = s Like "[0-9]"
If b Then
    MsgBox "Digit"
Else
    MsgBox "Error"
End If


мне не Numreic нужен, проверка на строку 100,43,67,34,002
...
Рейтинг: 0 / 0
13.12.2005, 17:26:57
| Ответить | Цитировать | Написать  
if s[i] in ['0'..'9',',','.'] then
    #33433936
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Dim s As String
Dim b As Boolean
Dim i As Integer
Dim sInput As String

sInput = "100,43,67,34,002"
s = ""
For i =  1  To Len(sInput)
    s = Mid$(sInput, i,  1 )
    b = s Like "[0-9,.]"
    If b Then
        'work here
    Else
        MsgBox "Error"
        Exit For
    End If
Next
...
Рейтинг: 0 / 0
13.12.2005, 17:42:20
| Ответить | Цитировать | Написать  
if s[i] in ['0'..'9',',','.'] then
    #33434031
tunder
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tunder
Гость
Konst_One
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Dim s As String
Dim b As Boolean
Dim i As Integer
Dim sInput As String

sInput = "100,43,67,34,002"
s = ""
For i =  1  To Len(sInput)
    s = Mid$(sInput, i,  1 )
    b = s Like "[0-9,.]"
    If b Then
        'work here
    Else
        MsgBox "Error"
        Exit For
    End If
Next


Like я не вижу в Help VB Script
ошибка идет при выполенении Sun or Function not defined
...
Рейтинг: 0 / 0
13.12.2005, 18:05:14
| Ответить | Цитировать | Написать  
if s[i] in ['0'..'9',',','.'] then
    #33434045
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
это написано на VB, если нужно для VBS, то тогда придется заюзать регулярные выражения, сейчас на поиски названия библиотеки у меня времени нет, сам поищи , что то типа regexp
...
Рейтинг: 0 / 0
13.12.2005, 18:12:29
| Ответить | Цитировать | Написать  
if s[i] in ['0'..'9',',','.'] then
    #33434064
tunder
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tunder
Гость
Konst_Oneэто написано на VB, если нужно для VBS, то тогда придется заюзать регулярные выражения, сейчас на поиски названия библиотеки у меня времени нет, сам поищи , что то типа regexp

спасибо. всем!
временно срочно решил проблему условиями

s = ""
For i = 1 To Len(InputProdID)
s = Mid(InputProdID, i, 1)
if (s=",") or (s="0") or (s="1") or (s="2") or (s="3") or (s="4")_
or (s="5") or (s="6") or (s="7") or (s="8") or (s="9") then
Else
MsgBox "Error"
Exit For
End If
Next
...
Рейтинг: 0 / 0
13.12.2005, 18:20:16
| Ответить | Цитировать | Написать  
if s[i] in ['0'..'9',',','.'] then
    #33434882
MX -- ALEX
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MX -- ALEX
Гость
tunder Konst_Oneэто написано на VB, если нужно для VBS, то тогда придется заюзать регулярные выражения, сейчас на поиски названия библиотеки у меня времени нет, сам поищи , что то типа regexp

спасибо. всем!
временно срочно решил проблему условиями

s = ""
For i = 1 To Len(InputProdID)
s = Mid(InputProdID, i, 1)
if (s=",") or (s="0") or (s="1") or (s="2") or (s="3") or (s="4")_
or (s="5") or (s="6") or (s="7") or (s="8") or (s="9") then
Else
MsgBox "Error"
Exit For
End If
Next

if instr(",0123456789",s)=0 then msgbox "error"
...
Рейтинг: 0 / 0
14.12.2005, 10:11:22
| Ответить | Цитировать | Написать  
if s[i] in ['0'..'9',',','.'] then
    #33436247
tunder
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tunder
Гость
MX -- ALEX tunder Konst_Oneэто написано на VB, если нужно для VBS, то тогда придется заюзать регулярные выражения, сейчас на поиски названия библиотеки у меня времени нет, сам поищи , что то типа regexp

спасибо. всем!
временно срочно решил проблему условиями

s = ""
For i = 1 To Len(InputProdID)
s = Mid(InputProdID, i, 1)
if (s=",") or (s="0") or (s="1") or (s="2") or (s="3") or (s="4")_
or (s="5") or (s="6") or (s="7") or (s="8") or (s="9") then
Else
MsgBox "Error"
Exit For
End If
Next

if instr(",0123456789",s)=0 then msgbox "error"
да, вот это граммотно и красиво....
спасибо.
...
Рейтинг: 0 / 0
14.12.2005, 16:52:09
| Ответить | Цитировать | Написать  
11 сообщений из 11, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / if s[i] in ['0'..'9',',','.'] then
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=33433747&tid=2166700]:
 0ms
get settings:
 7ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 212ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 49ms
get tp. blocked users:
 2ms
others: 232ms
total:  531ms
созд. / загр.: 531ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]