vb 中 - VB / 基础类
dim a as string,b as string，c as string
a="工程编号,单位工程名称,分部工程编号"
b="单位工程名称"
c="单位"
怎么才能判断出a字符串中存在b字符串，而不存在c字符串
看看instr
回复内容太短了！回复内容太短了！回复内容太短了！回复内容太短了！
希望最好有具体代码 ，本人是新手，谢谢
你说的‘存在b字符串，而不存在c字符串’
是全部还是部分？
if instr(a,b)<>0 and instr(a,c)=0 then
'a中包括b但不包括c
end if
if instr(a,b) and instr(a,c)=0 then
'....
end if
我的a、b和c都是不固定的，我上面给出的只是列出的一个例子
instr函数
或者用split函数将a字符串按照“，”分离开来，然后判断字符串是否相等
最好是instr函数了
VB code:
Option Explicit
Function StringComp(ByVal s As String, sFind1 As String, sFind2 As String) As Long
'第一个存在返回1,第二个存在返回2,二个都存在返回3,二个都不存在,返回0
Const SEPARATOR = ","
s = SEPARATOR & s & SEPARATOR
sFind1 = SEPARATOR & sFind1 & SEPARATOR
sFind2 = SEPARATOR & sFind2 & SEPARATOR
StringComp = -(InStr(s, sFind1) > 0) + -2 * (InStr(s, sFind2) > 0)
End Function
Private Sub Command1_Click()
Dim a As String, b As String, c As String
a = "工程编号,�
相关问答：
想在warcraft3里进行写屏操作【如对战平台中的胜负提示信息】，效果就像游戏平台中一样，我试过在一窗口中写入文字，然后一直让窗口强制最前，虽然能实现文字显示，但是文字会不断闪烁，而且有不确定BUG，通过论坛搜 ......
为什么工具栏按扭的宽度改变不了,在属性里改了又变成原来的数值了
大胡子真厉害，回答基本都是爆料级的
大胡子升级真快啊，这才几天就5条短裤外加月排名第一了
想想我这5个短裤混了差不多8年才得到的。
回复 ......
DIM ds as new DataSet
我这样声明 怎老是报 用户定义类型未定义？ 这个需要引用什么吗？？
前提是DataSet对象要存在,就是对象浏览器中有它.没有就要引用.
dataset是ADO.NET对象
如果你用的是vb.net，那么在� ......
现在我想根据treeview上每个节点的权限，没有权限的节点不能被选中，而且成灰色，怎么实现，在线等。。。
这个？。。。
貌似没法。
试试能不能改某些node的颜色，记录下上次的nodeclick里的node。
下次点击的如� ......
