Oversættelse fra alfanummerisk til nummerisk via ASCII

Jeg mener, at koden til oversættelse af en ascii-værdi er noget i retning af ASC()

Dette skulle virke i en forespørgsel :

Asc(Mid([AlfaVærdi];1;1)) & 0 &
IIf(Mid([AlfaVærdi];2;1)="";"00";Asc(Mid([AlfaVærdi];2;1)))

Eller i VBA:
Public Function Konverter(ByVal Kode As String) As Long
    Dim tmp As String
    tmp = Asc(Mid(Kode, 1, 1)) & 0
    If Mid(Kode, 2, 1) = "" Then
        Kode = tmp & "00"
    Else
        tmp = tmp & Asc(Mid(Kode, 2, 1))
    End If
    Konverter = Val(tmp)
End Function

Brug den således:
A = Konverter("PE")

Begge løsninger virker. Tak :o)

Hej Thomas.

Hvor meget har du mistet ved weekendens serveromlægning ?

Dennis > Tak for point

Som jeg sagde, det virker men jeg havde ikke forudset, at konverteringer kunne udløse mere en 5 cifre. Håber I vil hjælpe mig færdig med koden alligevel.

Kriterierne er følgende :

Hvis der er mere end 5 cifre, skal den tredie fjernes, altså værdien 0. I de tilfælde hvor der er 7 cifre ( eksempelvis gf ) skal også den første ciffer fjernes.

Giver det mening ?

Jensen->jeg tror, at jeg har tabt 3-5.000 point (jeg kan ikke helt huske hvormeget jeg havde før). Og så røg jeg 2 pladser ned i den samlede stilling :o(
Jeg har været ret aktiv de sidste par uger, og en masse Visual Basic- og Office-spm til 1-200 point er forsvundet :o(

Hvad med dig selv?

Dennisa->Nu ved jeg ikke hvad du bruger koden til, men du kunne overveje, at benytte hexadecimale koder i stedet for alm. decimale tal?

Jeg var faktisk ved at bevæge mig ind på Top 10 ( i Access ), mistede vel en 1100-1200 point ...;(

Dennisa->
Public Function Konverter(ByVal Kode As String) As Long
    Dim tmp As String
    tmp = Left(Asc(Mid(Kode, 1, 1)), 3)
    If Mid(Kode, 2, 1) = "" Then
        Kode = tmp & "00"
    Else
        tmp = tmp & Asc(Mid(Kode, 2, 1))
    End If
    Konverter = Val(tmp)
End Function


Jensen-> Ja, det er noget L... ! :o(

Jensen->Jeg må skuffe dig med, at du mangler 3557 point for at komme på top 10 (forudsat at andre ikke når det inden).

Kig her: http://www.eksperten.dk/pointstat.phtml?sort=&order=DESC&start=40&catid=33&date_year=0&date_month=0&date_day=0

Det er jo kun de point, som er optjent i Access, som tæller med i Access-To 10-listen :o(

Thomas > Ok, jeg troede umiddelbart at det var den samlede point score ... men alligevel, var jeg godt på vej ... ( har selv været ret aktiv på det seneste ) ;)

Jeg lavede samme fejl, da jeg i sin tid troede at jeg var klar til en 9-10. plads. Jeg skrev direkte til Eksperten og brokkede mig og truede med død og ødelæggelse, hvis de ikke fik rettet "fejlen" - de svarede mig aldrig tilbage - de har nok tænkt: "sikke en tosse!" ;o)

Dennisa->Virkede mit sidste forslag?

Thomas > din kode ( den første ) virker ikke. I de tilfælde hvor der kun er et bogstav, returneres kun tre cifre, altså ikke de sidste nuller.

Resultatet skal indgå i en IK-kodelinie, hvor antallet af cifre ikke må overstige et bestemt antal

nå ja, jeg havde lavet en skrivefejl :o( Denne skulle være bedre:

Public Function Konverter(ByVal Kode As String) As Long
    Dim tmp As String
    tmp = Left(Asc(Mid(Kode, 1, 1)), 3)
    If Mid(Kode, 2, 1) = "" Then
        tmp = tmp & "00"
    Else
        tmp = tmp & Asc(Mid(Kode, 2, 1))
    End If
    Konverter = Val(tmp)
End Function

Det blev det slet ikke bedre af. Nu fjernes den miderste, altså 0 i alle tilfælde, ikke kun dem hvor der er mere end 5 cifre. Og funktionaliteten ved 7 cifre virker ikke ( gf returneres som 103102, og ikke 03102 )

Jensen > har du en løsning ?

jamen, gf GIVER jo 103102
Hvis du bare skærer noget af, så kan du jo ikke bruge koden til noget!

både g og f har 3-cifrede ascii-kode.

Jeg kan sagtens skære cifre af, men er det virklig det, du vil?

Jeg forstår dit spørgsmål, har selv rejst problematikken i forhold til validiteten af resultatet, men det er åbentbart det som vi vil :o)

ok lad mig lige kigge på det :o)

Prøv denne:

Public Function Konverter(ByVal Kode As String) As String
    Dim tmp As String
    tmp = Left(Asc(Mid(Kode, 1, 1)) & "0", 3)
    If Mid(Kode, 2, 1) = "" Then
        tmp = Left(tmp & "000", 5)
    Else
        tmp = tmp & Asc(Mid(Kode, 2, 1))
    End If
    Konverter = Right(tmp, 5)
End Function

Konverter("op") giver altså 11112 i stedet for 111112, som den skulle.
Hvis I i stedet valgte at bruge Hex-tal, ville den hedde:
6F070 og alle oplysninger ville være der

Det virker heller ikke.

Hvis der er 7 cifre, skal første og fjerde fjernes
Hvis der er 6 cifre, skal det tredie fjernes
Hvis der er 5 cifre, skal intet fjernes

Det ser umiddelbart ud til, at 5 og 7 ciffer-kriterierne går godt, men ikke 6, hvor eksempelvis Bd returneres som 60100 og ikke 66100.

Sorry .... har lige været til møde, og desværre ikke haft mulighed for at deltage i den opgaveløsning ... men Thomas, du er vist godt på vej med en endelig løsning, så du følger den vel helt til dørs ;)

hmm, man skal jo tænke her :o)

Jeg er startet forfra, da der var kommet for mange lapper på den anden løsning:

Public Function Konverter(ByVal Kode As String) As String
    Dim A As String, B As String
    A = Asc(Mid(Kode, 1, 1))
    If Len(Kode) = 1 Then
        Konverter = Left(A & "000", 5)
    Else
        B = Asc(Mid(Kode, 2, 1))
        Select Case True
            Case Len(A) + Len(B) = 4
                Konverter = A & "0" & B
            Case Len(A) + Len(B) = 5
                Konverter = A & B
            Case Len(A) + Len(B) = 6
                Konverter = Right(A, 2) & B
        End Select
    End If
End Function

Thomas > Perfekt løsning. Du fortjener flere point. Hvordan gør jeg det ?

Det var da dejligt, at det endelig virkede :o)
Du behøver nu ikke give flere point, selvom det selvfølgelig varmer :o) Og hvis du mener det, så kan du kun gøre det ved at oprette nyt spm og skrive:

Point til Thomas Jepsen
og dette i beskrivelsen:
"Ref: http://www.eksperten.dk/spm/495580"

Løsningen blev også en anelse teknisk til sidst. Har oprettet et nyt spørgsmål :o)