vb6判断字符串中包含某字符数量、某片段的内容

软件 2022-10-26

vb6中怎样判断字符串中是否包含某个字符

用instr（）函数，返回第二个字符串在第一个字符串中出现的位置，如果没有，则返回0

例如：instr（1，＂abcdef＂，＂j＂）返回结果为0

注：1表示从第一个字符串的第一个字符开始查找

InStr 函数可返回下面的值：

如果 string1 为 ""（零长度） - InStr 返回 0

如果 string1 为 Null - InStr 返回 Null

如果 string2 为 "" - InStr 返回 start

如果 string2 为 Null - InStr 返回 Null

如果 string2 没有找到 - InStr 返回 0

如果在 string1 中找到 string2，InStr 返回找到匹配字符串的位置

如果 start > Len(string1) - InStr 返回 0

扩展资料：

语法

instr( string1, string2, start_position,nth_appearance )

参数

string1：源字符串，要在此字符串中查找。

string2：要在string1中查找的字符串。

start_position：代表string1 的哪个位置开始查找。此参数可选，如果省略默认为1. 字符串索引从1开始。如果此参数为正，从左到右开始检索，如果此参数为负，从右到左检索，返回要查找的字符串在源字符串中的开始索引。

nth_appearance：代表要查找第几次出现的string2. 此参数可选，如果省略，默认为 1.如果为负数系统会报错。

参考资料来源：百度百科-instr函数

VB 怎么判断一个字符串里面包含了某个字符?

InStr([start, ]string1, string2[, compare]) 返回 Variant (Long)，指定一字符串在另一字符串中最先出现的位置。本示例使用 InStr 函数来查找某字符串在另一个字符串中首次出现的位置。 Dim SearchString, SearchChar, MyPos SearchString ="XXpXXpXXPXXP" ' 被搜索的字符串。 SearchChar = "P" ' 要查找字符串 "P"。 ' 从第四个字符开始，以文本比较的方式找起。返回值为 6（小写 p）。 ' 小写 p 和大写 P 在文本比较下是一样的。 MyPos = In

VB下统计字符串中所含某字符的个数

首先保证窗体上有一个标签label1，一个按钮command1,一个文本框text1

PrivateSubCommand1_Click()

DimiiAsInteger,CcountAsInteger

Forii=1ToLen(Text1)

IfMid(Text1,ii,1)="e"ThenCcount=Ccount+1

Nextii

Label1.Caption="共有"&Count&"个e"

EndSub

扩展资料：

字符串函数（String processing function）也叫字符串处理函数，指的是编程语言中用来进行字符串处理的函数，如C，pascal，Visual以及LotusScript中进行字符串拷贝，计算长度，字符查找等的函数。

Visual Basic

定位函数

InStr,InStrRev,InStrB

截取函数

Mid,Right,Left

替换函数

Replace

分割函数

Split

格式化输出

Format

比较函数

StrComp,Like

长度计算

Len,LenB

编码转换

StrConv

大小写转换

LCase,UCase

重复产生

String,Space

参考资料来源：百度百科-字符串函数

vb中怎么判断一个字符串中包含另一个字符串

1、启动VB新建工程1，在form1的合适位置画出3个Label框、2个Text框以及1个Command按钮（可以预先对各控件的Caption等属性进行修改）。

2、双击“统计”（即Command1）按钮，在弹出的代码框中编写如下代码：

PrivateSubCommand1_Click()DimxAsStringa=Text1.Textb=Text2.Textn=0Fori=1ToLen(a)x=Mid(a,i,1)

If x = b Then n = n + 1 Next i Label3.Caption = "字符" & b & "在字符串”" & a & "“中" & vbCrLf & "共出现了" & n & "次。"End Sub

这样便达到了检索所有字符、统计某个字符出现次数的需求了。

3、同理，对text2进行设置，当光标停留在text2中，按下回车键时，光标将跳到Command上，方便操作：

PrivateSubtext2_keypress(keyasciiAsInteger)Ifkeyascii=13ThenCommand1.SetFocusEndSub

4、最后点击运行即可。

vb6.0 里如何判断数据里是否包含指定的内容？

直接用个简单的例子跟你解释吧 Msgbox Instr(1,"abcdefg","def") 运行这行代码的结果是 4 意思就是在"abcdefg"的第4位发现了你想要搜索的"def" 那么同理你的问题就可以演变为: Msgbox Instr(1,"abcdefg","-") 运行结果就会是 0 意思就是没找到你只需要判断这个结果是不是0 就可以知道你的数据里是不是含有"-"

标签：编程信息技术字符串编程语言 vb