Excel VBA Supprimer des caractères Unicode dans une Chaîne de caractères

Comment puis-je supprimer tous les caractères spéciaux qui ne relèvent pas de l'ASCII catégorie en VBA?

Ce sont quelques-uns des symboles qui s'affiche dans ma chaîne, qui doivent être enlevés.
Œ Œ Œ Œ Š Š Ÿ §
Il y a beaucoup plus de tels caractères.

Ce n'appartiennent pas à l'ASCII catégorie comme vous pouvez le voir ce http://www.ascii.cl/htmlcodes.htm

J'ai essayé quelque chose comme ça

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

mais cela n'a pas fonctionné.

Merci de m'aider à résoudre ce.

Merci
Jeevan

Terminologie: Comme vous le savez, l'Unicode est un sur-ensemble de l'ASCII. Cependant, les caractères ASCII sont dans ce qu'on appelle un "bloc" n'est pas une Unicode catégorie, plus précisément le C0 Contrôles et Latin de Base bloc.

InformationsquelleAutor Jeevan | 2016-05-04

6

Serait un RegEx solution être d'intérêt pour vous?

Il y a beaucoup d'exemples pour les différentes langues sur ce site - voici un C# on: Comment pouvez-vous bande de non-ASCII des caractères à partir d'une chaîne de caractères? (en C#).

Essayez ceci pour 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 Merci beaucoup, ça fonctionne. Pas sûr de toutes conditions et de tous les caractères Unicode, mais pour l'instant il fonctionne bien. Simplement, il prend trop de temps pour le traitement.
- Si vous êtes à la conversion d'un grand nombre de chaînes, par exemple, dans une boucle, puis essayez de définir le modèle une fois et juste de l'appel de la .Replace fonction à l'intérieur de votre boucle. Qui pourraient contribuer à la vitesse.
- Merci 🙂 Ce n'est pas de réduire le temps de beaucoup, mais de toute façon, il a aidé à réduire un peu de temps.
- Est-ce à couvrir tous les caractères unicode ou 0-7F? Ce travail sera pour toutes les conditions aux limites? S'il vous plaît laissez-moi savoir.
- Il remplace tout caractère qui n'est pas dans l'Unicode plage de 0 à 127.
InformationsquelleAutor Ambie
1

Qu'obtenez-vous lorsque vous écrivez le texte suivant dans la fenêtre exécution?
```
?Replace("ŸŸŸŸ", ChrW(376), "ale")
```
J'obtiens:
alealealeale
- Oui, Il imprime la même pour moi. Je vais avoir Ÿ caractère spécial, mais lorsqu'il est passé comme une chaîne de caractères à l'intérieur de Remplacer la méthode strName = Replace(strName, ChrW(376), " "), où strName est d'abord ŸLPAIF devient ?LPAIF. Cette chaîne va ensuite à l'écriture du fichier de la méthode, où le code se bloque en disant: "erreur d'Exécution '5' Invalid argument ou appel de procédure". Je pense que ? nouvellement produite est également pas un simple point d'interrogation, mais certains caractères spéciaux. Je veux remplacer ma chaîne dynamique, pas statique comme "ŸŸŸŸ" vous avez montré.
- Salut, je pense que c'est de travailler en Debug.Imprimer, mais lors de l'utilisation de la valeur réelle de la cellule où Ÿ est présent, il ne le fait pas.
InformationsquelleAutor Vityata
0

essayer application.clean()

il va supprimer tous les caractères non imprimables
- Pouvez-vous svp me donner un exemple pour elle. Je ne suis pas en mesure de trouver n'importe quelle application.clean() dans l'insertion automatique de code en vba.
- Veuillez jeter un oeil à ce espace de travail.co/FtkoMrB.png j'ai aussi essayé "strName = Clean(strName)" et ils n'ont pas de travail.
- Essayez-le avec l'Application.WorksheetFunction.Propre("üäöaŠsd"). Mais il ne vous aidera pas, c'est uniquement pour les caractères non-imprimables. Et la vôtre sont imprimables.
- Vous êtes de droite. C'est juste un test pour voir si vous êtes en accordant une attention xD 😛 Mais @Jeevan .clean existent sous worksheetfunction mais il peut aussi être appelé sous application. Je vais juste laisser la réponse ici pour référence.
- Je n'ai pas d'obtenir exactement ce que vous voulez dire. L'application".propre" ne montre pas avec Intellisense, mais avec une application".worksheetfunction.propre", il est là.
- voir ce answers.microsoft.com/en-us/office/forum/office_2003-customize/...
- Cela aussi je l'ai essayé, mais n'a pas de travail.
InformationsquelleAutor Rosetta
0

En supposant que vous avez:

Ensuite le code suivant obtiendrez la String de A1 et de laisser passer uniquement les ANSI (code 0 à 255) en 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
```
- Salut, j'ai essayé ce code, et il a remplacé Ÿ avec une ? dans la sortie. Qui ne s'est toujours pas à résoudre le problème.
- Je pense que lors de la lecture elle-même Ÿ est lu comme ? par excel. Ÿ est de toute façon invisible dans la feuille excel.
- Comme vous le voyez sur ma photo, à la "Cette Œ est œ un Š testš . Ÿ § Blubb." est le contenu réel de ma feuille. Avec ce que mon code fonctionne exactement comme je l'ai décrit. Où voyez-vous la "Ÿ" qui est ensuite pas visible dans la feuille?
- Je vois Ÿ quand j'ai copier coller de cette chaîne à partir de la cellule excel à un bloc-notes. Merci d'essayer de l'aider. Nous avons une solution maintenant, Ambie. Merci pour vos efforts.
InformationsquelleAutor Axel Richter
0

Essayer avec ci-dessous
```
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
```
- Je suis à l'aide de quelque chose de similaire, mais la moto de mon code n'est pas cela. Il doit permettre à des caractères spéciaux qui sont en ASCII, mais seulement de supprimer des caractères spéciaux qui ne vient pas sous le code ASCII de 0 à 255.
- pouvez vous s'il vous plaît me montrer votre chaîne?
- Ma Chaîne se présente comme LPAIF dans la feuille excel, mais il y a un Ÿ char caché dans l'avant qui n'est pas visible dans excel, mais il existe, de sorte que la chaîne est ŸLPAIF. Certaines solutions données ci-dessus a travaillé quand j'ai donné "ŸLPAIF" comme une chaîne statique, mais pas lors de la lecture à partir d'excel directement. De toute façon, nous avons une solution maintenant, merci d'essayer de l'aider.
InformationsquelleAutor Karthick Gunasekaran

N'avez pas besoin de boucle de chaque personnage

Peut-être la fin, mais peut-être que ça aide quelqu'un:

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

Vous devez vous connecter pour publier un commentaire.