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年才得到的。
回复 ......
初学，大胆提问，请高手不吝赐教
1、滚动条点击与绘图板（屏幕,Piceure1）的移动问题已经解决。
Picture1.Top = -VScroll1.Value + bcW '垂直移动
Picture1.Left = -HScroll1.Value + bcW ' ......
刚接触vb6.0，有些摸不到的感觉，敬请各位大虾给点建议！！！
不会吧，推荐学习.NET。顺便推荐实用代码网站http://bingning.net/free/source/index.html。
如果没基础 就用易语言吧 中文编程呢 代码都是中文 ......
DIM ds as new DataSet
我这样声明 怎老是报 用户定义类型未定义？ 这个需要引用什么吗？？
前提是DataSet对象要存在,就是对象浏览器中有它.没有就要引用.
dataset是ADO.NET对象
如果你用的是vb.net，那么在� ......
