02. september 2002 - 14:41Der er
8 kommentarer og 1 løsning
ABC liste
Jeg sidder og undrer mig lidt over, hvad der vil være den smarteste måde at lave en bogstave liste på... Bogstave listen er til en artikel sektion, hvor der skal stå A B C D E osv. og når der så er en artikel der begynder med det bogstav skal bogstavet skrives som et link.
Nogen der har nogen idéer til, hvordan man løser dette på en hurtig måde? Og den skal IKKE tage særlig mange resoucer :)
SELECT DISTINCT(LEFT(titel, 1)) as bogstav FROM artikler ORDER BY LEFT(titel, 1)
Det jeg tænkte på at gøre var at sammenligne med et array og så sætte værdien til true/false alt efter om bogstavet er i løkken, men det kræver mange checks at løbe det igennem, så jeg ville høre om der var noget der kunne løbes hurtigere igennem...
'============================================= Dim strCharList, strSelectedCharList strCharList = "#ABCDEFGHIJKLMNOPQRSTUVWXYZÆØÅ" '============================================= strSQL = "SELECT DISTINCT(Left(field-name, 1)) AS 'Char' FROM tablen ORDER BY 'Char'"
arrCharList = your-connection.Execute(strSQL).GetRows() '============================================= For intCharNumb = 0 TO UBOUND(arrCharList, 2)
strChar = UCASE(arrCharList(0, intCharNumb))
If NOT Instr(strCharList, strChar) > 0 Then strChar = "#" strSelectedCharList = strSelectedCharList & strChar Next '============================================= For intCharNumb = 1 TO LEN(strCharList)
strChar = Mid(strCharList, intCharNumb, 1)
If Instr(strSelectedCharList, strChar) > 0 Then strChar = "<A HREF=""#" & strChar & """>" & strChar & "</A>" End If
Response.Write strChar & " " Next '=============================================
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.