---
title: "1 ska visas som 0001, 10 som 0010 osv."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/13531-1-ska-visas-som-0001-10-som-0010-osv"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Daniel78"
published: "2002-01-03T17:36:00.000Z"
updated: "2002-01-04T08:25:00.000Z"
replies: 4
views: 247
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/13531-1-ska-visas-som-0001-10-som-0010-osv"
---

# 1 ska visas som 0001, 10 som 0010 osv.

## #1 — Daniel78, 2002-01-03T17:36Z

Hej, har stött på lite problem med sträng hanteringen. Är det någon som har någon lösning på hur man får strängen 1 att visas som 0001, 10 som 0010, 100 som 0100 osv? Siffrorna kommer ifrån databasen och fältet Post_ID, alltså ett eget ID system där jag vill att i databasen ska 1 synas men det ska visas som 0001 för användaren på en asp sida. Tack på förhand!

Permalänk: https://www.webforum.nu/p/13531

## #2 — jorgen, 2002-01-03T17:51Z

Hej, vet ej om jag fattade dig rätt:

```
Select Case rs("Post_ID")
Case 1
Text = "0001"
Case 10
Text = "0010"
Case 100
Text = "0100"
Case 1000
Text = "1000"
End Select

response.write "talet var "& Text &""
```

mvh Jörgen :)

Permalänk: https://www.webforum.nu/p/302526

## #3 — PatrikB, 2002-01-03T18:08Z

```
<%
Function AddZero(ByVal vData, ByVal vDataTotLength)
	Dim intLength
	Dim varData_tmp

	intLength = Len(vData)

	For N = (intLength + 1) TO vDataTotLength
		varData_tmp = varData_tmp & "0"
	Next

	AddZero = varData_tmp & vData
End Function

Response.Write AddZero(10,4)
%>
```

så kan du "passa in" vilken variabel som helst \<vData\> och få ut en variabel längd \<vDataTotLength\>. är variabel längden av variabeln inte lika med vDataTotLenth kommer nollor att läggas till i början.

cya,
PatrikB

Permalänk: https://www.webforum.nu/p/302527

## #4 — Stefan Holmberg, 2002-01-03T18:09Z

```
Function AC_Digits(sNumberString, nReturnLength)
	If nReturnLength > Len(sNumberString) Then
		AC_Digits = String(nReturnLength - Len(sNumberString), "0") & sNumberString
	Else
		AC_Digits = Right(sNumberString, nReturnLength)
	End If
End Function

Response.Write AC_Digits("10", 6)
```

Permalänk: https://www.webforum.nu/p/302528

## #5 — Daniel78, 2002-01-04T08:25Z

Hej! Tack för hjälpen, det fungerar precis som jag tänkt mig. Jag använde PatrikB alternativ.

Permalänk: https://www.webforum.nu/p/302529

---

Tråden på webben: https://www.webforum.nu/amne/asp/13531-1-ska-visas-som-0001-10-som-0010-osv