Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
46 / 46 / 18
Регистрация: 25.10.2011
Сообщений: 183
1

Найти либо те слова в тексте, в которых есть все буквы определенного слова, либо те, в которых нет ни одной

22.09.2014, 21:20. Просмотров 1145. Ответов 3

1 - текстовое поле, куда пользователь вводит произвольный текст.
2 - текстовое поле, куда пользователь вводит одно слово.
3 - Вывод в label.
По нажатию кнопки происходит анализ: в лейбл выводит все слова из поля (1), в которых есть все буквы слова, указанного в поле (2). По переключению радио-кнопки выводит все слова, в которых нету ни одной совпадающей буквы. В случае, если не найдено ни одного подходящего слова - вывести соответствующее сообщение ( MsgBox ).
-----------
P.S. Начал изучать бейсик - немного офигел, как тут муторно со строками играться.. За любую помощь буду благодарен.
0
Миниатюры
Найти либо те слова в тексте, в которых есть все буквы определенного слова, либо те, в которых нет ни одной  
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.09.2014, 21:20
Ответы с готовыми решениями:

В тексте найти все слова, в которых нет буквы о
Хелп плиз...

Вывести только симметричные слова либо слова, в которых буквы упорядочены в порядке, обратном алфавитному
С консоли вводится текст. Напишите программу, которая будет выводить только те слова, которые...

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

Для заданного достаточно длинного слова найти в имеющемся тексте все слова, в которых использованы только буквы, имеющиеся в заданном слове
Помогите пожалуйста!!!!!Плиззззззззз!!!!! Для заданного достаточно длинного слова найти в...

3
призрак
3259 / 884 / 118
Регистрация: 11.05.2012
Сообщений: 1,702
Записей в блоге: 2
22.09.2014, 22:53 2
Цитата Сообщение от Hunter13ua Посмотреть сообщение
Начал изучать бейсик - немного офигел, как тут муторно со строками играться.
а как бы Вы решили эту задачу на "не муторном" языке?
и, кстати, на каком?
0
46 / 46 / 18
Регистрация: 25.10.2011
Сообщений: 183
22.09.2014, 23:07  [ТС] 3
На С/С++/С# сделал/нашел бы метод, проверяющий если ли все символы одного слова во втором. Так бы разбил строку на слова, каждое отдельно проанализовал и вывел результат. Здесь же даже не могу понять как обратиться к символам слова и как разбить строку на слова. Да и что там, вчера делал, а сегодня уже не могу считать толково строку и вывести в лейбл. Короче, перед Вами человек, который первый раз видит basic.
0
Заблокирован
22.09.2014, 23:33 4
Цитата Сообщение от Hunter13ua Посмотреть сообщение
Здесь же даже не могу понять как обратиться к символам слова и как разбить строку на слов
Visual Basic
1
2
3
4
arr=Split("Два слова")
msgbox arr(0)
msgbox arr(1)
msgbox mid(arr(0),3,1) 'Возвратит 3-й символ первого слова
Добавлено через 3 минуты
По умолчанию функция Split разделяет слова на пробелы..
но можно использовать и свой разделитель

arr=Split("Два/слова","/")

Добавлено через 3 минуты
На байсике, можно сделать абсолютно всё..
вот пример разбития на слова

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
Option Explicit
Const edn = "ноль один два три четыре пять шесть семь восемь девять"
Const ndc = "одиннадцать двенадцать тринадцать четырнадцать пятнадцать шестнадцать семнадцать восемнадцать девятнадцать"
Const des = "десять двадцать тридцать сорок пятьдесят шестьдесят семьдесят восемьдесят девяносто"
Const sot = "сто двести триста четыреста пятьсот шестьсот семьсот восемьсот девятьсот"
Const tsh = "тысяча тысячи тысяч", mln = "миллион миллиона миллионов", mrd = "миллиард миллиарда миллиардов"
Const valuteRub = "рубль рубля рублей", valuteKop = "копейка копейки копеек"
Dim s$, f&, Fltr$, Kop$
Function SumProp$(ByVal Expression As Double, Optional ByVal val$ = valuteRub, Optional rec&)
    Const p = " ", z = ", ":  Dim s$
    If Expression <> Fix(Expression) Then
        'для вывода инфы копейки округляются до 2-х знаков после запятой
        'например: 0,3 = 30 копеек // 0,03 = три копейки
        Kop = Mid$(Expression, InStr(1, Expression, ",") + 1, 2)
        Kop = Kop & String(2 - Len(Kop), 48)
        Kop = z & SumProp(Kop, valuteKop, rec + 1): Expression = Fix(Expression)
    End If: If Expression >= 2 ^ 31 Then MsgBox "Вы ввели очень большое число", vbInformation: Exit Function
    While Expression > 0
        Select Case Expression
        Case Is >= 10 ^ 9: s = s & SumProp(Fix(Expression \ 10 ^ 9), mrd, rec + 1): Expression = Expression Mod 10 ^ 9
        Case Is >= 10 ^ 6: s = s & SumProp(Expression \ 10 ^ 6, mln, rec + 1): Expression = Expression Mod 10 ^ 6
        Case Is >= 1000: s = s & SumProp(Expression \ 1000, tsh, rec + 1): Expression = Expression Mod 1000
        Case Is >= 100: s = s & Split(sot)(Expression \ 100 - 1) & p: Expression = Expression Mod 100
        Case 10, Is >= 20: s = s & Split(des)(Expression \ 10 - 1) & p: Expression = Expression Mod 10
        Case 11 To 19: s = s & Split(ndc)(Expression - 11) & p: Expression = -Expression
        Case Is < 10: s = s & Split(edn)(Expression) & p: Expression = -Expression
        End Select
    Wend
    If Len(s) Then
        Expression = Abs(Expression)
        Select Case Expression
        Case 1: s = s & Split(val)(0) & IIf(rec And val <> valuteKop, z, "")
        Case 2, 3, 4: s = s & Split(val)(1) & IIf(rec And val <> valuteKop, z, "")
        Case Else: s = s & Split(val)(2) & IIf(rec And val <> valuteKop, z, "")
        End Select: Select Case val
        Case tsh, valuteKop 'исключение, тысяча и копейка в женском роде
            s = Replace(s, "один ", "одна ")
            s = Replace(s, "два ", "две ")
        End Select
    Else: Kop = Trim$(Mid$(Kop, 2))
    End If
    If rec = 0 Then s = s & Kop: Kop = ""
    SumProp = LCase(s): SumProp = UCase(Left$(SumProp, 1)) & Mid$(SumProp, 2)
End Function
Добавлено через 9 минут
Или вот например, я проверил можно ли на VBA сделать браузер
https://www.cyberforum.ru/post6530972.html
собрал за 15 мин
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.09.2014, 23:33

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Определите слова, в которых нет хотя бы одной буквы из слова-образца
Вот, собственно, задача:&quot;Вводится слово-образец. Затем вводится список слов (не более 100)....

Найти все абзацы текста, в которых нет определённого слова
Привет всем! Хочу написать регулярное выражение которое находит все абзацы в которых НЕТ...

Найти в тексте все слова, буквы в которых упорядочены по алфавиту.
Помогите пожалуйста с программкой на С++, сама не справляюсь. &quot;В данном тексте найти все слова,...

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


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

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

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