С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBScript/JScript/WSH/WMI/HTA
Войти
Регистрация
Восстановить пароль
 
-Zoom
1 / 1 / 0
Регистрация: 12.10.2013
Сообщений: 53
1

Синтаксическая ошибка End Select

15.02.2015, 15:38. Просмотров 375. Ответов 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
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.02.2015, 15:38
Ответы с готовыми решениями:

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

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

Как оформить условие на попадание в диапазон в конструкции Select Case ... End Select?
Народ, подскажите please, правильна ли конструкция следующего кода: Sub...

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

Echo <<< END . END; Ошибка
Здравствуйте! Что-то произошло в моей связке: echo &lt;&lt;&lt; END ... END; перестала...

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

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

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

Ошибка разбора: синтаксическая ошибка, неожиданный 'а' (T_WHILE) в C:\OSPanel\domains\Test.ru\index.php на линии 15
&lt;?php $connection = mysqli_connect('127.0.0.1','mysql','mysql','test_db'); ...


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

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

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