Re: Access vraagje

Article View: be.comp.programming

Article #15378

Back to be.comp.programming Previous Next

#15378

From: HDC
Date: Thu, 12 Oct 2000 00:00

38 lines
1572 bytes

Hoi,

Ga met een lus door elk teken in de tekenreeks.
Als het teken niet numeriek is filter het er dan uit.
Uitfilteren --> met IsNumeric kan dat of via de ASCII code.
De tekens die wel numeriek zijn plaats je steeds in een nieuwe string.

For intCount = 1 To Len(Tekst)
 strTeken= Mid$(Tekst, intCount, 1)
 If Asc(strTeken) > 47 And Asc(strTeken) < 58 Then
 ' 0 = 48 ... 9 = 57
 ' Numeriek teken --> is ok.
  strResult = strResult & strTeken
 End If
Next intCount

intNumeriek = Val(strResult)

Als er nu eens iemand mijn vraag kan beantwoorden... weinig respons helaas.


HDC

jack <hvp@pandora.be> wrote in message
news:FrTE5.2572$s31.71052@afrodite.telenet-ops.be...
> tekstveld 00-285-0005-0007 omzetten naar een numeriek resultaat laatste 8
> cijfers   000050007.
>
> Kan iemand me helpen met deze expressieopbouw.
>
> dank
>
>
> jack
>
>
>
>

Technical Details

Message-ID: <8s435b$drl$1@news.planetinternet.be>

Path: arc1-ca.pugleaf.net!unknown!not-for-mail

References: <FrTE5.2572$s31.71052@afrodite.telenet-ops.be>

Show Full Headers

Complete Article Headers

X-Google-Language: DUTCH,ASCII-7-bit
X-Google-Thread: fcea4,3472c0c47f37b20d
X-Google-Attributes: gidfcea4,public
From: "HDC" <HeliDC@int.polaris-it.be>
Subject: Re: Access vraagje
Date: 2000/10/12
Message-ID: <8s435b$drl$1@news.planetinternet.be>
X-Deja-AN: 680512279
References: <FrTE5.2572$s31.71052@afrodite.telenet-ops.be>
X-Priority: 3
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2314.1300
X-Complaints-To: abuse@planetinternet.be
X-Trace: news.planetinternet.be 971345899 14197 212.239.130.194 (12 Oct 2000 10:18:19 GMT)
Organization: Planet Internet NV
X-MSMail-Priority: Normal
NNTP-Posting-Date: 12 Oct 2000 10:18:19 GMT
Newsgroups: be.comp.programming

Reply to Parent Message