Lav bogstaver til tal?

ethvert tegn er identificeret vha en numerisk værdi i en tabel

denne værdi kan findes vha

<% response.write (asc("a")) %>

lige som ethvert tegn kan udskrives vha denne numeriske værdi

<% response.write (chr(65)) %>

når du har denne værdi kan du fratrække værdien minus 1 og du vil så have bogstavets placering i rækkefølgen

<%
dim ascValue
dim pos

ascValue = asc("a")
pos = ascValue - (ascValue - 1)

response.write ( chr(ascValue) & " har position " & pos & " i alfabetet."
%>

Der gælder nogle andre regler for æøå da de ikke ligger sammen med de øvrige bogstaver.

Nu kan du komme lidt videre

du kan også lave en tabel

dim ary(28)

ary(1) = "a"
ary(2) = "b"
ary(3) = "c"
.
.
.
.
ary(26) = "æ"
ary(27) = "ø"
ary(28) = "å"

på den måde får du placeringen i alfabetet med det samme

i det øverset eksempel skal værdien der fratrækkes være 64 da A har værdien 65

<% response.write(AlphaPosition("a")) %>

<%
function AlphaPosition(char)

dim ascValue
dim pos
dim tempChar

tempChar = ucase(tempChar)
ascValue = asc(tempChar)
pos = ascValue - 64

AlphaPosition = pos

%>

<%
function AlphaPosition(char)
' funktionen returnerer et givent tegns placering
' i et dansk alfabet der har 29 bogstaver
' og ikke 28 som der står i sangen

  dim ascValue
  dim pos
  dim tempChar
 
  tempChar = ucase(Char)
 
  Select case tempChar
  case "Æ"
    pos = 27
  case "Ø"
    pos = 28
  case "Å"
    pos = 29
  case else
    ascValue = asc(tempChar)
    pos = ascValue - 64
  end select
 
  AlphaPosition = pos

end function
%>

Ok, men hvilken af kode-eksemplerne er bedst?

Jeg prøver den sidste ;)

tja - den sidste tror jeg

med et loop kan du udskrive alle pos i en streng

<%

dim counter
dim testString

testString = "abcdefghijklmnopqrstuvxyzæøå"

for counter = 1 to len(testString)

  response.write(mid(testString,counter,1) & " alfapos " & AlphaPosition(mid(testString,counter,1)) & "<br>")

next

%>

Takker mange gange - det virker jo så smukt :-D