Wie Entferne ich das Zeichen?

Wie kann ich entfernen, Sonderzeichen und Buchstaben in einem string ?

 qwert1234*90)!  ' this might be my cell value

Muss ich es konvertieren zu

 123490  ' I mean I have to remove everything but keep only the numbers in string

aber es sollte ermöglichen Räume !

 qwe123 4567*. 90  ' String with spaces
 123 4567 90     ' output should be

Fand ich die vba Replace - aber das schreiben eines ersetzen, das für jedes Zeichen macht mein code groß. Nun lassen Sie mich Ihnen sagen, klar ohne sich zu verstecken etwas von Ihnen:

  1. Eingang: qwe123 4567*. 90 ' String mit Leerzeichen Zellen(1,"A").Wert
  2. Meine Idee, das zu tun diese weiter: 123 4567 90 ' entfernen Sie die Zeichen zuerst halten weiße Räume
  3. endgültige Ausgabe in A1:A3

    123
    4567
    90

(für jeden Raum sollte es Zeile einfügen und ausfüllen)

Könnten Sie mir sagen, wie entfernen Sie alle Zeichen außer zahlen und Leerzeichen im string?

Vielen Dank Im Voraus

InformationsquelleAutor niko | 2011-09-12

  1. 12

    Müssen Sie einen regulären Ausdruck verwenden.

    Diesem Beispiel sehen:

    Option Explicit

Sub Test()
    Const strTest As String = "qwerty123 456 uiops"
    MsgBox RE6(strTest)
End Sub

Function RE6(strData As String) As String
    Dim RE As Object, REMatches As Object

    Set RE = CreateObject("vbscript.regexp")
    With RE
        .MultiLine = False
        .Global = True
        .IgnoreCase = True
        .Pattern = "([0-9]| )+"   
    End With

    Set REMatches = RE.Execute(strData)
    RE6 = REMatches(0)

End Function

    Erklärung:

    Pattern = "([0-9]| )+" wird keine übereinstimmung mit 0 oder mehr Gruppen (+) mit einer Zahl ([0-9]) oder (|) ein Raum ().

    Ein paar mehr Infos auf die regexp:

    +1 ich Liebe eine gute Erklärung.
    Corbett: danke!
    +1 gute Sachen, JMax
    Wie kann das sein, die akzeptierte Antwort? Es ist nicht einmal Arbeit mit dem Beispiel strings OP zur Verfügung gestellt.
    es arbeitet nach dem Beispiel, das ich gab, und wenn es akzeptiert wurde, ist es wahrscheinlich für die OP. Tatsächlich, die . und * machen, das WIEDER zu stoppen, so dass, wenn Sie wollte, um dies zu vermeiden, könnte man hinzufügen, eine replace vor der Ausführung der RE

    InformationsquelleAutor JMax

  2. 9

    Nicht-re alternative;

    Public Function fmt(sValue As String) As String
    Dim i As Long
    For i = 1 To Len(sValue) '//loop each char
        Select Case Mid$(sValue, i, 1) '//examine current char
            Case "0" To "9", " " '//permitted chars
               '//ok
            Case Else
               Mid$(sValue, i, 1) = "!" '//overwrite char in-place with "!"
        End Select
    Next
    fmt = Replace$(sValue, "!", "") '//strip invalids & return
End Function

    Für:

    ?fmt("qwe123 4567*. 90") 
123 4567 90
    Streifen Sie die unerwünschten Zeichen (schöne Arbeit mit der LHS MITTE), aber doesnt gehen Sie zum nächsten Schritt, um den sub-strings in absteigender Zellen

    InformationsquelleAutor Alex K.

  3. 4

    Diese zwei komischen codes zu tun, die beide Ihre Wünsche..

    Sub MySplitter(strInput As String)
    Row = 10  ' Start row
    Col = "A" ' Column Letter
    Range(Col & Row) = ""   ' Clean the start cell
    For i = 1 To Len(strInput)  ' Do with each Character in input string...
        c = Mid(strInput, i, 1) ' Get actual char
        If IsNumeric(c) Then Range(Col & Row) = Range(Col & Row) & c ' If numeric then append to actual cell
        If (c = " ") And (Range(Col & Row) <> "") Then 'If space and actual row is not empty then...
            Row = Row + 1           ' Jump to next row
            Range(Col & Row) = ""   ' Clean the new cell
        End If
    Next
End Sub

Function KeepNumbersAndSpaces(ByVal strInput As String)
    For i = 1 To Len(strInput)  ' Do with each Character in input string...
        c = Mid(strInput, i, 1) ' Get actual char
        If IsNumeric(c) Or c = " " Then ' If numeric or a space then append to output
            KeepNumbersAndSpaces = KeepNumbersAndSpaces & c
        End If
    Next
End Function

Sub Test()
    strInput = "qwert1234*90)! qwe123 4567*. 90"
    MySplitter (strInput)
    Range("A5") = KeepNumbersAndSpaces(strInput)
End Sub

    InformationsquelleAutor Aziz

  4. 2

    Soetwas zu

    • split den string mit einem regexp
    • Ort der matches in einem array
    • dump das array auf eine Größe automatisch tabellenblattbereich

    sub main

    Sub CleanStr()
Dim strOut As String
Dim Arr
strOut = Trim(KillChar("qwe123 4567*. 90 "))
Arr = Split(strOut, Chr(32))
[a1].Resize(UBound(Arr) + 1, 1) = Application.Transpose(Arr)
End Sub

    Funktion

    Function KillChar(strIn As String) As String
Dim objRegex As Object
Set objRegex = CreateObject("vbscript.regexp")
    With objRegex
        .Global = True
        .Pattern = "[^\d\s]+"
        KillChar = .Replace(strIn, vbNullString)
    End With
End Function

    InformationsquelleAutor brettdj

Schreibe einen Kommentar