VBA conversie probleem

[anoniem]

Wie kan mij een source geven hoe je uit een veld dat text en nummers bevat, het text gedeelte verwijderd?

[anoniem]

[quote:89c0fc1bce] Op 21-02-2002 16:27, schreef J2K: Wie kan mij een source geven hoe je uit een veld dat text en nummers bevat, het text gedeelte verwijderd? [/quote:89c0fc1bce] Uit een tekstveld in een formulier: [code:1:89c0fc1bce] Sub VerwijderTekst() Dim i as Integer Dim sResult as String For i = 1 To Len(<textboxnaam>.Text) If IsNumeric(Mid$(<textboxnaam>.Text,i,1)) Then sResult = sResult & Mid$(<textboxnaam>.Text,i,1) End If Next MsgBox sResult End Sub [/code:1:89c0fc1bce]

[anoniem]

De code van Eddi is mooi. Maar misschien wil je wel gewoon alleen de numerieke waarde van een string-veld hebben dacht ik. Dan kun je gewoon Val($string) gebruiken. Deze functie stopt met inlezen van de string totdat een niet-numeriek karakter is gevonden en geeft vervolgens het gevonden deel als getal terug.

[anoniem]

[quote:04bdcb1fc7] Op 23-02-2002 15:06, schreef greffov: De code van Eddi is mooi. [/quote:04bdcb1fc7] Dank je wel [quote:04bdcb1fc7] Dan kun je gewoon Val($string) gebruiken. Deze functie stopt met inlezen van de string totdat een niet-numeriek karakter is gevonden en geeft vervolgens het gevonden deel als getal terug. [/quote:04bdcb1fc7] En dan krijg je dus 0 terug als de tekst begint met een letter.