Forum

Εύρεση: Τόνοι ή όχι - Από {transalper}

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

Απάντηση από:ctcp

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 ....

Απάντηση από:transalper

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.

Απάντηση από:_tasos

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

Απάντηση από:transalper

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

Απάντηση από:_tasos

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

Απάντηση από:(anonymous)

Φιλε μου οριστε το 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
%>