Office中国论坛/Access中国论坛

标题: 如何快速删除字符串中偶数位上的字符 [打印本页]

---

作者: 真主    时间: 2013-10-23 14:00
标题: 如何快速删除字符串中偶数位上的字符
如qazwsxedcrfvtgbyhnujmik,ol.p;/[']123456789变成qzsecftbhumko.;[]2468

---

作者: 轻风    时间: 2013-10-23 15:04
我能想到的只是自定义函数，用MID函数循环提取。有没有更快更简单的方法我就不懂了。

1. Public Function TQZF(strZF As String) As String
   
2.     Dim i As Integer
   
3.     i = 1
   
4.     Do While i <= Len(strZF)
   
5.         TQZF = TQZF & Mid(strZF, i, 1)
   
6.         i = i + 2
   
7.     Loop
   
8. End Function
   

复制代码

---

作者: admin    时间: 2013-10-23 15:56
{:soso_e179:}

---

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)

Powered by Discuz! X3.3