VBA 正则表达式 替换网页复制的空白字符,替换不掉

zpy2

Cavan2022 发表于 2024-10-27 20:48
[\s] 等价于 [ \f\n\r\t\v],这样不行.
估计是字符集的问题,VBA运行时,网页复制的空白字符,在程序运行时 ...

Sub RemoveNonBreakingSpaces()
    Dim inputString As String
    Dim regex As Object
    Dim cleanedString As String

    ' Example input string with non-breaking spaces
    inputString = "This is an example string with non-breaking space: " & ChrW(&H00A0) & "and here."

    ' Create a new RegExp object
    Set regex = CreateObject("VBScript.RegExp")

    ' Set the pattern to match the non-breaking space character
    regex.Pattern = ChrW(&H00A0)
    regex.Global = True  ' Replace all instances

    ' Perform the replacement
    cleanedString = regex.Replace(inputString, " ")

    ' Output the result
    Debug.Print cleanedString
End Sub

DevilW

先用 AscW 查出ASC码，再用 ChrW 表示

kyxfyzg

我感觉可以用“\S+”，然后把结果连接起来就可以了。不用替换。

Cavan2022

我试了一下,用ChrW()函数的思路可以解决问题,
将Pattern属性设为如下:


regex.Pattern ="[" & ChrW(160) & "\s]"
用这种方式可以替换掉输入的、网页的空白字符,以后再有的话继续添加就可以了.
多谢大家的热心帮助,谢谢!

DevilW

Cavan2022 发表于 2024-10-28 16:25
我试了一下,用ChrW()函数的思路可以解决问题,
将Pattern属性设为如下:

正则的话用八进制转换ASC码即可， \240  ,注意不要和捕获括号混用，如果  \240  前面有两个捕获括号则 \2 代表第二个捕获结果

Cavan2022

DevilW 发表于 2024-10-28 16:43
正则的话用八进制转换ASC码即可， \240  ,注意不要和捕获括号混用，如果  \240  前面有两个捕获括号则 \2 ...

不是很明白,比如这个例子,要捕获ChrW(160)这个空白字符,还有其他输入的空白字符\s, 完整的Pattern表达式该怎么写?

DevilW

Cavan2022 发表于 2024-10-28 20:54
不是很明白,比如这个例子,要捕获ChrW(160)这个空白字符,还有其他输入的空白字符\s, 完整的Pattern表达式 ...

regx.pattern="\s|\240"

Cavan2022

DevilW 发表于 2024-10-28 20:57
regx.pattern="\s|\240"

明白了,确实可以,谢谢!
受益匪浅!!