Консоль вывод слов

@ProDotaBass · Регистрация: 26.11.2014

Студворк — интернет-сервис помощи студентам

И так нужно следующие, надо в сделать консольную программу, которая будет выводить все слова из предложения, содержащие две подряд согласные буквы. Я на VBS написал скрипт, а вот с консолью пока еще парюсь не множк. Помогите так сказал портировать с VBS на консольный VB

Ну разумеется мне нужен исходный код, а не просто программа, я буду оч. благодарен вам

Вот собственно код на VBS

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Dim b, str, vivod
str=trim(InputBox("Введите латинские слова"))
b= split(str, " ")
vivod = ""
 
for sl=0 to UBound(b)
 cur = 0
 for i=1 to Len(b(sl))
  bukva= mid (b(sl), i, 1)
  if instr("aeuyoi", bukva) <> 0 then
   cur = cur + 1
  end if
 next
 
 if cur=>2 then
  vivod = vivod + b(sl) + " "
 end if
next 
 
 MsgBox (vivod)

@Апострофф · 13.03.2015, 11:52

Сообщение от ProDotaBass

консольный VB

это наверно там?

@Catstail · 13.03.2015, 15:25

Апострофф, можно и VBScript запустить с консольным окном. Имя консольного интерпретатора CScript.exe

Добавлено через 3 часа 20 минут

Visual Basic
1
2
3
4
5
6
7
Set Sinp=WScript.StdIn
Set Sout=WScript.StdOut
 
Do While Not SInp.AtEndOfStream
   S=Sinp.ReadLine
   Sout.WriteLine S
Loop

Сохранить с именем 123.vbs и запуск: Cscript.exe 123.vbs
А дальше вводить строки (программа их будет повторять). Конец ввода Ctr-Z+Enter

@Alex77755 · 13.03.2015, 15:29

А просто создать консольное приложение?

@Catstail · 13.03.2015, 16:45

Alex77755, у VB6ee, а такого типа проекта нет.

@Казанский · 13.03.2015, 16:54

У меня тоже нет

А вот кстати как заставить скрипт выполняться в CSCRIPT (фактически этот код проверяет, в какой среде запущен скрипт, и если это не CSCRIPT, то запускает его снова в CSCRIPT): http://www.robvanderwoude.com/... _force.php

@Alex77755 · 14.03.2015, 09:40

Catstail, в стандартной поставке нет.
Но есть Add-ин.
Когда-то давно интересовался єтим вопросом.
Нашел описание возможности создавать в VB6 консольные приложения.
И там была это надстройка. Уже не помню подробности как я её устанавливал, но видите на скрине сами: такая возможность есть.

@Catstail · 14.03.2015, 09:58

Alex77755, создавать консольные приложения в VB я умею (тут и тема была). Хотя с надстройкой было бы, конечно, удобнее.

Новые блоги и статьи Все статьи Все блоги /
Перемещение выделенных строк ТЧ из одного документа в другой Maks 30.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	13.03.2015, 15:29
	А просто создать консольное приложение? Миниатюры 0

@Catstail Супер-модератор 38195 / 21128 / 4309 Регистрация: 12.02.2012 Сообщений: 34,733 Записей в блоге: 14
	13.03.2015, 16:45
	Alex77755, у VB6ee, а такого типа проекта нет. 0

@Казанский 15155 / 6428 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	13.03.2015, 16:54
	У меня тоже нет А вот кстати как заставить скрипт выполняться в CSCRIPT (фактически этот код проверяет, в какой среде запущен скрипт, и если это не CSCRIPT, то запускает его снова в CSCRIPT): http://www.robvanderwoude.com/... _force.php 1

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	14.03.2015, 09:40
	Catstail, в стандартной поставке нет. Но есть Add-ин. Когда-то давно интересовался єтим вопросом. Нашел описание возможности создавать в VB6 консольные приложения. И там была это надстройка. Уже не помню подробности как я её устанавливал, но видите на скрине сами: такая возможность есть. 1

@Catstail Супер-модератор 38195 / 21128 / 4309 Регистрация: 12.02.2012 Сообщений: 34,733 Записей в блоге: 14
	14.03.2015, 09:58
	Alex77755, создавать консольные приложения в VB я умею (тут и тема была). Хотя с надстройкой было бы, конечно, удобнее. 0