Går det att ange vilka tecken som ska användas för en ID-räknare, så att den räknar 0-9, sen a-z, sen A-Z och sen börjar om med 00, 01 osv?


Thomas

Vet ej om det går, men en workaround skulle vara att lagra heltal och omvandla det sedan.

/Johan

Ja jag har tänkt på det jag också. Har du någon smart lösning för hur man enklast gör den konverteringen? Om man kan ange vilka tecken som ska kunna användas så är det bra, men det duger definitivt med 0-9, a-z och A-Z.


Thomas

I C# skulle du kunna göra såhär:

        private const string TillatnaTecken = "0123456789ABCDEF";

        private static string TalTillText(int Tal)
        {
            string Text = string.Empty;
            int Resterande = Tal;

            while (Resterande > 0)
            {
                int Index = (Resterande % Convert.ToInt32(Math.Pow(TillatnaTecken.Length, Text.Length + 1)) / Convert.ToInt32(Math.Pow(TillatnaTecken.Length, Text.Length)));
                Text = TillatnaTecken.Substring(Index, 1) + Text;
                Resterande -= Index * Convert.ToInt32(Math.Pow(TillatnaTecken.Length, Text.Length - 1));
            }
            return Text;
        }

        private static int TextTillTal(string Text)
        {
            int Tal = 0;

            for (int i = 0; i < Text.Length; i++)
            {
                Tal += TillatnaTecken.IndexOf(Text.Substring(Text.Length - 1 - i, 1)) * Convert.ToInt32(Math.Pow(TillatnaTecken.Length, i));
            }
            return Tal;
        }

Kanske lättare att göra om löpnummret till en alfanumerisk ID och alfanumerisk ID till löpnummer. I databasen använda en vanlig räknare som du formaterar vid visning.

Ja, det är väl det som Johan föreslog. Eller tänkte du på något annat? Du har kanske en bättre lösning?


Thomas

Jag missade Johans inlägg, Men typ något sådant.

Jag håller på och konverterar koden till vanlig ASP men jag får det inte riktigt att fungera.
<code>
Response.Write ValToText(1) & "<br>" 'Ska bli 1
Response.Write ValToText(16) & "<br>" 'Ska bli f

Function ValToText(ByVal Nr)
AllowedChars = "1234567890abcdef"
Text = ""
Rest = Nr
Do While Rest > 0
Index = (Rest Mod CInt(Len(AllowedChars) ^ (Len(Text) + 1)) / CInt(Len(AllowedChars) ^ Len(Text)))
Text = Mid(AllowedChars, Index, 1) & Text 'rad 11
Rest = Rest - (Index * CInt(Len(AllowedChars) ^ (Len(Text) -1)))
Loop
ValToText = Text
End Function
</code>

Jag får felet:
<info>
Microsoft VBScript runtime error '800a0005'

Invalid procedure call or argument: 'Mid'

/test_convert.asp, line 11
</info>

Jag trodde ett tag att felet berodde på avrundningsskillnader mellan Convert.ToInt32 och CInt men jag testade att ändra till Fix och Int och det gjorde ingen skillnad.


Thomas

När man använder Mid är första tecknet 1 och inte 0, det ska därför vara:

Mid(AllowedChars, Index - 1, 1) & Text

/Johan

Antar att du menade +1 men det hjälpte inte, då blev ValToText(1) 2 istället för 1. Nu vet jag inte vad jag har gjort för fel, men 1-15 ger rätt resultat, 16 som ska bli f orsakar samma fel.
<code>
Response.Write ValToText(1) & "<br>"
Response.Write ValToText(15) & "<br>"
Response.Write ValToText(16) & "<br>"

Function ValToText(ByVal Nr)
AllowedChars = "1234567890abcdef"
Text = ""
Rest = Nr
Do While Rest > 0
Index = (Rest Mod (Len(AllowedChars) ^ (Len(Text) + 1)) / (Len(AllowedChars) ^ Len(Text)))
Text = Mid(AllowedChars, Index, 1) & Text
Rest = Rest - (Index * (Len(AllowedChars) ^ (Len(Text) -1)))
Loop
ValToText = Text
End Function
</code>


Thomas

Givetvis menade jag +1. Anledningen till att du fick fel resultat när du gjorde så är att du har satt 0 på fel ställe i strängen. Sätt den först istället.

Text = Mid(AllowedChars, Index, 1) & Text

/Johan

<code>
Response.Write ValToText(1) & "<br>" 'Ger 1
Response.Write ValToText(15) & "<br>" 'Ger f
Response.Write ValToText(16) & "<br>" 'Ger 00000000000000000000... (oändligt tror jag)

Function ValToText(ByVal Nr)
AllowedChars = "0123456789abcdef"
Text = ""
Rest = Nr
Do While Rest > 0
Index = (Rest Mod (Len(AllowedChars) ^ (Len(Text) + 1)) / (Len(AllowedChars) ^ Len(Text)))
Text = Mid(AllowedChars, Index +1, 1) & Text
Rest = Rest - (Index * (Len(AllowedChars) ^ (Len(Text) -1)))
Loop
ValToText = Text
End Function
</code>

Resultatet blir inte helt rätt...


Thomas

Nu gissar jag vilt (utan att testa), skulle det kunna vara så att detta uttrycket evalueras i fel ordning och att det ska vara såhär istället?`

Index = (Rest Mod (Len(AllowedChars) ^ (Len(Text) + 1))) / (Len(AllowedChars) ^ Len(Text))

/Johan

Nu fungerar det! Ska påbörja jobbet med att konvertera åt andra hållet och återkommer med resultatet.


Thomas

Den andra konverteringen vill inte fungera.

<code>
Response.Write TextToVal(ValToText(1)) & "<br>"
Response.Write TextToVal(ValToText(15)) & "<br>"
Response.Write TextToVal(ValToText(16)) & "<br>"

Function ValToText(ByVal Nr)
AllowedChars = "0123456789abcdef"
Text = ""
Rest = Nr
Do While Rest > 0
Index = (Rest Mod (Len(AllowedChars) ^ (Len(Text) + 1))) / (Len(AllowedChars) ^ Len(Text))
Text = Mid(AllowedChars, Index +1, 1) & Text
Rest = Rest - (Index * (Len(AllowedChars) ^ (Len(Text) -1)))
Loop
ValToText = Text
End Function

Function TextToVal(ByVal Text)
AllowedChars = "0123456789abcdef"
Nr = 0
X = 0
Do While X < Len(Text)
X = X +1
Nr = Nr + (InStr(AllowedChars, Mid(Text, Len(Text) -1 -X, 1)) * Len(AllowedChars) ^ X) 'Rad 28
Loop
TextToVal = Nr
End Function
</code>

<info>
Microsoft VBScript runtime error '800a0005'

Invalid procedure call or argument: 'Mid'

/test_convert.asp, line 28
</info>

Jag har för mig att IndexOf och Substring fungerar lite annorlunda mot InStr och Mid och jag har försökt att justera koden för det men det blev inte bättre så jag tog bort den förändringen.


Thomas

Såhär ska det vara:

<code>
Function TextToVal(ByVal Text)
AllowedChars = "0123456789abcdef"
Nr = 0
X = 0
Do While X < Len(Text)
'msgbox Mid(Text, Len(Text) - X, 1)
'msgbox (InStr(AllowedChars, Mid(Text, Len(Text) - X, 1) - 1)
Nr = Nr + (InStr(AllowedChars, Mid(Text, Len(Text) - X, 1)) - 1) * (Len(AllowedChars) ^ X)
X = X + 1
Loop
TextToVal = Nr
End Function
</code>

/Johan

Perfekt!
Jag får tacka så mycket!


Thomas

Oops, fick visst med lite bortkommenterade debug-prylar :)

Kul att det löste sig!

/Johan