Avatar billede bocker Nybegynder
02. september 2002 - 14:41 Der 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 :)
Avatar billede mtas Nybegynder
02. september 2002 - 14:41 #1
Lytter med...
Avatar billede bocker Nybegynder
02. september 2002 - 14:43 #2
Min egen idé var egentlig at lave et array der kunne håndtere det...
Avatar billede mtas Nybegynder
02. september 2002 - 14:44 #3
Øøhh har selv tænkt på hvordan man laver dette hvis nu der er to artikler som starter med A ???
Avatar billede bocker Nybegynder
02. september 2002 - 14:48 #4
Det er jo let nok at få listen ud af databasen:

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...
Avatar billede sone Nybegynder
02. september 2002 - 15:20 #5
range() kunne måske bruges på PHP-siden
Avatar billede sone Nybegynder
02. september 2002 - 15:20 #6
Sorry... det er en PHP-kommando :(
Avatar billede bocker Nybegynder
02. september 2002 - 15:21 #7
Ja det kunne det sikkert, men det er ASP det her...
Avatar billede Dan Nim Seniormester
02. september 2002 - 15:50 #8
Prøv dette :

'============================================= 
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
'=============================================
Avatar billede bocker Nybegynder
02. september 2002 - 16:04 #9
Yes det er som det skal være :D
Avatar billede Ny bruger Nybegynder

Din løsning...

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.

Loading billede Opret Preview

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester



Seneste spørgsmål Seneste aktivitet
I går 20:46 opkaldside Af hagbartm i Mobiltelefoner
I går 16:05 win 10 vil ikke boote Af bb69 i Windows
I går 11:20 Lenovo x390 Af tobberjas i PC
I går 10:14 Alder i Excel Af Nanarsi i Excel
I går 09:00 Flere linier på faneblad Af Peder Lund Nielsen i Excel