Форум программистов, компьютерный форум, киберфорум
Наши страницы

VBScript/JScript/WSH/WMI/HTA

Войти
Регистрация
Восстановить пароль
 
-Zoom
1 / 1 / 1
Регистрация: 12.10.2013
Сообщений: 53
#1

Синтаксическая ошибка End Select - VBScript/JScript/VBS

15.02.2015, 15:38. Просмотров 345. Ответов 0
Метки нет (Все метки)

Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
Кликните здесь для просмотра всего текста
Visual Basic
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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
Dim list
Set list = CreateObject ("Scripting.Dictionary")
Dim dishStorageString
dishStorageString = " "
Do While True
Dim result 
 
result = MsgBox("Do you want to add new dish?", vbYesNo + vbQuestion, "Add")
 
Select Case result
Case vbYes
            Dim a, b
            Dim c
            a = Inputbox("Input dish: ", "Dish")
            b = Inputbox("Input time (minutes) to prepare: ", "Time")
            c = a + " " + Chr (10) + "Time: " + b + Chr(10) + "is added"
            list.Add a, b 
            dishStorageString = dishStorageString + Chr(10) + a + " " + b
 
            MsgBox c 
 
Case vbNo
        If dishStorageString = " " Then
        MsgBox  "There are no preparing dishes"
        Else
        MsgBox dishStorageString
        Dim start 
        start = MsgBox ("Do you want to start timing?", vbYesNo, "Start")
        Dim preparedDishString
    
    Select Case start
            MsgBox "Enter 'OK' to start timing"
            'Case vbYes
                Dim keys 
        
                keys = list.Keys
 
                Dim m, count
                m = 0
                Do while True 
                    
                    count = list.count
 
                WScript.Sleep 60000
                    m = m + 1
    
                if count <> 0 Then
 
                        For Each key in keys 
                            if key = m Then 
                                preparedDishString = preparedDishString + " " +  list.Item(m) + Chr(10) 
                            End If
                        Next
 
                    Else 
                        WScript.Quit
                    End If 
                Loop
        
    End Select
End Select


Собственно это набыдлокоденный скрипт некоторого подобия кухонного таймера.
Не пойму вот в чем ошибка (даже понятия не имею, как загуглить).

Он мне выдает, что на 60 строке (End Select первый) некая синтаксическая ошибка, а какая именно я понять не могу, поэтому обращаюсь за помощью к комьюнити, заранее вам благодарен.

Добавлено через 7 минут
Нету одного end if'a и loop'а в конце, чертова невнимательность.
Все заработало.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.02.2015, 15:38
Я подобрал для вас темы с готовыми решениями и ответами на вопрос VBS Синтаксическая ошибка End Select (VBScript/JScript):

При отправке файла при помощи TFTP в логе появляется запись: "Синтаксическая ошибка в имени файла" - Администрирование Windows
Здравствуйте! Использую такую команду: &gt;tftp 192.x.x.150 get C:\scan\file_555.txt 192.x.x.68 Хочу с 150-го компа перекинуть файлик на...

Ошибка в пользовательской форме "End Select without select case" - VBA
У меня был написан код, который хорошо работал.Я решил добавить пользовательскую форму (UserForm), через которую вводятся данные, после...

Как оформить условие на попадание в диапазон в конструкции Select Case ... End Select? - VBA
Народ, подскажите please, правильна ли конструкция следующего кода: Sub пример() pp2 = Str(InputBox(&quot;введите число&quot;)) Select Case...

Ошибка user.exe в коде: Private Sub Text1_Change() If Text1.Text = 'del' Then Unload Me End If End Sub - Visual Basic
Подскажите, плз. Почему происходит ошибка Windows, User.exe выполнила недопустимую операцию и будет закрыта....при следующем коде: ...

Ошибка синтаксического анализа: синтаксическая ошибка, неожиданный в T_STRING - WordPress
здравствуйте!,я здесь совсем (чайник), новичек, помогите!!!,я взял код на admitad вставил ( в заголовок header.php перед закрытием тега ...

Ошибка TNS-01150: Указан неверный адрес имени прослушивателя NL-00303: синтаксическая ошибка в NV-строке - Oracle
после команды lsnrctl status выдает такую ошибку: TNS-01150: Указан неверный адрес имени прослушивателя NL-00303: синтаксическая...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.02.2015, 15:38
Привет! Вот еще темы с ответами:

Ошибка при вызове метода/Синтаксическая ошибка - 1С
Здравствуйте, скажите пожалуйста, возможно ли изменить конструкцию запроса, чтобы не выводило такой ошибки:...

Синтаксическая ошибка: Ошибка 1 error C2059 - C++
#include &lt;iostream&gt; using namespace std; class Cat { public:

Синтаксическая ошибка - PHP
&lt;?php $num = ; print_r($num); ?&gt; Пишет синтаксическую ошибку. Почему?

Синтаксическая ошибка :: - C++
//Реализация клиента #define _WINSOCK_DEPRECATED_NO_WARNINGS #pragma comment(lib, &quot;wsock32.lib&quot;) #include &lt;winsock2.h&gt; #include...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru