恳求用VBA提取数字、字母、文字的代码

松儿

谢谢提示，谢谢赐教！这下可好了。

Zamyi

Function Tq(S, p, Optional ByVal Fg As String = "")
'p=0、1、2、3分别为取数字、字母、汉字、标点
a = Array("[^0-9.]+", "[^a-z]+", "[^\u4e00-\u9fff]+", "[a-z0-9\u4e00-\u9fff\.]+")
With CreateObject("vbScript.regexp")
  .Pattern = a(p)
  .IgnoreCase = True
  .Global = True
  Tq = .Replace(S, Fg)
End With
End Function

松儿

Zamyi 发表于 2011-10-28 09:39
Function Tq(S, p, Optional ByVal Fg As String = "")
'p=0、1、2、3分别为取数字、字母、汉字、标点
a  ...

　　谢谢！可是我在运行时，运行不了。出现了这样



（如图）的情况。我似乎是经常遇到这种情况，不知是什么原因？请求赐教。

cbtaja

对于正则表达式对象，其Replace方法和Execute方法，一正一反。
12楼用Replace方法，同样达到了目的，看起来似乎还要更简单些。
不过，Execute方法，也自有它的优点：能够得到matchs集合，而对这个集合，可以用代码来处理，比如，可以遍历其中的所有成员，如本例所示；也可以选择其中的某几个特定项来处理。因此，Execute方法，更加灵活一些，而replace方法，似乎就固定了。
同样地，对于提取数字、字母、汉字等，在自定义函数中直接给出正则表达式选项，使用的时候就简单了，同时，也就固化成只有4个选项了。而如果在自定义函数中，把正则表达式作为参数提供，则保留了正则表达式强大的灵活性，可以根据需要来编辑正则表达式，以获取各种组合情况的内容，比如提取“汉字及标点”，“中英文及标点”等等。

总之，定制的简单易用，而自定义的则灵活强大，所谓“鱼和熊掌不可兼得”，使用者根据自身的情况来选择。

cbtaja

松儿 发表于 2011-10-28 10:01
　　谢谢！可是我在运行时，运行不了。出现了这样

这个同样是自定义函数，因此需要在表格中编辑公式加以引用才行的。

松儿

cbtaja 发表于 2011-10-28 10:23
这个同样是自定义函数，因此需要在表格中编辑公式加以引用才行的。

谢谢赐教！长见识了。

Zamyi

cbtaja 发表于 2011-10-28 10:20
对于正则表达式对象，其Replace方法和Execute方法，一正一反。
12楼用Replace方法，同样达到了目的，看起来 ...

改下 .Pattern = a(p) 为
If IsNumeric(p) Then .Pattern = a(p) Else .Pattern = p
鱼和熊掌便可兼得了{:soso_e113:}

cbtaja

Zamyi 发表于 2011-10-28 11:12
改下 .Pattern = a(p) 为
If IsNumeric(p) Then .Pattern = a(p) Else .Pattern = p
鱼和熊掌便可兼得了 ...

加一个判断，以决定是“捕鱼”还是“猎熊”，这个方式很不错。对于EXCEL中不会大段大段出现的文本，可以是说很完美的了。

158890416

新手来下个例子呵呵

lhw78535

cbtaja 发表于 2011-10-28 09:04
fgf,“分隔符”。设置一个分隔符，可以把符合条件的内容分段区分出来，比如数据中包含多个数时，提取出 ...

是的，我明白了，返回的每个字符都用特定的分隔符分开。谢谢你。