InStr
公司主营业务:网站制作、成都网站设计、移动网站开发等业务。帮助企业客户真正实现互联网宣传,提高企业的竞争能力。创新互联是一支青春激扬、勤奋敬业、活力青春激扬、勤奋敬业、活力澎湃、和谐高效的团队。公司秉承以“开放、自由、严谨、自律”为核心的企业文化,感谢他们对我们的高要求,感谢他们从不同领域给我们带来的挑战,让我们激情的团队有机会用头脑与智慧不断的给客户带来惊喜。创新互联推出新源免费做网站回馈大家。
返回
Variant
(Long),指定一字符串在另一字符串中最先出现的位置。
语法
InStr([start,
]string1,
string2[,
compare])
InStr
函数的语法具有下面的参数:
部分
说明
start
可选参数。为数值表达式,设置每次搜索的起点。如果省略,将从第一个字符的位置开始。如果
start
包含
Null,将发生错误。如果指定了
compare
参数,则一定要有
start
参数。
string1
必要参数。接受搜索的字符串表达式。
string2
必要参数。被搜索的字符串表达式。
Compare
可选参数。指定字符串比较。如果
compare
是
Null,将发生错误。如果省略
compare,Option
Compare
的设置将决定比较的类型。
设置
compare
参数设置为:
常数
值
描述
vbUseCompareOption
-1
使用Option
Compare
语句设置执行一个比较。
vbBinaryCompare
执行一个二进制比较。
vbTextCompare
1
执行一个按照原文的比较。
vbDatabaseCompare
2
仅适用于Microsoft
Access,执行一个基于数据库中信息的比较。
返回值
如果
InStr返回
string1
为零长度
string1
为
Null
Null
string2
为零长度
Start
string2
为
Null
Null
string2
找不到
在
string1
中找到string2
找到的位置
start
string2
说明
InStrB
函数作用于包含在字符串中的字节数据。所以
InStrB
返回的是字节位置,而不是字符位置。
很简单,用字符串查找函数就可以实现了。\x0d\x0a当在StrB查找到StrA字符串时,返回肯定是非0的数,值就是True,找不到为0或者-1,值就是Flase\x0d\x0a\x0d\x0a比如:\x0d\x0aDim StrA As String = "Time is Limited"\x0d\x0aDim StrB As String = "Time"\x0d\x0aDim Stu As Boolean= InStr(StrA, StrB)\x0d\x0a\x0d\x0a这运行段代码,Stu值就是True了。\x0d\x0a我觉得这样最简单有效。
用split函数就搞定了,~~ o(∩_∩)o.... 给你写了个源代码:
在窗体上建立2个text 和一个command 复制下面的代码 运行.然后在text1里面随便输入一堆字符.按command就看到效果了...
Private Sub Command1_Click()
Dim s() As String, sr As String, t As String
sr = InputBox("请输入要删除的字串", "删除")
s = Split(Text1.Text, sr)
For i = 0 To UBound(s)
t = t s(i)
Next i
Text2.Text = t
MsgBox "共删除了" UBound(s) + 1 "个符合的内容"
End Sub