Hi!

Koszonom mindenkinek, hogy valaszoltak a kerdeseimre.

A jelolesrendszerrel kapcsolatban szeretnek meg nehany szot szolni. Tobbek
tanacsara rakerestem az interneten (sajnos nekem nincs internet
hozzaferesem, csak a haverom tud segiteni neha...) a Hungarian Notation
-ra es a kovetkezot talaltam:

http://www.iit.uni-miskolc.hu/~ficsor/oktatas/kodolas/CPPcoding.html#intro
A szabvány formai eloírásai igazodnak a GNU kódolási
szabványához.

Krapulax

Szevasztok !

Egy kis segitsegre lenne szuksegem. Nem vagyok programozo, de idonkent
kisebb kodokat kell beepitenem. Az alabbi kod mukodik, nincs is vele semmi
gondom, csak egy.

Ha jól ertelmezem, akkor az alabbi kod a PROBA adatbazis ELSO tablajaban,
a MEZO1 mezoben megkeresi a beirt kifejezest.

Nekem arra lenne szuksegem, hogy a beirt kifejezest a tablaban levo mind a
4 mezoben keresse !

Igazan koszonom a segitseget !
Üdv, Adhoc
**************************************************

Option Compare Database
Option Explicit

Sub kereso()
Dim Bazis As Database
Dim Rekordhalmaz As Recordset
Dim Feltet As String
Dim Jelzo As Variant
Dim Uzenet As String
Dim Mutato As Integer

Set Bazis = OpenDatabase("proba.mdb")
Set Rekordhalmaz = Bazis.OpenRecordset("elso",
dbOpenSnapshot)

Do While True
  Feltet = Trim(InputBox("A keresett szöveg beírása"))
  If Feltet = "" Then Exit Do
  Feltet = "mezo1='"&Feltet&""'
  With Rekordhalmaz
    .MoveLast
    Rekordhalmaz.FindFirst Feltet
    If .NoMatch Then
      MsgBox "Ilyen a fodön nincs"
      Exit Do
    End If

    Do While True
      Jelzo = Bookmark
      Uzenet = Feltet & vbCr & vbCr & "[1 - FindFirst, 2 -
FindLast, 3 - FindNext, 4 - FindPrevious]"
      Mutato = Val(Left(InputBox(Uzenet), 1))
      If Mutato < 1 Or Mutato > 4 Then Exit Do
      If FindAny(Mutato, Rekordhalmaz, Feltet) = False Then
        Bookmark = Jelzo
        MsgBox " Nincs találat, visszatérek az aktuális
rekordra"
      End If
    Loop
  End With
  Exit Do
Loop
Rekordhalmaz.Close
Bazis.Close
End Sub

Function FindAny(Choice As Integer, Temp As Recordset, Find
As String) As Boolean
  Select Case Choice
    Case 1
      Temp.FindFirst Find
    Case 2
      Temp.FindLast Find
    Case 3
      Temp.FindNext Find
    Case 4
      Temp.FindPrevious Find
  End Select
  FindAny = IIf(Temp.NoMatch, False, True)
End Function

Szia!

tobbfelekeppen is meghatarozhatod, pl.: Eukledeszi algoritmus, primtenyezos
felbontas stb... de talan tekintve a mai gepek sebesseget, a brute force sem
rossz valasztas :) Es talan az egyik leggyorsabban megvalosithato.
( Az Eukledeszi elegansabb es az is majdnem ilyen rovid. )

Itt van egy pelda ra pascalban, igyekeztem ugy irni, hogy atlathato legyen,
ha nem ismerned a nyelvet:

Program Legnagyobb_K_O;
var ciklus,hatar,lnko,szam1,szam2 : integer;
.

Udv mindenkinek.

Tudja valaki , hogy kell az IE popup menujebe berakni egy sajat menupontot
, pe ldaul ilyesmit csinal a download accelerator is , nagyon regen
valahol lattam mar a megoldast , assze m valami registry-s dolog is volt
benne , nem tudja valaki hogy lehetne megcsinalni?

Zso.