Εύρεση: Τόνοι ή όχι

Εύρεση: Τόνοι ή όχι

Από {transalper}

Εχω ένα μηχανισμό αναζήτησης (ASP- Access) και θέλω να μην λαμβάνονται υπόψη οι τόνοι κατα τη διάρκεια αναζητήσεων. Πώς γίνεται αυτός

  1. 18/11/2003

    8a ftiakseis ena paidio stin access 8a to onomaseis KEY
    kai 8a valeis ti lekseis me tonous ekei mesa kai xoris tonous ..
    kai 8a peis stin mixani anazhthseis sou na pigenei kai na psaxnei sto pedeio KEY!!! diladi pedio 1)=(afto to pedeio emfanizete stin selida sou) τι κανώ 2)=(KEY afto 8a einai krifo pedio) 8a valeis tis lekseis klidia pou einai τι κανώ,τι κανω ....... opos eides sto KEY evala duo lekseis mia me tono kai mia xoris ....

  1. 18/11/2003

    Ok, auto tha doulepesei. Plhn omws milame gia baseis tis taxevs tvn 5000 eggrafvn, me artha apo efhmerides (memo), opote auth h lysh den mporei na efarmostei.

  1. 21/11/2003

    Αυτό που ίσως δουλέψει είναι να κάνεις μία συνάρτηση η οποία να παίρνει σαν είσοδο μια λέξη με τόνους και να έχει έξοδο την ίδια λέξη χωρίς τόνους
    Πρακτικά αυτό που θα κάνει είναι να διαβάζει έναν έναν τους χαρακτήρες και όταν π.χ. βρίσκει το 'ό' να το αντικαθιστά με 'ο' κτλ

  1. 21/11/2003

    Χμ...σωστή σκέψη. Που μπορώ να βρώ κανα αντίστοιχο παράδειγμα (κώδικα) να 'κλέψω' καμιά ιδέα; Δυστυχώς οι 'ξένοι' δεν έχουν τέτοια θέματα και είναι περιορισμένες οι αναφορές σε τέτοιο πράγμα...

  1. 21/11/2003

    Δεν νομίζω ότι είναι δύσκολο να το φτιάξεις μόνος σου, προσπάθησε το.
    Κάτι έτοιμο πάντως δεν ξέρω να σου πω.

  1. 3/2/2004

    Φιλε μου οριστε το function το οποίο τα κάνει όλα μικρά (βγάζει και διαλυτικά και διαλυτικά με τόνο) για να μπορέσεις να κάνεις τις αναζητήσεις σου . Το μόνο που πρέπει να σου πώ είναι ότι όταν κάνεις search πρέπει να τρέξεις όλα σαν μικρά άτονα. Το θέμα είναι πως θα το τρέξεις μέσα στο query.
    Fowever by job is done.


    <%
    'By Jigas[www.dcn.gr] webmaster@jigas.com
    'if you use this function please to not remove the writers name
    Response.Write fixString ("Είμάι γαμάτο παιδί , έ , ή απλός γάϊδαρος")
    Function fixString(myStr)
    if not isNULL(myStr) then
    myStr=lcase(myStr)
    for i = 1 to len(myStr)
    Select Case asc(mid(myStr,i,1))
    Case 223 ' ί
    MyStr = replace(MyStr , chr(223), chr(233))
    Case 250 ' ϊ
    MyStr = replace(MyStr , chr(250), chr(233))
    Case 192 ' ΐ
    MyStr = replace(MyStr , chr(192), chr(233))
    Case 220 'ά
    MyStr = replace(MyStr , chr(220), chr(225))
    Case 253 'ύ
    MyStr = replace(MyStr , chr(253), chr(245))
    Case 251 'ϋ
    MyStr = replace(MyStr , chr(251), chr(245))
    Case 224 'ΰ
    MyStr = replace(MyStr , chr(224), chr(245))
    Case 252 'ό
    MyStr = replace(MyStr , chr(252), chr(239))
    Case 221 'έ
    MyStr = replace(MyStr , chr(221), chr(229))
    Case 222 'ή
    MyStr = replace(MyStr , chr(222), chr(231))
    End Select
    next
    fixString = MyStr
    end if
    end function
    %>




   Πίσω στην προηγούμενη σελίδα