Войти

Показать полную графическую версию : [решено] переход на метку VBS


ymo_4@vk
28-11-2017, 22:21
Всем доброго времени суток.
Разобрался.
Вот код:
...
select case [название кейса]
case [название кейса]
....
case [название кейса (уже другое)]
....
end select

Iska
29-11-2017, 01:23
ymo_4@vk, в VBScript нет меток. Используйте условие, наподобие:
Dim c

c = InputBox("Введите название.")

If StrComp(c, "ничего", vbTextCompare) Then

Else

End If


И повторяю ещё раз: для обрамления кода используйте тэг «code», а не «quote» или «spoiler».

ymo_4@vk
29-11-2017, 15:44
Dim c
c = InputBox("Введите название.")
If StrComp(c, "ничего", vbTextCompare) Then

Else

End If »

а можно ли сделать так как написано на примере
Dim FSO, c, a
a = InputBox("Для папки введи - pack, для текстового документа - txt, для vbScript'a - vb")
c = inputbox("Введите название.")
[если человек ввел в переменной "c" "txt", то выполнение перкидалось сюда]
Set FSO=CreateObject("Scripting.FileSystemObject")
[если человек пишет "bat" то его перекидывает сюда]
fso.Createtextfile(c & ".txt")
MsgBox "Файл " & c & " успешно создан!"

Elven
29-11-2017, 16:02
И ещё одно, как вы вставляете окошко с названием "код" »
Значок октоторпа или [ CODE ] [ / CODE ] (лишние пробелы - удалить)




© OSzone.net 2001-2012