Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
0 / 0 / 0
Регистрация: 20.01.2013
Сообщений: 3
1

В заданной строке найти слова, начинающиеся с символа, отличного от заданного и содержащие более трех символов

20.01.2013, 21:06. Просмотров 688. Ответов 1
Метки нет (Все метки)

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

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Option Explicit
Option Base 1
Sub zadacha6()
Dim s As String, i As Integer, m As Integer, p2 As String, p1 As String, k As Integer, n As Integer, a(30) As String, p As String * 1, s1 As String
Sheets("Лист1").Select
Range("C2:C100") = Empty
s = Cells(1, 1)
p2 = Cells(2, 1)
n = Len(s)
m = 0
k = 0
For i = 1 To n
    p = Mid(s, i, 1)
    If i = 1 Then p1 = Mid(s, i, 1)
    If i = n And k > 3 Then s1 = s1 + p: a(m + 1) = s1: m = m + 1
    If p = " " Then If k > 3 Then a(m + 1) = s1: m = m + 1: s1 = "": k = 0: p1 = Mid(s, i + 1, 1) Else p1 = Mid(s, i + 1, 1)
    If p1 = p2 And p <> " " Then s1 = s1 + p: k = k + 1
Next i
For i = 1 To m
    Cells(i + 3, 3) = a(i)
Next i
End Sub
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.01.2013, 21:06
Ответы с готовыми решениями:

В заданной строке найти все слова, начинающиеся с заданного символа
В заданной строке найти все слова, начинающиеся с заданного символа Если можно, то с объяснениями

Дана строка X. Напечатайте все слова, начинающиеся с цифры и имеющие длину не более трех символов
Дана строка X. Напечатайте все слова, начинающиеся с цифры и имеющие длину не более трех символов.

Найти слова, начинающиеся с заданного символа
Задача с++ В заданном тексте найти слова, начинающиеся с заданного символа. Эти слова записать...

Обработка строк. Найти все слова, начинающиеся с заданного символа.
Добрый день! Я к вам снова с вопросом... Задача: Заданная строка состоит из слов, разделенных...

1
Модератор
Эксперт Python
27004 / 14174 / 2731
Регистрация: 12.02.2012
Сообщений: 23,235
Записей в блоге: 3
20.01.2013, 22:02 2
Ну, ты и навертела...

Visual Basic
1
2
3
4
5
6
7
8
9
Sub Test()
 
    Arr = Split("À ðîçà óïàëà íà ëàïó Àçîðà")
    
    For i% = 0 To UBound(Arr, 1)
        Debug.Print Arr(i%)
    Next i%
 
End Sub
Остальное ясно.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.01.2013, 22:02

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

Заменить в заданной символьной строке все слова, содержащие указанную букву на соответствующее количество символов '*'
Написать функцию, которая заменяет в заданном символьном строке все слова, содержащие указанную...

Найти в строке фрагменты, содержащие последовательность одинаковых символов длиной более 3
Задача:Функция находит в строке фрагменты, содержащие последовательность одинаковых символов длиной...

Найти слова длиной не более трех символов
в строке, содержащей слова через пробел, найти слова не более 3-х символов и составить новую...

Дана строка символов. Найти и вывести все слова, содержащие более двух букв «a»
Задание-&gt; Дана строка символов. Найти и вывести все слова, содержащие более двух букв «a»....

В заданной строке найти все слова, начинающиеся и заканчивающиеся одинаковой буквой
В заданной строке найти все слова, начинающиеся и заканчивающиеся одинаковой буквой (например,...

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


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

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

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