--- title: "Sök efter anagramer i ordlista" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/169263-sök-efter-anagramer-i-ordlista" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "dp81" published: "2008-02-22T10:37:07.000Z" updated: "2008-02-24T11:58:05.000Z" replies: 13 views: 990 page: 1 pages: 1 language: "sv-SE" site: "webForum — webforum.nu" rights: "Upphovsrätten till varje inlägg tillhör dess författare." attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/169263-sök-efter-anagramer-i-ordlista" --- # Sök efter anagramer i ordlista ## #1 — dp81, 2008-02-22T10:37Z Vilket är det bästa sättet om jag vill söka efter anagram av ett visst ord från en ordlista? Går det att skriva allt i selectsatsen eller måste jag först lista alla kombinationerna? /mvh Daniel Permalänk: https://www.webforum.nu/p/169263 ## #2 — voigtann1, 2008-02-22T10:51Z ``` <% dim sWord sWord = "jeh" Function SQLSecure(s) SQLSecure = Replace(s,"'","''") End Function dim sql 'Början av SQL strängen. sql = "SELECT word From tabell WHERE 1 = 1" ' Kör igenom alla tecken som finns i ordet och lägg in en det i en SQL fråga. For i = 1 to len(sWord) sql = sql & " AND word LIKE '%" & SQLSecure(mid(sWord,i,1) & "") & "%'" Next 'Skriv ut SQL strängen använd sql-strängen till ditt Recordset. Response.Write sql %> ``` Kanske? Permalänk: https://www.webforum.nu/p/2084366 ## #3 — The_Hulk, 2008-02-22T11:50Z Det blir väl inte riktigt rätt? då kommer du få med ord som t.ex. "heje", "heeeej" m.m. och de är väl inte anagram på "jeh"? så man måste begränsa antal förekomster av varje bokstav till samma som finns i ursprungsordet. Permalänk: https://www.webforum.nu/p/2084374 ## #4 — voigtann1, 2008-02-22T11:57Z sant. Räcker det inte att lägga till ``` sql = sql & " AND Len(word) = " & Len(sWord) ``` Efter Next? Permalänk: https://www.webforum.nu/p/2084376 ## #5 — spango, 2008-02-22T12:32Z Nope, strängen "bba" motsvarar då "abb". Det effektivaste sättet (dock ej minnesmässigt :) ) jag kan komma på att hitta anagram på, är att varje ord i databasen också finns "sorterat" bokstav för bokstav, och när man vill hitta ett anagram sorterar man då tecknen i ordet man vill hitta anagram för. Sökningen blir skitsnabb eftersom man kan indexera det sorterade fältet. **red.** Exempel. Databasen: ``` word | sortedWord ------------ hej | ehj salt | alst last | alst ``` För att sen hitta anagram på "salt" skulle man då kunna ställa en SQL-fråga i stil med *SELECT word FROM tabellen WHERE sortedWord = 'alst' AND word \<\> 'salt'*. Sen kan man göra diverse jobb för att få ner minnesförbrukningen (typ att man sparar en hash på det "sorterade ordet" istället för ordet självt) men det är överkurs. Permalänk: https://www.webforum.nu/p/2084384 ## #6 — dp81, 2008-02-23T02:12Z Att skapa "sortedWord" var faktiskt inte en så dum idé. Blir värre om man vill visa svar som består av två eller fler ord (tex George Bush = He bugs Gore). Permalänk: https://www.webforum.nu/p/2084499 ## #7 — dp81, 2008-02-23T02:31Z Hur gör man för att sortera ett strängvärde i bokstavsordning? Alltså göra om ordet "salt" till "alst". Permalänk: https://www.webforum.nu/p/2084500 ## #8 — dp81, 2008-02-23T02:37Z Har hittat följande, men går det inte att ordna smidigare då jag inte behöver någon split och teckengrupperingar? Permalänk: https://www.webforum.nu/p/2084501 ## #9 — spango, 2008-02-23T11:22Z Att hitta flerordsanagram är jäkligt komplicerat, men går gör det. En googlesökning på "multi-word anagram algorithm" kan kanske ge lite klarhet. Skulle gärna hjälpa till med de specifika detaljerna hur du får sorterar strängen, men vbscript är så jävla dåligt att jag undvikit att lära mig det :) Men principen är enkel, gör en array med lika många element som strängen du ska sortera, loopa över strängen och använd mid-funktionen för att plocka ut varje tecken från strängen och sen lägga det på motsvarande plats i arrayen (om strängen är "salt" är arrayen \["s", "a", "l", "t"\] nu). Sortera arrayen (googla "vbscript sort array", det eländiga språket har ingen inbyggd sorteringsfunktion) och bygg sen upp en sträng från arrayen (\["a", "l", "s", "t"\] → "alst"). Permalänk: https://www.webforum.nu/p/2084531 ## #10 — dp81, 2008-02-23T21:33Z Jag får inte till det, är det någon som kan skriva hur jag omvandlar ett strängvärde till ett annat i bokstavsordning? (salt = alst) Permalänk: https://www.webforum.nu/p/2084620 ## #11 — spango, 2008-02-23T22:15Z Jag är så sjuk att jag bestämde mig för att fräscha upp min vbs lite. För att göra en array av en sträng kan du göra en funktion som ser ut på följande vis: ``` Function str2arr(str) Dim arr, i arr = Array() Redim arr(len(str)) For i = 1 to Len(str) arr(i) = Mid(str, i, 1) Next str2arr = arr End Function ``` Från den får du en array som du måste sortera. Jag vill vara noga med att poängtera att vbscript är ett av de sämsta språken som någonsin uppfunnits, något som uppenbarar sig i att eländet inte ens har en inbyggd sorteringsfunktion. Som tur är finns Internet: Sen när du har sorterat arrayen slår du bara ihop den till en sträng igen med *join(arrayen, "")*. Kort och gott: ``` Function SortString(str) Dim arr arr = str2arr(str) ' funktionen ovan QuickSort arr, LBound(arr), UBound(arr) ' funktionen från 4guysfromrolla SortString = Join(arr, "") End Function ``` Permalänk: https://www.webforum.nu/p/2084632 ## #12 — dp81, 2008-02-23T22:29Z Stort tack! Nu funkar det! På endast 70 rader kod så kan ett strängvärde sorteras i bokstavsordning :-D Permalänk: https://www.webforum.nu/p/2084638 ## #13 — dp81, 2008-02-23T22:30Z \<% Function str2arr(str) Dim arr, i arr = Array() Redim arr(len(str)) For i = 1 to Len(str) arr(i) = Mid(str, i, 1) Next str2arr = arr End Function Sub QuickSort(vec,loBound,hiBound) Dim pivot,loSwap,hiSwap,temp '== This procedure is adapted from the algorithm given in: '== Data Abstractions & Structures using C++ by '== Mark Headington and David Riley, pg. 586 '== Quicksort is the fastest array sorting routine for '== unordered arrays. Its big O is n log n '== Two items to sort if hiBound - loBound = 1 then if vec(loBound) \> vec(hiBound) then temp=vec(loBound) vec(loBound) = vec(hiBound) vec(hiBound) = temp End If End If '== Three or more items to sort pivot = vec(int((loBound + hiBound) / 2)) vec(int((loBound + hiBound) / 2)) = vec(loBound) vec(loBound) = pivot loSwap = loBound + 1 hiSwap = hiBound do '== Find the right loSwap while loSwap \< hiSwap and vec(loSwap) \<= pivot loSwap = loSwap + 1 wend '== Find the right hiSwap while vec(hiSwap) \> pivot hiSwap = hiSwap - 1 wend '== Swap values if loSwap is less then hiSwap if loSwap \< hiSwap then temp = vec(loSwap) vec(loSwap) = vec(hiSwap) vec(hiSwap) = temp End If loop while loSwap \< hiSwap vec(loBound) = vec(hiSwap) vec(hiSwap) = pivot '== Recursively call function .. the beauty of Quicksort '== 2 or more items in first section if loBound \< (hiSwap - 1) then Call QuickSort(vec,loBound,hiSwap-1) '== 2 or more items in second section if hiSwap + 1 \< hibound then Call QuickSort(vec,hiSwap+1,hiBound) End Sub 'QuickSort Function SortString(str) Dim arr arr = str2arr(str) ' funktionen ovan QuickSort arr, LBound(arr), UBound(arr) ' funktionen från 4guysfromrolla SortString = Join(arr, "") End Function response.write SortString("testord") %\> Permalänk: https://www.webforum.nu/p/2084639 ## #14 — The_Hulk, 2008-02-24T11:58Z använd helst \[ kod \] taggen när du skriver in kod, speciellt långa kodstycken. Permalänk: https://www.webforum.nu/p/2084675 --- Tråden på webben: https://www.webforum.nu/amne/asp/169263-sök-efter-anagramer-i-ordlista