去除特殊字符

如何解决去除特殊字符

我这里有一个用于excel的VB代码,该代码删除了特殊字符。我的问题是为什么要删除某些特殊字符,例如c列中的某些特殊字符没有更改或被删除。

代码:

Sub Invalid()



    Dim e

    For Each e In Array("–","€","â","¦","Â","®","®","—","Ã","ña","±a","¡c","±","'","–","ó","​","…","®","‹")

        If e Like "[–]" Then
            Columns("a").Replace "–",""
            Columns("b").Replace "–",""
            Columns("c").Replace "–",":"
            Columns("d").Replace "–",""
            Columns("e").Replace "–",":"
       Else
       
        If e Like "[ó]" Then
            Columns("a").Replace "ó",""
            Columns("b").Replace "ó",""
            Columns("c").Replace "ó","o"
            Columns("d").Replace "ó",""
            Columns("e").Replace "ó",""
       Else
       
         If e Like "[ña]" Then
            Columns("a").Replace "ña",""
            Columns("b").Replace "ña",""
            Columns("c").Replace "ña",""
            Columns("d").Replace "ña",""
            Columns("e").Replace "ña",""
       Else
       
         If e Like "[​]" Then
            Columns("a").Replace "​",""
            Columns("b").Replace "​",""
            Columns("c").Replace "​",""
            Columns("d").Replace "​",""
            Columns("e").Replace "​",""
       Else
       
         If e Like "[…]" Then
            Columns("a").Replace "…",""
            Columns("b").Replace "…",""
            Columns("c").Replace "…",""
            Columns("d").Replace "…",""
            Columns("e").Replace "…",""
       Else
         If e Like "[®]" Then
            Columns("a").Replace "®",""
            Columns("b").Replace "®",""
            Columns("c").Replace "®",""
            Columns("d").Replace "®",""
            Columns("e").Replace "®",""
      Else
      
         If e Like "[€]" Then
            Columns("a").Replace "€",""
            Columns("b").Replace "€",""
            Columns("c").Replace "€",""
            Columns("d").Replace "€",""
            Columns("e").Replace "€",""
      Else
      
         If e Like "[â]" Then
            Columns("a").Replace "â",""
            Columns("b").Replace "â",""
            Columns("c").Replace "â",""
            Columns("d").Replace "â",""
            Columns("e").Replace "â",""
      Else
      
         If e Like "[¦]" Then
            Columns("a").Replace "¦",""
            Columns("b").Replace "¦",""
            Columns("c").Replace "¦",""
            Columns("d").Replace "¦",""
            Columns("e").Replace "¦",""
      Else
      
         If e Like "[Â]" Then
            Columns("a").Replace "Â",""
            Columns("b").Replace "Â",""
            Columns("c").Replace "Â",""
            Columns("d").Replace "Â",""
            Columns("e").Replace "Â",""
      Else
      
         If e Like "[®]" Then
            Columns("a").Replace "®",""
            Columns("b").Replace "®",""
            Columns("c").Replace "®",""
            Columns("d").Replace "®",""
            Columns("e").Replace "®",""
      Else
      
         If e Like "[®]" Then
            Columns("a").Replace "®",""
            Columns("b").Replace "®",""
            Columns("c").Replace "®",""
            Columns("d").Replace "®",""
            Columns("e").Replace "®",""
      Else
      
         If e Like "[—]" Then
            Columns("a").Replace "—",""
            Columns("b").Replace "—",""
            Columns("c").Replace "—",""
            Columns("d").Replace "—",""
            Columns("e").Replace "—",""
      Else
      
         If e Like "[Ã]" Then
            Columns("a").Replace "Ã",""
            Columns("b").Replace "Ã",""
            Columns("c").Replace "Ã",""
            Columns("d").Replace "Ã",""
            Columns("e").Replace "Ã",""
      Else
      
         If e Like "[±a]" Then
            Columns("a").Replace "±a",""
            Columns("b").Replace "±a",""
            Columns("c").Replace "±a",""
            Columns("d").Replace "±a",""
            Columns("e").Replace "±a",""
      Else
      
         If e Like "[¡c]" Then
            Columns("a").Replace "¡c",""
            Columns("b").Replace "¡c",""
            Columns("c").Replace "¡c",""
            Columns("d").Replace "¡c",""
            Columns("e").Replace "¡c",""
      Else
      
         If e Like "[±]" Then
            Columns("a").Replace "±",""
            Columns("b").Replace "±",""
            Columns("c").Replace "±",""
            Columns("d").Replace "±",""
            Columns("e").Replace "±",""
      Else
      
         If e Like "[']" Then
            Columns("a").Replace "'",""
            Columns("b").Replace "'",""
            Columns("c").Replace "'",""
            Columns("d").Replace "'",""
            Columns("e").Replace "'",""
        Else
        
        If e Like "[–]" Then
            Columns("a").Replace "–",""
            Columns("b").Replace "–",""
            Columns("c").Replace "–",""
            Columns("d").Replace "–",""
            Columns("e").Replace "–",""
        Else
        
        If e Like "[‹]" Then
            Columns("a").Replace "‹",""
            Columns("b").Replace "‹",""
            Columns("c").Replace "‹",""
            Columns("d").Replace "‹",""
            Columns("e").Replace "‹",""

    Else
        
        If e Like "[–]" Then
            Columns("a").Replace "–",":"
            Columns("d").Replace "–",""
        


End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
Next


End Sub

解决方法

更短:

Sub Invalid()

    Dim e

    For Each e In Array("–","€","â","¦","Â","®","®","—",_
                        "Ã","ña","±a","¡c","±","'","–","ó",_
                        "​","…","®","‹")

        Select Case e
            Case "–"
                Range("A1:B1,D1").EntireColumn.Replace e,""
                Range("C1,E1").EntireColumn.Replace e,":"
            Case "ó"
                Range("A1:B1,D1:E1").EntireColumn.Replace e,""
                Range("C1").EntireColumn.Replace e,"o"
            Case "–"
                Range("A1:B1,":"
            Case Else
                Range("A:E").Replace e,""
        End Select
    Next e

End Sub
,

很久以前,我发现了一个函数(我认为)可以更好地实现您想要的功能:

Public Function RepLetters(txt As String) As String
 
Dim SAcentos As String
Dim SSemAcentos As String
Dim STemp As String
Dim i As Long

'All letters to be replaced
SAcentos = "àáâãäèéêëìíîïòóôõöùúûüÀÁÂÃÄÈÉÊËÌÍÎÒÓÔÕÖÙÚÛÜçÇñÑ"
  
'Letters to replace on
SSemAcentos = "aaaaaeeeeiiiiooooouuuuAAAAAEEEEIIIOOOOOUUUUcCnN"
  
'sTemp is the received string
STemp = text
  
' Loop through every letter of 'sAcentos' and replace by
' corresponding letter in 'sSemAcentos'
For i = 1 To Len(SAcentos)
    STemp = Replace(STemp,Mid$(SAcentos,i,1),Mid$(SSemAcentos,1))
Next i
  
'return new string
RepLetter = STemp
  
End Function

您将需要调整sAcentossSemAcentos以满足您的需求。此功能也可以直接在电子表格上调用。

版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。

相关推荐


Selenium Web驱动程序和Java。元素在(x,y)点处不可单击。其他元素将获得点击?
Python-如何使用点“。” 访问字典成员?
Java 字符串是不可变的。到底是什么意思?
Java中的“ final”关键字如何工作?(我仍然可以修改对象。)
“loop:”在Java代码中。这是什么,为什么要编译?
java.lang.ClassNotFoundException:sun.jdbc.odbc.JdbcOdbcDriver发生异常。为什么?
这是用Java进行XML解析的最佳库。
Java的PriorityQueue的内置迭代器不会以任何特定顺序遍历数据结构。为什么?
如何在Java中聆听按键时移动图像。
Java“Program to an interface”。这是什么意思?
Java在半透明框架/面板/组件上重新绘画。
Java“ Class.forName()”和“ Class.forName()。newInstance()”之间有什么区别?
在此环境中不提供编译器。也许是在JRE而不是JDK上运行?
Java用相同的方法在一个类中实现两个接口。哪种接口方法被覆盖?
Java 什么是Runtime.getRuntime()。totalMemory()和freeMemory()?
java.library.path中的java.lang.UnsatisfiedLinkError否*****。dll
JavaFX“位置是必需的。” 即使在同一包装中
Java 导入两个具有相同名称的类。怎么处理?
Java 是否应该在HttpServletResponse.getOutputStream()/。getWriter()上调用.close()?
Java RegEx元字符(。)和普通点?