Thank you. That looks interesting.
Found this also for those that might have need of it. http://www.w3schools.com/php/php_ajax_livesearch.asp On Mon, Dec 1, 2014 at 9:31 AM, Thierry Nivelet <[email protected]> wrote: > Hi Virgil, > > Here is some code using jQueryUI's autocomplete widget > [http://www.machpro.fr/ search box] > > Javascript > -------- > > function searchInputSetup(){ > if ($('#search').autocomplete){ > $('#search').autocomplete({ > source: "AutoSuggest.html" > , autoFocus: true > , minLength: 3 > , appendTo: "#recherche" > , html: true > , delay: 350 // millisecondes avant que la requête ne parte > , change: searchSubmit > , select: function(event, ui){ > $('#search').attr('value', ui.item.value); > searchSubmit(event); > } > }) > .focus(function(event){$(this).select()}); > } > }; > > > function searchSubmit(event){ // envoie une chaîne de recherche > searchStart(); > $.ajax({ > url: 'Search.html', > data: '&mot=' + encodeURIComponent($('#search').val()), // > escape() > success: searchResultsDisplay, > cache: false > }); > }; > > > VFP > --- > * ================================================== > PROCEDURE AutoSuggest && {fr} Trouve les variantes et expressions d'un Mot > dans le Thésaurus && simule l'auto-suggestion > LPARAMETERS ; > tcTyped,; && {en} Typed by user {fr} Tapé par l'utilisateur > tcAlias,; && C : [m.tcTyped] {en} Alias where results should be stored > {fr} Alias où ranger les résultats - .T. : {en} return the SELECT-SQL > instruction {fr} retourner l'instruction SELECT-SQL > tnSeconds,; && @ {en} Execution time {fr} Temps d'exécution > tlProd && [.F.] {en} Working in production {fr} Production > > tnSeconds = 0 > tlProd = Iif(Pcount() >= 4, Vartype(m.tlProd) == 'L' AND m.tlProd, NOT > lDevMode()) > > LOCAL luResult; && {en} Number of results stored in (m.tcAlias) or SELECT > instruction {fr} Nombre de résultats stockés dans (m.tcAlias) ou > instruciton SELECT-SQL > , loEnv AS mpnEnv OF mpnDB.prg; > , loAnsi AS abSet OF abDev.prg; > , lcTyped, lnTyped, laTyped[1], lcMot, lcPrems; > , lcFilter, liWord, lcWord; > , lcSelect > > loEnv = mpnEnv() > > lcTyped = cSingulier(cComparable_MPN(m.tcTyped)) > IF NOT Empty(m.lcTyped); > AND mpnUse('wThesau,wIndex,wMots,BBIB') > > * Tabuler les mots tapés par l'utilisateur > lnTyped = ALines(laTyped, m.lcTyped, 1, Space(1)) > > * Calculer le filtre > lcFilter = '' > FOR EACH lcMot IN laTyped > lcFilter = m.lcFilter + Iif(Empty(m.lcFilter), [], [ AND ]) + [(] > FOR liWord = 1 TO 8 > lcFilter = m.lcFilter; > + Iif(m.liWord = 1, '', ' OR '); > + Textmerge([Mot<<m.liWord>>='<<m.lcMot>>']) && ANSI OFF > ENDFOR > lcFilter = m.lcFilter + [)] > ENDFOR > > lcFilter = Textmerge([Mots = '<<m.lcTyped>>' OR (<<m.lcFilter>>)]) > > IF Vartype(m.tcAlias) == 'L' AND m.tcAlias && retourner l'instruction > SELECT des entrées de Thesaurus > > TEXT TO lcSelect TEXTMERGE NOSHOW FLAGS 1 PRETEXT 3 > SELECT ID, Mots > FROM wThesau > WHERE <<lcFilter>> > ENDTEXT > > RETURN Strtran(cInLineCommentStripped(m.lcSelect), CRLF, Space(1)) > > ELSE > > tnSeconds = Seconds() > > * Ajouter les balises <strong> > * Mettre les accents dans la partie matchée > lcSelect = 'Mot' > lnTyped = ALines(laTyped, m.tcTyped, 1, Space(1)) > IF m.lnTyped < 4 > lcSelect = 'Mot' > FOR EACH lcMot IN laTyped > IF NOT m.lcMot $ 'strong' > lcSelect = > Textmerge("Iif(<<cLitteral(cEuroANSI(m.lcMot))>> > $ cEuroANSI(Mot), Stuffc(<<m.lcSelect>>, > Atc(<<cLitteral(cEuroANSI(m.lcMot))>>, > cEuroANSI(<<m.lcSelect>>)), <<Lenc(m.lcMot)>>, <<cLitteral('<strong>' + > m.lcMot + '</strong>')>>), <<m.lcSelect>>)") > ENDIF > ENDFOR > ENDIF > > #IF .F. > , Max(Cast(wMots.ID AS L)) AS lwMots > , Max(Nvl(wMots.Actif, .F.)) AS lActif > , Max(Nvl(bbib.bbib_budg, 0)) AS nBBIB_budg > LEFT JOIN wMots ON wIndex.ID_rec = wMots.ID > LEFT JOIN BBIB ON wMots.ID_BBIB = BBIB.ID > AND BBIB.Bbib_pweb > GROUP BY 1,2,3,4 > ORDER BY > lActif DESC > , nBBIB_budg DESC > , lwMots DESC > , Mots > #ENDIF > > TEXT TO lcSelect TEXTMERGE NOSHOW FLAGS 1 PRETEXT 3 > SELECT TOP 30 > Padr(<<m.lcSelect>>, 100) AS _MATCH && 1 > , wThesau.Mot && 2 > , wThesau.ID && 3 > , cEuroANSI(wThesau.Mot) = <<cLitteral(m.lcTyped)>> AS > lMatchDebut && ANSI OFF plus loin && 4 > , cEuroANSI(wThesau.Mots) AS TRI && 5 > FROM wThesau > WHERE <<m.lcFilter>> > GROUP BY 1,2,3,4,5 && nécessaire au HAVING > HAVING Indexseek(wThesau.ID, .F., 'wIndex', 'ID_thesau') > ORDER BY lMatchDebut DESC, TRI > ENDTEXT > * Ajouter un champ de tri sans accent > * Mettre les accents dans la partie matchée > > lcSelect = Strtran(cInLineCommentStripped(m.lcSelect), CRLF, > Space(1)) > tcAlias = Evl(m.tcAlias, cVFPName(m.tcTyped)) > loAnsi = abSet('ANSI', 'OFF') > IF m.tlProd > &lcSelect INTO CURSOR (m.tcAlias) > luResult = _tally > ELSE > luResult = VFPSelectExecute(m.lcSelect, m.tcAlias) > ENDIF > > tnSeconds = nSeconds(m.tnSeconds) > > RETURN m.luResult > ENDIF > ELSE > RETURN -1 > ENDIF > > Thierry Nivelet > FoxInCloud > Give your VFP app a second life in the cloud > http://foxincloud.com/ > > Le 01/12/2014 15:46, Virgil Bierschwale a écrit : > >> There used to be a utility you could get for foxpro that would allow you >> to >> start typing a company name and it would match your keystrokes to help >> narrow down the list. >> >> Don't remember the name for it, but I'm wondering if anything like that is >> available for php / mysql combination. >> >> As an example, just for the companies starting with the letter M, I have >> over 6,000 names so I can't really build a dropdown that would be usable >> with what could possibly be several hundred thousand possible names >> >> Any recommendations? >> >> What I would like to see is as a person starts typing Microsoft, the >> program would pull up a list that would grow smaller as they type more >> letters. >> >> Haven't been able to find it on google, but I'm probably not describing it >> right. >> >> Thanks, >> >> Virgil >> >> >> --- StripMime Report -- processed MIME parts --- >> multipart/alternative >> text/plain (text body -- kept) >> text/html >> --- >> [excessive quoting removed by server] _______________________________________________ Post Messages to: [email protected] Subscription Maintenance: http://mail.leafe.com/mailman/listinfo/profox OT-free version of this list: http://mail.leafe.com/mailman/listinfo/profoxtech Searchable Archive: http://leafe.com/archives/search/profox This message: http://leafe.com/archives/byMID/profox/CAPuy6VO8SkUuCopAYFJu5SJ_3MrT=4xvn7i5xdy7jbbufkg...@mail.gmail.com ** All postings, unless explicitly stated otherwise, are the opinions of the author, and do not constitute legal or medical advice. This statement is added to the messages for those lawyers who are too stupid to see the obvious.
