Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: txt
thot
lol



Typ: neutral
Postów: 47
Zarejestrowany: Jun 2003
txt

jak wyszukać jakies słowo w pliku txt ?


_____________________________________________
nie chce ci sie deklarowac api?
nie chcesz pisac dlugich funkcji?
chesz miec mozliwosc kolorowania napisu na
commandbutionie i wiele innych ciekawych funkcji?

-ściągnij kontrolkę FkFx
www.fkfx.webpark.pl

01-07-2003 14:45
Pokaż profil thot  Wyślij email do thot   Odwiedź stronę thot       4138988
Chudy
[TLHW]Wiktor



Typ: moderator
Postów: 574
Zarejestrowany: Aug 2002

Do tego może się przydać kontrolka RichTextBox ponieważ jest bardzo wygodna.

[Post edytowany dnia 01-07-2003 18:03 przez Chudy]


_____________________________________________
Projekt "Thunder Cannons" nadchodzi...

01-07-2003 18:02
Pokaż profil Chudy  Wyślij email do Chudy   Odwiedź stronę Chudy       1220895
m-a-x



Typ: neutral
Postów: 366
Zarejestrowany: Jan 2003

Ludzie wyluzujcie - po co odrazu kontrolka. Po co powiekszać swoją aplikacje o dodatkowe KB jak można to zrobić prosto i łatwo i przy okazji zachować wielkość programu bez zmian.

Poprostu wczytujesz całego txt'ka do zmiennej (przykłady jak to zrobić masz min na vb4all) a następnie za pomocą funkcji InStr sprawdzasz czy dany wyraz istnieje w danym ciągu. Funkcja wyszukująca może wyglądać np tak:

private function search(slowo,plik as string) as boolean
gdzie = instr(1,plik,slowo,vbtextcompare)
if gdzie = 0 then
search=false
else
search=true
end if
end function


_____________________________________________

Problemem zazwyczaj nie jest brak osób znających odpowiedź a zadanie właściwego pytania!

01-07-2003 18:41
Pokaż profil m-a-x  Wyślij email do m-a-x   
Knight Lore''FC




Typ: neutral
Postów: 240
Zarejestrowany: Jan 2003
troche dokladniejsze

Private Function Search(Slowo As String, Plik As String, Sposob As VbCompareMethod) As Long
'funkcja zwraca pozycje poszukiwanego ciagu w pliku TXT
'dla pliku BINARNEGO nalezy zmienic sposob odczytu danych

'jesli SEARCH=0 to nie ma ciagu znakow

'slowo = poszukiwany ciag znakow
'plik = path i nazwa pliku TXT
'sposob = sposob wyszukiwania (rozrozniaj/nie rozrozniaj wielkosc liter)

Dim Bufor As String
Dim Dlugosc As Long

Search = 0
Dlugosc = 0

'tu radze wstawic procedure sprawdzania czy plik istnieje

'otwarcie pliku
Open Plik For Input As #1
   
    While EOF(1) <> -1
        Line Input #1, Bufor
       
        'szukanie
        Search = InStr(1, Bufor, Slowo, Sposob)
        If Search > 0 Then
            Search = Dlugosc + Search
            Close #1
            Exit Function
        End If
       
        'dlugosc juz odczytana
        Dlugosc = Dlugosc + Len(Bufor)

    Wend
Close #1

End Function

03-07-2003 12:01
Pokaż profil Knight Lore  Wyślij email do Knight Lore        1065423
Wszystkich odpowiedzi: 3 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1