zpl代码可以编译的特殊字符_尝试在Excel里查找特殊字符

38f8f2bad9c39189526e602c870cd83f.png

以前介绍过特殊字符,但是没有说具体操作,只是在最后装逼的说了句“无非类似于[^x00-x7f]”的话,显得属于基本操作,可以在眨眼功夫搞定。

这几天来了兴趣,实属折腾了一番,不过最后也算是成功实现了。

“换句话说,我们项目里的所有数据都只能是由这128个字符组成,不能由任何其他的。
那么现在就简单了,只剩下怎么查的问题——交给Programmer。
基本上用很简单的语句就搞定,无非类似于[^x00-x7f]。不同的语言有不同的语法,正则表达式更是大同小异。”
老帅儿:临床试验数据中的特殊字符是个啥​zhuanlan.zhihu.com
28562372cda7d9ddf4117f8269ba80f1.png

举例来说,现有数据情况如下。

可以看到一共有四个变量,在"term1"列下面有我们说的特殊字符,比如汉字,罗马数字以及“kkk(TCM)"里的中文括号。

现在需要将这些都找出来,并放在另外一列。

259894219d977f58bb281cfb94ce9419.png

实现效果如下。

ea74f835a92637985a2dafcf6ae3de96.png

d198dd80d290a14c2b179c38f310e47e.gif

从上面可以看到有个函数“InvalidC",这个函数是自定义的。具体步骤如下:

  1. 写代码,如下。
Function InvalidC(x)
Dim brr
Dim regx As Object

Set regx = CreateObject("vbscript.regexp")
Dim str As String
str = x.Value

Dim item
With regx
    .Global = True
    .Pattern = "[^x00-x7f]"
    Set matc = .Execute(str)
    
    ReDim brr(matc.Count - 1)
    For Each item In matc
        i = i + 1
        brr(i - 1) = item
    Next
End With
    
InvalidC = Join(brr, ",")

End Function

2. 调出Excel里"开发(Developer)":文件-->选项-->自定义功能区-->开发工具-->勾选确定。已经调出来的忽略。

6cd2a4e75e78979888a16c8e48a2b48a.png

7fb445ead311acfeb05281b8e5a2311b.gif

3. 新建一个"模块(Module)",贴上代码,保存,关闭即可。

7b8207d708d27c8f946c138c1a23308f.gif

2811b067fe141185adc3e87505f18e64.png

4. 回到Excel界面使用函数,不过需要在公式-->插入函数-->用户定义里面去找到自己定义的函数,完成操作。


最后,再强调一下找到的特殊字符会包含哪些,也就是这个函数会把哪些字符当作特殊字符?哪些当作正常字符?

还是上图,下面蓝色框着的128个字符会视为正常字符,其他的则视为特殊字符。

细心一点会发现,十六进制列里,其实就是代码里"x00-x7F"的来源,也就是代表0-127这128个字符。

b9508d6fb45ccec79a9c4235d7f8ef87.png
  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值