VBA代码操作字符串

yuanmeng7848

向各位大师请教如下问题：

dim str1,str2 as string
str=赋值字符串
接下来的代码是确定字符串str1中某个字符的下一个字符是否为特定字符并将这两个字符赋值给str2
请大师指点，谢谢！

batmanbbs

用instr函数获取str1某个字符所在的位置
用mid函数获取str1某个字符的下个字符
用IF语句判断是否为特定字符
重新用mid函数获取str1某个字符+下个字符，并赋值给str2

可以简化为：
用instr函数获取str1某个字符+下一个特定字符所在的位置
用mid函数获取str1的这两个字符
用IF语句判断是否为某个字符+下一个特定字符
如果是将这个两个字符直接赋值给str2

yuanmeng7848

batmanbbs 发表于 2023-11-5 19:23
用instr函数获取str1某个字符所在的位置
用mid函数获取str1某个字符的下个字符
用IF语句判断是否为特定字 ...

我以为有一个专门函数来实现这个功能

yuanmeng7848

用instr函数只能实现字符串中第个符合条件的字符串，后面的呢？如果能用（序号）遍历字符串中的字符就好了？我的目的是为了检查字符串中周期性的格式，并对不符合格式的地方进行修改。

batmanbbs

yuanmeng7848 发表于 2023-11-5 21:33
用instr函数只能实现字符串中第个符合条件的字符串，后面的呢？如果能用（序号）遍历字符串中的字符就好了 ...

所以提问的时候需要把需求说明白，不要挤药膏

batmanbbs

yuanmeng7848 发表于 2023-11-5 21:25
我以为有一个专门函数来实现这个功能

哪里有那么多函数。自己有特殊需求，可以使用VBA自带的语句和函数来编写自己符合自己需求的自定义函数。

thunor

正则表达示。