VPF::как вернуть всю строку, содержащую некое слово??

ReOlga

Дата 15.9.2003, 11:15 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 15.9.2003

Репутация: нет
Всего: нет

Как вернуть всю строку, которая содержит некое заданное слово?? Тоесть программа должна прочитать строку и, обнаружив слово (например OLGA), вернуть всю строку

ps.
Помогите пожалуйста начинающему VB-ману: программерам некогда, а админ вечно занят.

Mephisto

Дата 15.9.2003, 15:57 (ссылка)

(нет голосов)

Загрузка ...

Волкъ

Профиль
Группа: Завсегдатай
Сообщений: 1818
Регистрация: 27.8.2003
Где: Питер

Репутация: 2
Всего: 34

Вот код программы. Sorry не тестировал, но должно работать

На форму высунешь кнопку и назовешь сmdStart, затем текстовое окно txtMain соответственно.
Enjoy it!

Цитата

Const strPrim = "U-Boot"

Private Sub cmdStart_Click()
Dim strText$, lngPos&

strText = txtMain.Text 'txtMain - TextBox
lngPos = InStr(1, strText, strPrim) 'Search for strPrim$ in your strText
'lngPos = InStr(1, txtMain, strPrim) 'Without strText

If lngPos <> 0 Then
txtMain.SelStart = lngPos
txtMain.SelLength = Len(strPrim)
End If
Me.Caption = "Start:" + CStr(lngPos) + " LEN:" + CStr(txtMain.SelLength) ' Kill this code
End Sub

Private Sub Form_Load()
txtMain.Text = "Tratata Tratata U-Boot Tratata Tratata"
End Sub

Black_Star

Дата 15.9.2003, 23:08 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 192
Регистрация: 9.9.2003
Где: Minsk

Репутация: 4
Всего: 4

Верно... все суть сводится к тому, что поиск идет по: InStr(с какого символа искать, в какой строке, какой порядок символов)

ReOlga

Дата 16.9.2003, 13:49 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 15.9.2003

Репутация: нет
Всего: нет

Спасибо всем!

ReOlga

Дата 17.9.2003, 05:58 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 15.9.2003

Репутация: нет
Всего: нет

Еще вопрос!
Есть две строчки в текстовом окне. Как эти две строчки прочитать и вывести в отдельное текстовое окно ту строчку, которая содержит заданное слово

Плиззз....

Mephisto

Дата 17.9.2003, 18:16 (ссылка)

(нет голосов)

Загрузка ...

Волкъ

Профиль
Группа: Завсегдатай
Сообщений: 1818
Регистрация: 27.8.2003
Где: Питер

Репутация: 2
Всего: 34

Код

Option Explicit
Const strPrim = "U-Boot"

Private Sub cmdStart_Click()
    Dim strText$, lngPos&, i&, lngStart&, lngLen&
    
    strText = txtMain.Text              'txtMain - TextBox
    lngPos = InStr(1, strText, strPrim) 'Search for strPrim$ in your strText
    
    If lngPos <> 0 Then
        
        For i = lngPos To 1 Step -1
            If Asc(Mid$(txtMain.Text, i, 1)) = 13 Then
                lngStart = i
                Exit For
            End If
        Next
        
        i = i + 1
        
        Do While Asc(Mid$(txtMain.Text, i, 1)) <> 13
            lngLen = lngLen + 1
            i = i + 1
        Loop
        
        txtMain.SelStart = lngStart
        txtMain.SelLength = lngLen
        
        txtOutput.Text = txtMain.SelText
    End If
End Sub

Лови

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »