Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: 2 problemy... :/
anonim




Typ: Nie zarejestrowany
2 problemy... :/

problem #1
jest mozliwe zrobienie czegos takiego zeby mi kursorek sam jezdzil?

dokladniej chodzi o to zeby najechal mi na dane miejsce na monitorku i kliknal.

example:
jedzie sobie kursorek, dojezdza do paska adresu w przegladarce, klika, zmienia wnetrze na np 'wp.pl' i wrzuca ta strone...


problem #2
mam zestaw powiedzmy 4 literek, jak najefektywniej zrobic zeby mi w pliczku z wyrazami (lista slow, po jednym na linijke) znalazlo wszystkie mozliwe kombinacje tych literek tworzace slowa?

Wiem ze moge zrobic petle sprawdzajaca wszystkie mozliwe kombinacje tych literek, a nastepnie porownujaca z kazdym wyrazem w pliczku z osobna - ale nie wydaje mi sie to jakos super efektywne...
A na przykład przy 7 literkach to juz by byl masakrycznie dlugi proces...


peace
no i ofkorz dzieki za odpowiedz wszystkim ;D

//pookey

20-01-2005 04:07
  
marcin_an
Forumowicz




Typ: neutral
Postów: 1265
Zarejestrowany: Mar 2004

Problem #1
Można użyć funkcji WinAPI: SetCurosrPos
Opis w MSDN:
http://msdn.microsoft.com/library/en-us/winui/winui/windowsuserinterface/resources/cursors/cursorreference/cursorfunctions/setcursorpos.asp

Problem #2
Ja bym to zrobił tak:
W pojedynczym przejściu sprawdzałbym kazdy wyraz w pliku po koleji i najpierw sprawdzał, czy jego długość zawiera się w przedziale [1,L], gdzie L to ilość podanych liter, z których tworzymy kombinację. Jeśli tak, to sprawdzamy, czy zawiera on tylko litery z podanego zbioru (kod dalej). Jeśli tak, to mamy poszukiwany ciąg. Potem przechodzimy do następnego wyrazu (w naszym przypadku: linii).

Kod sprawdzający wystąpienie wszystkich znaków w ciągu:
Function AACIS(sString As String, sChars As String) As Byte
    Dim CX As Long
   
    For CX = 1 To Len(sString)
        If InStr(sChars, Mid$(sString, CX, 1)) Then AACIS = True Else AACIS = False: Exit Function
    Next
End Function

(mama nadzieję, że nie zrobiłem błędu)

Opis:
sString - ciąg znaków do sprawdzenia
sChars - zbiór wymaganych liter

[Post edytowany dnia 20-01-2005 04:37 przez marcin_an]


_____________________________________________
Jedzonko dla Google'a:
Forum na temat Visual Basic, C, C++, Pascal, Programowanie, API, PHP, VBA, VB.NET, QBasic, VBScript, Komputery
Moja strona o wszystkim

20-01-2005 04:36
Pokaż profil marcin_an  Wyślij email do marcin_an   Odwiedź stronę marcin_an  
anonim




Typ: Nie zarejestrowany

marcin_an, mozna jakis kontakt do Ciebie? gg or sth, bo mam kilka pytanek a nie chce forum zasmiecac... ;p

thx

20-01-2005 13:45
  
marcin_an
Forumowicz




Typ: neutral
Postów: 1265
Zarejestrowany: Mar 2004

Mail mam podany pod postami (ikonka OE)
GG: 4754627


_____________________________________________
Jedzonko dla Google'a:
Forum na temat Visual Basic, C, C++, Pascal, Programowanie, API, PHP, VBA, VB.NET, QBasic, VBScript, Komputery
Moja strona o wszystkim

20-01-2005 13:58
Pokaż profil marcin_an  Wyślij email do marcin_an   Odwiedź stronę marcin_an  
marcin_an
Forumowicz




Typ: neutral
Postów: 1265
Zarejestrowany: Mar 2004

Oczywiście w poprzednim kodzie pomyliłem wariację z powtórzeniami z kombinacją . Tutaj zamieszczam prawidłowy kod:
Function ISCV(sString As String, sChars As String) As Boolean
    Dim CX As Long
    Dim nCPos As Long
   
    For CX = 1 To Len(sChars)
        nCPos = InStr(sString, Mid$(sChars, CX, 1))
        If nCPos Then Mid(sString, nCPos, 1) = vbCr
    Next
    If Replace(sString, vbCr, "" ) = "" Then ISCV = True
End Function


Ponieważ były pytania, uzupełnienie:
1) Nalezy zwrócić uwagę na to, że pierwszy argument jest zmieniany w czasie działania funkcji. Aby tego uniknąć nalezy go użyć poprzez ByVal. W deklaracji funkcji zostawiam ByRef, bo IMO tak jest wygodniej i przydatniej.
2) vbCr jest użyte jako znak zastępczy, który nigdy nie trafi się w wyrazie. Wynika to z tego, że vbCr są już używane jako znaki oddzielajace kolejne wyrazy.

[Post edytowany dnia 21-01-2005 06:01 przez marcin_an]


_____________________________________________
Jedzonko dla Google'a:
Forum na temat Visual Basic, C, C++, Pascal, Programowanie, API, PHP, VBA, VB.NET, QBasic, VBScript, Komputery
Moja strona o wszystkim

20-01-2005 16:14
Pokaż profil marcin_an  Wyślij email do marcin_an   Odwiedź stronę marcin_an  
Wszystkich odpowiedzi: 4 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1