fjerne alt i en streng udover tallene

Ved at tænke lidt kreativ og lave en funktion som jeg har gjort.

Function NumberOnly(Str As String) As Long
    Dim xtel As Long
    Dim strR As String
    For xtel = 1 To Len(Str)
        If IsNumeric(Mid$(Str, xtel, 1)) = True Then
          strR = strR & Mid$(Str, xtel, 1)
        End If
    Next xtel
    NumberOnly = Val(strR)
End Function

denn funktion fjerne alt andet en tal, denne sætte tallene sammen til et tal, og retunere det som en long værdi. du kan selfølgi ændre dette hvis du har brug for andet.

her et lille eks.

denn knap, vil lave resulatte af dine to ekspempler.

Private Sub Command1_Click()
Dim strA As String
Dim strb As String

strA = "#¤(!""#654!#35!#""/6 "
strb = "&&&109/&%"

MsgBox strA
MsgBox strb

MsgBox NumberOnly(strA)
MsgBox NumberOnly(strb)
End Sub

-Thomas

Option Explicit

Private Sub Form_Load()
  Me.Caption = TrimTegn("#¤(!#654!#35!#/6 &&&109/&%")
End Sub

Public Function TrimTegn(strText As String) As Variant
Dim i As Long
Dim strOne As String
Dim strOut As String
  For i = 1 To Len(strText)
    strOne = Mid$(strText, i, 1)
    Select Case strOne
          Case 0 To 9
            strOut = (strOut & strOne)
    End Select
  Next
  TrimTegn = strOut
End Function

Godt nok BB.Net, men mon ikke det kan tilpasses relativt nemt til VB?

        Dim test = "#¤(!#654!#35!#/6 "

        Dim re As Regex = New Regex("[^0-9]")
        test = re.Replace(test, "")

        Console.WriteLine(test)

ved ikke nielle :), men de andres virker fint :-) .. takker for hjælpen

No prob :^)