|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - [решено] Ввести строку и подсчитать количество букв "i" |
|
VBS/WSH/JS - [решено] Ввести строку и подсчитать количество букв "i"
|
Новый участник Сообщения: 4 |
Профиль | Отправить PM | Цитировать Помогите пожалуйста написать несложный код, вроде бы :D
Задание: Пользователь вводит с клавиатуры строку символов(не более 80). Подсчитать и вывести на экран количество раз, которое латинская буква "i" встречается в строке. |
|
Отправлено: 13:55, 25-05-2018 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать Option Explicit Const strLetter = "i" Dim strValue strValue = Trim(InputBox("Enter a string", "Enter a string")) If Len(strValue) > 0 Then WScript.Echo "Letter [" & strLetter & "] occurs " & CStr(Len(strValue) - Len(Replace(strValue, strLetter, ""))) & " times in string [" & strValue & "]." Else WScript.Echo "Input cancelled" WScript.Quit 1 End If WScript.Quit 0 |
Отправлено: 14:07, 25-05-2018 | #2 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Новый участник Сообщения: 4
|
Профиль | Отправить PM | Цитировать Iska, ты меня уже столько раз спас, что я тебе вышлю свой диплом :D спасибо большое
|
Отправлено: 14:13, 25-05-2018 | #3 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать Спасибо, диплома не надо. Можете помочь материально .
|
Отправлено: 14:53, 25-05-2018 | #4 |
Участник сейчас на форуме | Участник вне форума | Автор темы | Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Любой язык - Подсчитать количество целых чисел в текстовом файле | vadmilionikus73 | Скриптовые языки администрирования Windows | 4 | 01-12-2015 14:11 | |
Любой язык - [решено] Подсчитать количество нужных файлов в папке | Alexander_88 | Скриптовые языки администрирования Windows | 15 | 19-11-2015 12:58 | |
CMD/BAT - Как ввести строку? | бУРов | Скриптовые языки администрирования Windows | 4 | 27-09-2012 16:17 | |
Разное - Ограничить количество букв для мапа дисков | RUVATA | Microsoft Windows 2000/XP | 3 | 30-10-2010 14:50 |
|