[RESOLVED] find and list only letters/numbers in string

[meopilite]

if a string has letters, numbers, and other characters, such as "N23@xa1#P4a!", can the other characters be removed and the letters/numbers be listed in a multi-line textbox such as below;

N23
xa1
P4a

I've been messing around with InString and Mid functions, but cant come up with a practical way to do it.
I can easily remove the other characters from a string, but how to list the others is getting tricky.

I'm going to try Replacing the other characters with a KeyAscii Enter code and then send the string to the multi-line textbox. (not sure if that will work????)

Any other ideas?

[meopilite]

Well, that worked...

Text2.Text = Replace$(Text1.Text, "@", vbCrLf)

[sergeos]

Try this code.

Public Function TrimNonNumeric(ByVal strData As String) As String
    Const NUMERIC_CHARS = "0123456789ABC"   '<-TYPE ALL NEEDED CHARS
    Dim lThisChar   As Long
    Dim sTemp       As String
    Dim bAdd         As Boolean
    
    For lThisChar = 1 To Len(strData)
        If InStr(1, NUMERIC_CHARS, Mid$(strData, lThisChar, 1)) > 0 Then
            sTemp = sTemp & Mid$(strData, lThisChar, 1)
        Else
            bAdd = True
            'If sTemp <> vbNullString Then Exit For
        End If
        If bAdd Or Len(sTemp) > 0 Then
                TextBox1.Text = TextBox1.Text & sTemp & vbCrLf
                bArr = False
                sTemp = vbNullString
        End If
    Next
    TrimNonNumeric = sTemp
End Function

[Elroy]

Here's a couple of generic routines I have. I'm not going to say they're the fastest way to get it done, but they work:

Public Function sFilter(sString As String, sAllowed As String) As String
    ' This filters all but the characters in sAllowed from the sString string.
    Dim sOut As String
    Dim s As String * 1
    Dim i As Integer
    '
    For i = 1 To Len(sString)
        s = mid(sString, i, 1)
        If InStr(sAllowed, s) <> 0 Then sOut = sOut & s
    Next i
    sFilter = sOut
    '
End Function

Public Function sFilterNonAlphaNumeric(sString As String) As String
    ' Leaves upper and lower case in tact.
    Dim s As String
    s = "1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
    sFilterNonAlphaNumeric = sFilter(sString, s)
End Function

Public Function sFilterNonPrintable(sString As String) As String
    Dim i As Long
    Static sAllowed As String
    '
    If Len(sAllowed) = 0 Then
        For i = 32 To 126
            sAllowed = sAllowed & Chr$(i)
        Next i
    End If
    sFilterNonPrintable = sFilter(sString, sAllowed)
End Function

[meopilite]

is there an Insert keyword for vb6? Say i want to insert the letter 'T' at position 5 in a textbox. That textbox may already have something in it, like 'We won the football game.' I'd want the letter 'T' to be inserted at the 5th character -> 'We wTon the football game.'

[LaVolpe]

is there an Insert keyword for vb6?

Text1.SelStart = n-1
Text1.SelLength = 0
Text1.SelText = new text