Excel-VBA Entfernen, Unicode-Zeichen in einem String

Wie kann ich entfernen Sie alle Sonderzeichen, die nicht fallen unter ASCII-Kategorie in VBA?

Diese sind einige der Symbole, die angezeigt wird in meinem string, die beseitigt werden müssen.
Œ Œ Š Š Ÿ ƒ
Es gibt viele weitere solcher Zeichen.

Diese gehören nicht zum ASCII-Kategorie, wie Sie sehen können, diese http://www.ascii.cl/htmlcodes.htm

Habe ich versucht, etwas wie dieses

strName = Replace(strName, ChrW(376), " ")

aber es hat nicht funktioniert.

Mir bitte helfen, diese zu lösen.

Dank
Jeevan

Terminologie: Wie Sie wissen, Unicode ist eine Obermenge von ASCII. Aber die ASCII-Zeichen sind, was als "block" nicht ein Unicode-Kategorie, insbesondere von C0 Controls and Basic Latin - block.

InformationsquelleAutor Jeevan | 2016-05-04

6

Wäre ein RegEx Lösung für Sie von Interesse sein?

Gibt es viele Beispiele für die verschiedenen Sprachen, die auf dieser Website - hier ist ein C#: Wie kann man Streifen nicht-ASCII-Zeichen aus einem string? (in C#).

Versuchen, diese für VBA:
```
Private Function GetStrippedText(txt As String) As String
    Dim regEx As Object

    Set regEx = CreateObject("vbscript.regexp")
    regEx.Pattern = "[^\u0000-\u007F]"
    GetStrippedText = regEx.Replace(txt, "")

End Function
```
Hey vielen vielen Dank, es funktioniert. Nicht sicher, dass alle Bedingungen und alle speziellen Unicode-Zeichen, aber jetzt funktioniert es gut. Es dauert einfach zu viel Zeit für die Verarbeitung.
Wenn Sie konvertieren, viele Saiten, wie zB in einer Schleife, dann versuchen Sie definieren das Muster einmal und nur den Aufruf der .Replace - Funktion innerhalb der Schleife. Das könnte helfen, mit Geschwindigkeit.
Danke 🙂 , nicht reduzieren die Zeit viel, aber trotzdem half es zu reduzieren ein wenig Zeit.
Dies tut decken alle unicode oder nur 0 bis 7F? Wird diese Arbeit für alle Randbedingungen? Bitte lassen Sie mich wissen.
Es ersetzt alle Zeichen, die nicht im Unicode-Bereich von 0 bis 127.

InformationsquelleAutor Ambie
1

Was bekommen Sie, wenn Sie schreiben Sie das folgende in das Direktfenster?
```
?Replace("ŸŸŸŸ", ChrW(376), "ale")
```
Bekomme ich:
alealealeale

Ja, Es druckt mir das gleiche. Ich bin mit Ÿ als speziellen Charakter, aber wenn die als Zeichenfolge übergeben innen Ersetzen-Methode strName = Replace(strName, ChrW(376), " "), wo strName ist zunächst ŸLPAIF wird ?LPAIF. Dieser string geht dann ein schreiben einer Datei die Methode, wo der code abstürzt sagen: "Laufzeitfehler '5' Ungültiger Prozeduraufruf oder ungültiges argument". Ich denke, dass ? neu produziert wird, wird auch nicht mit einem normalen Fragezeichen, aber einige Sonderzeichen. Ich will wieder in meine dynamischen string, nicht in einer statischen als "ŸŸŸŸ", die Sie gezeigt haben.
Hallo, ich denke, es ist ein arbeiten in Debug.Drucken aber, wenn über den tatsächlichen Wert aus Zelle Ÿ vorhanden ist, es nicht tun.

InformationsquelleAutor Vityata
0

versuchen application.clean()

es entfernt alle nicht druckbaren Zeichen

Können Sie mir bitte ein Beispiel dafür. Ich bin nicht in der Lage zu finden keine Anwendung.clean() in der autotext-code in vba.
Bitte werfen Sie einen Blick auf dieses "Arbeitsbereich".co/FtkoMrB.png ich habe auch versucht, "strName =" Clean(strName)" und Sie hat nicht funktioniert.
Versuchen Sie es mit der Anwendung.WorksheetFunction.Säubern("üäöaŠsd"). Aber es wird dir nicht helfen, es ist nur für nicht-druckbare Zeichen. Und die euren sind bedruckbar.
Du hast Recht. Dies ist nur ein test, um zu sehen, wenn Sie aufmerksam sind xD 😛 Aber @Jeevan .clean existieren unter worksheetfunction aber es kann auch aufgerufen werden unter application. Ich werde nur lassen Sie die Antwort hier zur Referenz.
Ich wusste nicht genau, was du meinst. "Anwendung.sauber" nicht-show mit Intellisense, aber mit "Anwendung.worksheetfunction.sauber" es dort ist.

InformationsquelleAutor Rosetta
0

Angenommen, dass Sie haben:

Dann den folgenden code erhalten String aus A1 und lassen sich nur über ANSI (code 0 bis 255) in A2.
```
Sub test()
 Dim s1 As String, s2 As String, c As String, i As Long, iAsc As Integer

 s1 = Range("A1").Value

 s2 = ""

 For i = 1 To Len(s1)
  c = Mid(s1, i, 1)
  iAsc = AscW(c)
  If iAsc <= 255 Then
   s2 = s2 & c
  End If
 Next

 Range("A2").Value = s2

End Sub
```
Hi, ich habe versucht, diesen code, und es ersetzt Ÿ mit ein ? in der Ausgabe. Die immer noch nicht das Problem zu lösen.
Ich denke, beim Lesen selbst Ÿ liest sich wie ? von excel. Ÿ ist sowieso unsichtbar im excel-Blatt.
Wie Sie sehen in meinem Bild, die "Das Œ ist œ ein W testš . Ÿ ƒ Blubb." ist der eigentliche Inhalt meiner Platte. Mit diesem meinem code funktioniert genau so, wie ich es beschrieben habe. Wo sehen Sie das "Ÿ" ist dann nicht sichtbare auf dem Blatt?
Ich sehe, Ÿ wenn ich kopieren und einfügen, dass der string aus der excel-Zelle auf einem Notizblock. Vielen Dank für den Versuch zu helfen. Wir haben jetzt eine Lösung, Ambie. Vielen Dank für Ihre Bemühungen.

InformationsquelleAutor Axel Richter
0

Versuchen mit unten
```
Function ClearUnwantedString(fulltext As String) As String
    Dim output As String
    Dim character As String
    For i = 1 To Len(fulltext)
        character = Mid(fulltext, i, 1)
        If (character >= "a" And character <= "z") Or (character >= "0" And character <= "9") Or (character >= "A" And character <= "Z") Then
            output = output & character
        End If
    Next
    ClearUnwantedString = output
End Function

Sub test()
    a = ClearUnwantedString("dfjŒœŠdskl")
End Sub
```
Ich benutze etwas ähnliches, aber das moto von meinem code ist das nicht. Damit soll die Besondere Zeichen, die ASCII -, sondern entfernen Sie nur Sonderzeichen, welche nicht unter ASCII-code von 0 bis 255.
können Sie bitte zeigen Sie mir Ihren string?
Mein String sieht wie LPAIF excel-sheet, aber es ist ein Ÿ char versteckt in der front, die nicht sichtbar in excel, aber es existiert, so wird die Zeichenfolge ŸLPAIF. Einige Lösungen gegeben oben gearbeitet, wenn ich habe "ŸLPAIF" als einen statischen string, aber nicht, wenn man Sie aus excel direkt. Jedenfalls haben wir jetzt eine Lösung, danke für den Versuch zu helfen.

InformationsquelleAutor Karthick Gunasekaran

Nicht brauchen, um in einer Schleife jedes Zeichen

Vielleicht zu spät, aber vielleicht hilft es ja jemandem:

Public Function StripNonAsciiChars(ByVal InputString As String) As String
    Dim i As Integer
    Dim RegEx As Object
    Set RegEx = CreateObject("VBScript.RegExp")
    With RegEx
        .Global = True
        .MultiLine = True
        .IgnoreCase = True
        .Pattern = "[^\u0000-\u007F]"
        StripNonAsciiChars = Application.WorksheetFunction.Trim(RegEx.Replace(InputString, " "))
    End With
End Function

InformationsquelleAutor Sorin GFS

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.