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 = "工程编号,�
相关问答：
初学，大胆提问，请高手不吝赐教
1、滚动条点击与绘图板（屏幕,Piceure1）的移动问题已经解决。
Picture1.Top = -VScroll1.Value + bcW '垂直移动
Picture1.Left = -HScroll1.Value + bcW ' ......
刚接触vb6.0，有些摸不到的感觉，敬请各位大虾给点建议！！！
不会吧，推荐学习.NET。顺便推荐实用代码网站http://bingning.net/free/source/index.html。
如果没基础 就用易语言吧 中文编程呢 代码都是中文 ......
我在类中有一个函数
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfig是我自定义类型的数据，为什么会提示“只有在公共对象模块中� ......
现在我想根据treeview上每个节点的权限，没有权限的节点不能被选中，而且成灰色，怎么实现，在线等。。。
这个？。。。
貌似没法。
试试能不能改某些node的颜色，记录下上次的nodeclick里的node。
下次点击的如� ......
