VBNet - Форум - Пожалуйста, помогите написать программу. Очень ...

Вопрос: Пожалуйста, помогите написать программу. Очень ... Добавлено: 10.05.04 13:46

Автор вопроса: MadAlex2004

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

Ответить

Ответы Всего ответов: 5

Номер ответа: 1
Автор ответа:

dNW

Вопросов: 30
Ответов: 683

Профиль | | #1

Добавлено: 10.05.04 15:18

То есть тебе нужно узнать сколько раз в строке встречается определенная фраза. Я правильно понял?

Тогда юзай Instr()

Понял или нужен код?

Ответить

Номер ответа: 2
Автор ответа:

sne

Разработчик Offline Client

ICQ: 233286456

Вопросов: 34
Ответов: 5445

Web-сайт: hw.t-k.ru
Профиль | | #2

Добавлено: 10.05.04 17:01

проще использовать цикл от 1 до конца строки, со счетчиком... и сверять пару символов из строки Mid() с заданной константой... - делов на 30 сек...

Ответить

Номер ответа: 3
Автор ответа:

Grommy

Вопросов: 3
Ответов: 5

Профиль | | #3

Добавлено: 10.05.04 17:32

Скорее ему нужен сам код.

Ответить

Номер ответа: 4
Автор ответа:

dNW

Вопросов: 30
Ответов: 683

Профиль | | #4

Добавлено: 10.05.04 17:57

Option Explicit

Private Sub Command1_Click()
Dim a As String, b as string
a = lcase$("ABghiABnw") ' Строка для примера

b="ab" ' Пример поиска
Dim npos As Integer, n As Integer
npos = 1
Do Until npos = 0
npos = InStr(npos, a, "ab")
If npos <> 0 Then
n = n + 1
npos = npos + 1
End If

Loop
MsgBox n
End Sub

Ответить

Номер ответа: 5
Автор ответа:

K-00

ICQ: 179750444

Вопросов: 7
Ответов: 20

Профиль | | #5

Добавлено: 11.05.04 01:05

Разбиваешь функцией Split на массив и считаешьсколько там элементов

Private Sub cmdOK_Click()
Dim str As String, strFind As String, strAdd As String, a As Variant
Dim ans As Long
strFind = InputBox("Ââåäèòå ïîäñòðîêó")
strAdd = IIf(strFind = "**", "^^", "**")
str = strAdd & Txt1.Text & strAdd
a = Split(str, strFind, , 0)
ans = UBound (a)
Caption = ans
End Sub

Ответить

Страница: 1 |