Вывести те слова, у которых есть хотя бы одна буква «а», стоящая рядом с «м»

@Losya · Регистрация: 06.12.2015

Вывести те слова, у которых есть хотя бы одна буква «а», стоящая рядом с «м».

@~~Апострофф~~ · 06.12.2015, 15:14

Losya, ссылочку на словарь (или просто набор слов, у некоторых из которых есть хотя бы одна буква «а», стоящая рядом с «м») не мешало бы приложить. Не хоть какую-то видимость работы показать...

@Losya · 06.12.2015, 15:58 **[ТС]**

Мамон
папа
мама
Пижама

Добавлено через 9 минут
Апострофф,

Visual Basic

Sub in_1()
Dim mas() As String, i%, j%, z%
i = 0
Do While Лист1.Range("A" & i + 1).Text <> ""
i = i + 1
s = Лист1.Range("A" & i).Text
ReDim Preserve mas(1 To i)
mas(i) = s
Loop
k = 0
b$ = ""
j = 1
For j = 1 To Len(mas(j))
If (Mid(mas(j), z, 1) = "а") And (Mid(mas(j), z + 1, 1) = "м") Then b$ = mas(j)
Cells(j, 2) = b$
b$ = ""
Next j
End Sub

ошибка : Run-time error '5':
Invalid procedure call or argument
Подскажите где ошибаюсь?

@~~Апострофф~~ · 06.12.2015, 16:37

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

For j = 1 To Len(mas(j))
If (Mid(mas(j), z, 1) = "а") And (Mid(mas(j), z + 1, 1) = "м") Then b$ = mas(j)

Visual Basic

1 2	For j = 1 To i ' Len(mas(j)) If InStr(1, mas(j), "ма", vbTextCompare) > 0 Then b$ = mas(j)

Добавлено через 4 минуты
В слове ампер буква «а» стоит рядом с «м»?

@Казанский · 06.12.2015, 21:39

Losya,

Visual Basic

Sub in_1()
Dim i&, j&, s$
  Do While Лист1.Range("A" & i + 1).Text <> ""
    i = i + 1
    s = Cells(i, 1).Text
    If InStr(1, s, "ма", vbTextCompare) > 0 Or InStr(1, s, "ам", vbTextCompare) > 0 Then
      j = j + 1
      Cells(j, 2) = s
    End If
  Loop
End Sub

@Losya · 09.12.2015, 21:50 **[ТС]**

Казанский, помогите сделать подпрограмму-процедуры?

PureBasic

Sub in_1()
Dim i&, j&, s$
  Do While Лист1.Range("A" & i + 1).Text <> ""
    i = i + 1
    s = Cells(i, 1).Text
    If InStr(1, s, "ма", vbTextCompare) > 0 Or InStr(1, s, "ам", vbTextCompare) > 0 Then
      j = j + 1
      Cells(j, 2) = s
    End If
  Loop
End Sub

@Losya 0 / 0 / 0 Регистрация: 06.12.2015 Сообщений: 8
		1
	Вывести те слова, у которых есть хотя бы одна буква «а», стоящая рядом с «м» 06.12.2015, 14:32. Показов 1496. Ответов 5 Метки нет (Все метки) Вывести те слова, у которых есть хотя бы одна буква «а», стоящая рядом с «м». 0

@~~Апострофф~~ Заблокирован
	06.12.2015, 15:14	2
	Losya, ссылочку на словарь (или просто набор слов, у некоторых из которых есть хотя бы одна буква «а», стоящая рядом с «м») не мешало бы приложить. Не хоть какую-то видимость работы показать... 0

Опции темы