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 = "工程编号,�
相关问答：
vb是不是很牛啊 怎么那么多的病毒都是vb做的啊 c#行不行？
c#在XP运行不了，除非让别人先装上.net.
VB相对于C,C++,ASM等等，局限性大多了。
别再说什么语言不如什么语言的话了，只有你不会用或用着不顺手的� ......
可以吗
好奇怪的题目额！！
可以告诉我们你到底想问什么 ？
2分给我的话就可以。
........................可以吗
可以!
纠结，
29. vb可以这样做不？ ( H )√
A. ......
现在有个xml文件是<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xm ......
xmlDoc1.loadXML(h)总是返回false，为什么？谢谢帮忙回答一下
h是什么呢。。。。。。。。。
h是xml格式的字符串
你是想打开。XML格式的文件吧？
我是把h放在xmlDoc1里，用xmlDoc1.loadXML(h)，然后取xmlDo ......
