---
title: "Villkor för artikelnummer"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/138610-villkor-för-artikelnummer"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "devotion"
published: "2005-12-01T21:53:21.000Z"
updated: "2005-12-01T23:49:09.000Z"
replies: 10
views: 356
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/138610-villkor-för-artikelnummer"
---

# Villkor för artikelnummer

## #1 — devotion, 2005-12-01T21:53Z

:e Hej!

Hur får jag till följande pseudokod:

```
If sArticleNr = "en GRUPP om SJU SIFFROR" response.write "Enummer" else response.write "artikelnummer"
```

sArticlenNr kan vara siffror och bokstäver därav sträng.

Mvh
Henrik

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

## #2 — emission, 2005-12-01T22:13Z

```

Function IsEnumber(stringToTest)
   Dim m_objRxp
   Set m_objRxp=New RegExp
   m_objRxp.Pattern="^\d{7}$"
   IsEnumber=m_objRxp.Test(stringToTest)
   Set m_objRxp=Nothing
End Function
```

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

## #3 — devotion, 2005-12-01T22:16Z

:)

Tackar!

Men hur använder jag den....

Min sträng heter ju strEnumber och det är väl den som ska ersätta "stringToTest"

men hur använder jag den i mitt villkor fäör att skriva ut olika saker beronde på om villkoret uppfylls eller ej.. är lite trög just nu.... sorry

Mvh
Henrik

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

## #4 — Jesper T, 2005-12-01T22:23Z

```
Function IsEnumber(nr)
    If isnumeric(nr) and len(nr) = 7 then isEnumber = true else isEnumber = false
End Function
```

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

## #5 — Jesper T, 2005-12-01T22:25Z

```
If IsEnumber(sArticleNr) then 
    response.write "Enummer" 
else 
    response.write "artikelnummer"
end if
```

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

## #6 — devotion, 2005-12-01T22:35Z

Det är ju fantastiskt!

Tack emission och Jesper T!

Mvh
Henrik

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

## #7 — Erik Juhlin, 2005-12-01T22:51Z

Varför ha en If-sats?

```
Function IsEnumber(nr)
	IsEnumber = (IsNumeric(nr) And Len(nr) = 7)
End Function
```

Dock skulle jag rekommendera emissions funktion eftersom att den inte släpper igenom decimaltecken, minustecken och bokstäver. Men jag skulle dock skrivit så här:

```
Function IsEnumber(stringToTest)
	With New RegExp
		.Pattern="^\d{7}$"
		IsEnumber = .Test(stringToTest)
	End With
End Function
```

 :)

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

## #8 — devotion, 2005-12-01T23:07Z

:)
Kanske lite snyggare... Jag vet inget om funktionen dock!

Varför skulle du skriva så, Erik? (förutom att den kanske är snyggare...)

Mvh
Henrik

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

## #9 — Erik Juhlin, 2005-12-01T23:14Z

Är ingen skillnad mot emissions kod. Bara jag som tycker det är trevligt med mindre kod och jag tycker det blir lite tydligare.
Men där handlar med mest om tycke och smak.

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

## #10 — devotion, 2005-12-01T23:18Z

Okidoki!

Mvh
Henrik

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

## #11 — emission, 2005-12-01T23:49Z

Eriks kod är helt klart snyggare, så kör på den! :)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/138610-villkor-för-artikelnummer