如何快速删除字符串中偶数位上的字符

真主

如qazwsxedcrfvtgbyhnujmik,ol.p;/[']123456789变成qzsecftbhumko.;[]2468

轻风

我能想到的只是自定义函数，用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

{:soso_e179:}