---
title: "Visa endast siffror"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/75028-visa-endast-siffror"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "ulf_gee"
published: "2003-04-25T12:08:08.000Z"
updated: "2003-04-25T14:27:53.000Z"
replies: 8
views: 323
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/75028-visa-endast-siffror"
---

# Visa endast siffror

## #1 — ulf_gee, 2003-04-25T12:08Z

Alltså,
Vi har en funktion som tar ut fyra tecken ur en sträng för att identifiera en viss person, men hur gör vi om denn sträng innehåller annat än siffror. 
I ett fall har vi ett exempel på en person som bara har **3** tecken långt + en extra dubbelfnutt som inte ska vara med. 
Funktionen tar alltid ut 4 tecken(i detta fall blir det 302").
Kan man skriva en funktion som kontrollerar så att strängen *inte* innehåller något annat än siffror eller finns där något annat sätt att lösa detta på?

Tackar!

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

## #2 — Vide, 2003-04-25T12:13Z

```
If Not IsNumeric( variabel ) then
'datat innehåller annat än siffror
end if
```

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

## #3 — ulf_gee, 2003-04-25T13:03Z

Naturligtvis.
Men finns där då i sådant fall något jag kan göra för att ta bort eller ersätta allt som inte är siffror in min sträng? (mer än att bara *kontrollera* att så är fallet)

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

## #4 — Vide, 2003-04-25T13:07Z

Här är en gammal funktion jag byggde för länge sedan, kanske inte optimal, men fungerande:

```
Function fixintchr(str)
	For i = 1 To Len(str)
		If Asc(Mid(str,i,1)) > Asc("0")-1 AND Asc(Mid(str,i,1)) < Asc("9")+1 then
			str2 = str2 & Mid(str,i,1)
		End If
	Next
	fixintchr = Cint(str2)
End Function
```

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

## #5 — Engine^, 2003-04-25T13:31Z

```
Function fStr2Int(str)
  objRS = New RegExp

  objRS.Global = True
  objRS.IgnoreCase = True
  objRS.Pattern = "\D"

  fStr2Int = Nz(objRS.Replace(str, ""), -1) [blue]' -1 så var det inga siffror...[/blue]
End Function
```

Denna är väl likadan, men just skriven ;)

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

## #6 — Vide, 2003-04-25T13:40Z

Vad är funktionen Nz du anropar för något?

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

## #7 — Engine^, 2003-04-25T14:13Z

```
Function Nz(test, isnullvalue)
  If IsNull(test) Or test = "" Then
    Nz = isnullvalue
  Else
    Nz = test
  End If
End Function
```

Så är den... finns inte Nz() i vbscript?

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

## #8 — ulf_gee, 2003-04-25T14:20Z

inte vad jag vet
men jag fick Vide's kod att fungera i.a.f. varför jag är mycket tacksam.
Tack!

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

## #9 — Vide, 2003-04-25T14:27Z

Nej, Nz finns inte i VBS.

> **ulf_gee skrev:**
>
> inte vad jag vet
> men jag fick Vide's kod att fungera i.a.f. varför jag är mycket tacksam.
> Tack!

Trevligt. :D

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/75028-visa-endast-siffror