字符查找？？？

[prince]

怎样查找一个字符串中是否包含了另一个字符中的某个字符

例如
a123bc中包含了abcde中的a一样

[sunnyfire]

在vb中，Instr
在SQLServer中，CharIndex

[jordi2014]

用instr就可；
dim a as string,b as string
dim i as integer,j as integer
for i=1 to len(a)
for j=1 to len(b)
if instr(i,a,b(j))>0 then
msgbox "a中含有b中的" & b(j) & "字符"
end if
next
next
'这可以搜索到a中所有b中包含的字符。

[prince]

谢谢大家
不过不是我要的

是这样的

比如说有一个字符串A，

里面可以是absde123
也可以是a45783或者b456等等

我想知道A中的某一个位置的字符，比如说是第一位中的字符，是属于那一个范围（a、c、d、f），
也就是说判断A中的某一位是属于哪一个字符系列。

[prince]

手动提前

[lxcc]

instr

[rainstormmaster]

instrrev也可以

[csdngoodnight]

看看我的，比较详细

InStr函数

以Long型返回定一个字符串在另一字符串中最先出现的位置.


其中start是可选的数值表达式,设置每次搜索的起点.如果省略,将从第一个字符的位置开始.如果start包含Null,将发生错误.如果指定了compare参数,则一定要有start参数.string1是必需的参数,用于接受搜索的字符串表达式.string2是必需的参数,代表被搜索的字符串表达式.compare是可选的参数,用于指定字符串比较.
compare参数设置为:
vbUseCompareOption:使用OptionCompare语句设置执行一个比较.
vbBinaryCompare:执行一个二进制比较.
vbTextCompare:执行一个按照原文的比较.
vbDatabaseCompare:仅适用于Microsoft Access,执行一个基于数据库中信息的比较.
InStr的返回值如下所示:
如果String1为零长度,则InStr返回0
如果String1为Null,则InStr返回Null
如果String2为零长度,则InStr返回Start
如果String2为Null,则InStr返回Null
如果String2找不到,则InStr返回0
如果在string1中找到string2,则InStr返回找到的位置
如果Start>string2,则InStr返回0


语法
InStr([start,]string1,string2[,compare])



---------------------------------------

InStrRev函数

从字符串的末尾返回一个字符串在另一个字符串中出现的位置,.


其中string1是必需的参数,代表要执行搜索的字符串表达式.string2是必需的参数,代表要搜索的字符串表达式.start是可选的数值表达式,设置每次搜索的开始位置.如果忽略,则使用-1,表示从上一个字符位置开始搜索.如果start包含Null,则产生一个错误.compare是可选的数字值,设置在判断子字符串时所使用的比较方法.如果忽略,则执行二进制比较.
compare参数值如下:
VbUseCompareOption:用OptionCompare语句的设置值来执行比较
vbBinaryCompare:执行二进制比较
vbTextCompare:执行文字比较
vbDatabaseCompare:只用于Microsoft Access.基于数据库信息执行比较
InStrRev返回值如下所示:
如果string1长度为零,则InStrRev返回0
如果string1为Null,则InStrRev返回Null
如果string2长度为零,则InStrRev返回Start
如果string2为Null,则InStrRev返回Null
如果string2没有找到,则InStrRev返回0
如果string2在string1中找到,则InStrRev返回找到匹配字符串的位置
如果start>Len(string2),则InStrRev返回0

语法

InstrRev(string1,string2[,start[,compare]])

[prince]

没有办法吗