anoniem Geplaatst: 21 februari 2002 Delen Geplaatst: 21 februari 2002 Wie kan mij een source geven hoe je uit een veld dat text en nummers bevat, het text gedeelte verwijderd? Quote Link naar reactie
anoniem Geplaatst: 21 februari 2002 Auteur Delen Geplaatst: 21 februari 2002 [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] Quote Link naar reactie
anoniem Geplaatst: 23 februari 2002 Auteur Delen Geplaatst: 23 februari 2002 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. Quote Link naar reactie
anoniem Geplaatst: 27 februari 2002 Auteur Delen Geplaatst: 27 februari 2002 [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. Quote Link naar reactie
Aanbevolen berichten
Om een reactie te plaatsen, moet je eerst inloggen