Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: selStart, selLenght... nie do końca mi działa, pomóżcie..
anonim




Typ: Nie zarejestrowany
selStart, selLenght... nie do końca mi działa, pomóżcie..

Jest sobie procedurka...

Private Sub btnSzukaj_Click()
Dim slowo As String
Dim dlugosc As Integer
Dim pomoc As String
Dim pozycja As Integer
On Error Resume Next
slowo = LCase(txtSzukaj.Text)
dlugosc = Len(slowo)
pomoc = LCase(txtPomoc.Text)
pozycja = InStr(1, pomoc, slowo)
If pozycja > 0 Then
    txtPomoc.SetFocus
    txtPomoc.SelStart = pozycja - 1
    txtPomoc.SelLength = dlugosc
End If
End Sub

Docelowo ma poszukać w tekście słowo i poświetlić je..
Problem w tym, że w tekście jest dużo enterów no i sellenght je widzi również jako znaki... W efekcie procedura podświetla wyrazy ale zawsze przesunięte o ileś tam znaków...

Jak w najprostszy sposób to obejść ?
Mogłabym przecież użyć Mid-a i sprawdzać po kolei każdy znak... ale wtedy progs mógłby chodzić pół godziny...

Za wszelkie propozycje z góry dziękuję
pzdr Monia
(nie chciało mi się logować

24-11-2003 09:48
  
Abi




Typ: neutral
Postów: 18
Zarejestrowany: Mar 2003

Ta procedurka działa dobrze. Nie ma problemu, bo Len też widzi entery. Może masz ją bardziej rozbudowaną i przez przypadek zmienna np. dlugosc zmienia swoją wartość.

25-11-2003 13:09
Pokaż profil Abi  Wyślij email do Abi   
kicaj




Typ: neutral
Postów: 271
Zarejestrowany: Aug 2003

hmm kiedys napisalem takiego sampla ze wyciaga linie z takiego textboxa, pamietaj ze enter to Chr(13) & Chr(10) i tu masz ten swoj problem przesownia o znak, tez sie z tym kiedys meczylem

25-11-2003 15:41
Pokaż profil kicaj  Wyślij email do kicaj        3914568
Wszystkich odpowiedzi: 2 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1