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

Cavan2022

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

Dim regx As Object
dim result as string
Set regx = CreateObject("vbscript.regexp")
regx.Global = True
regx.pattern = "\s+"

result=regx.Replace(range("a2").value, "")



像这种从网页上复制的字符串里的空白字符(如图:在科技之光后有一个空白字符),替换不了,但是手动输入的空格、制表符等可以正常替换,这该怎么解决呢?

醉眼看尘世

\n+试试。。。。

Cavan2022

醉眼看尘世 发表于 2024-10-27 00:01
\n+试试。。。。

不行,去不了

perfect131

Cavan2022 发表于 2024-10-27 10:56
不行,去不了

发你的附件 用replace替换vbcrlf或者unicode字符串
或者找我代写不用从网页复制粘贴了

Cavan2022

perfect131 发表于 2024-10-27 11:09
发你的附件 用replace替换vbcrlf或者unicode字符串
或者找我代写不用从网页复制粘贴了

zpy2

regx.pattern = "[\s\n\r]+"

这样试试

Cavan2022

zpy2 发表于 2024-10-27 18:47
regx.pattern = "[\s\n\r]+"

这样试试

[\s] 等价于 [ \f\n\r\t\v],这样不行.
估计是字符集的问题,VBA运行时,网页复制的空白字符,在程序运行时用ASC()函数代入,显示ASC码为63,是问号(?)的码数,估计是不识别的字符,

无关岁月

.                                                                          

Again123456

Char(160)正则没法匹配吧，CharW(160)才能用\s匹配吧

lss001

Sub 替换字符() '7步分析法
s = Cells(2, 1).Text '1提取源字符串
x = Len(s) '2获取源字符串长度
r = Right(s, 1) '3提取源字符中指定字符
w = AscW(r) '4获取指定字符编码
t = Replace(s, ChrW(w), "") '5执行替换
y = Len(t) '6获取替换后长度
z = x - y '7获取长度差
End Sub