VB InStr函数
VB InStr函数
InStr([start, ]string1, string2[, compare])
返回 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 0 执行一个二进制比较。
vbTextCompare 1 执行一个按照原文的比较。
vbDatabaseCompare 2 仅适用于Microsoft Access，执行一个基于数据库
中信息的比较。
返回值
如果 InStr返回
string1
为零长度 0
string1
为 Null Null
string2 为零长度 Start
string2
为 Null Null
string2
找不到 0
在 string1 中找到string2
找到的位置
start > string2
0
说明
InStrB 函数作用于包含在字符串中的字节数据。所以 InStrB 返回的是字节位置，而不是字符
位置。
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
++++++++++
VB中如何实现文本查找功能
实现查找功能的关键在于使用InStr函数，这个函数可以找到指定的字符串在另一字符串中
最先出现的位置。我们先来看一看使用这个函数的语法：
InStr([start, ]string1, string2[, compare])
这个函数需要的的参数是起始位置、主体字符串、要查找的字符串；Compare是
VB中如何实现文本查找功能
实现查找功能的关键在于使用InStr函数，这个函数可以找到指定的字符串在另一字符串中
最先出现的位置。我们先来看一看使用这个函数的语法：
InStr([start, ]string1, string2[, compare])
这个函数需要的的参数是起始位置、主体字符串、要查找的字符串；Compare是可选参数。
指定字符串比较。此compare参数是可以省略的，也可以是 0, 1或 2。指定0（缺省）做二进
制比较。指定1做不区分大小写的文本比较。例如我们要查找在字符串“abcdefg”中是否存在
“cd”并返回其位置，则使用下面的语句就可以实现：
pos=InStr(1,"abcdefg","cd")
则pos会返回3表示查找到并且位置为第三个字符开始。这就是“查找”的实现，而“查找
下一个”功能的实现就是把当前位置作为起始位置继续查找。
下面举例说明：
放置一个文本框TEXT1供用户输入文本或调入文本文件，用来做在其中查找文本的验证，放
置另一个文本框TEXT2供用户输入要查找的字符串，放置两个命令按钮，Command1、Command2，
其标题分别为“查找”、“查找下一个”。
在窗体的总体声明部分写如下代码 ：
Option Explicit ’定义目标位置变量
Private TargetPosition As Integer
’编写一个查找函数
Private Sub FindText(ByVal start_at As Integer)
Dim pos As Integer
Dim target As String
’获取用户输入的要查找的字符串
target = text2.Text
pos = InStr(start_at, text1.Text, target)
If pos > 0 Then
’找到了匹配字符串
TargetPosition = pos
text1.SelStart = TargetPosition - 1
’选中找到的字符串
text1.SelLength = Len(target)
text1.SetFocus
Else ’没有找到匹配的字符串
MsgBox "没找到！"
text1.SetFocus
End If
End Sub
’双击“查找”命令按钮:
Private Sub command1_Click() ’从第一个字符处开始查找
FindText 1
End Sub
’双击“查找下一个”按钮：
Private Sub command2_Click() ’从当前位置继续查找
FindText TargetPosition + 1
End Sub
运行程序，在文本框1中输入一些字符串，在文本框2中输入要查找的字符串，单击 “查
找”按钮和“查找下一个”按钮进行验证。
vb关键字的意思
（一）类型转换类函数1. CType(X)[格式]：P=CBool(X) ' 将X转换为“布尔”（Boolean）类型P=CByte(X) ' 将X转换为“字节”（Byte）类型P=CCur(X) ' 将X转换为“金额”（Currency）类型P=CDate(X) ' 将X转换为“日期”（Date）类型P=CDbl(X) ' 将X转换为“双精度”（Double）类型P=CInt(X) ' 将X转换为“整型”（Integer）类型P=CLng(X) ' 将X转换为“长整型”（Long）类型P=CSng(X) ' 将X转换为“单精度”（Single）类型P=CStr(X) ' 将X转换为“字符串”（String）类型P=Cvar(X) ' 将X转换为“变体型”（Variant）类型P=CVErr(X) ' 将X转换为Error值[ 范例]：(1). CStr(13)+CStr(23)' 数值转换成字符串后，用"+"号连接，结果：1323(2). CInt("12")+12' 字符串转换成整型后与12相加，结果：24(3). P=CInt(True)' 输出结果为-1' 布尔值与数值的转换时要注意，布尔值只有True和False，其中True在内存中为-1,False 存为0(4). CBool(-0.001)' 输出结果为True' 将数值转换为布尔型时，等于0的数值将得到False，不等于0的数值得到True.2. Int(X),Fix(X)：取X的整数值[格式]：P=Int(X) ' 取<=X的最大整数值P=Fix(X) ' 取X的整数部分，直接去掉小数[范例]：(1) Int(-54.6) ' 结果为-55，取<=-54.6的最大整数(2) Fix(54.6) ' 结果为54，取整数并直接去掉小数（二）常用数学函数[格式]：1. Abs(N) 取绝对值例：Abs(-3.5) 结果：3.52. Cos(N) 余弦函数例：Cos(0) 结果：13. Exp(N) e为底的指数函数例：Exp(3) 结果：20.0684. Log(N) 以e为底的自然对数例：Log(10) 结果：2.35. Rnd[(N)] 产生随机数例：Rnd 结果：0--1之间的数6. Sin(N) 正弦函数例：Sin(0) 结果：07. Sgn(N) 符号函数' 说明：取正负号。
VB程序设计课件-常用内部函数
6
128 1235
注意：程序代码编写规则
在编写程序代码时，要遵守一定的规则。不能超越其规定 来自由发挥。 (1) 一行写多条语句。冒号分隔
Sum=Sum+x : Count=Count+1 (2) 一条语句写成多行 使用续行符(一个空格后面跟随一个下划线“_”)，将长语句分 成多行。例如： Print Text1.Text & Text2.Text & Text4.Text &└┘_ & Left(Text3.Text，3) (3)不区分大小写字母
VB不区分应用程序代码字母的大小写 。
(4) 各关键字之间，关键字和变量名、常量名、过程名 之间一定要有空格分隔。
示例： Private└┘ Sub└┘ Form_Click()
(5)使用缩进 在编写程序代码时，可以使用缩进来反映代码的逻辑结 构和嵌套关系。例如： Private Sub Form_Click()
a = "Visual└┘FoxPro"
'└┘表示空格
n = InStr(a, "└┘")
'查找空格位置
b = Left(a, n - 1)
'取左边部分
c = Right( ____, ____ )
'取右边部分
Print b
'显示左边部分
Print c
'显示右边部分
End Sub
想一想
Visual FoxPro
Mid(“ABCDE”，2) 的结果为 “BCDE”
(2)插入字符串语句Mid Mid(字符串, p[,n]) = 子字符串
用“子字符串”替换“字符串”中从P开始的与“子字 符串”等长的一串字符。
vb6常用函数
字符函数函数名功能示例ASC返回一个Integer，代表字符串中首字母的字符代码。
Asc(string)CHR返回String，其中包含有与指定的字符代码相关的字符Chr(charcode)Format返回Variant (String)，其中含有一个表达式，它是根据格式表达式中的指令来格式化的。
Format(expression[, format[, firstdayofweek[, firstweekofyear]]])Hex返回代表十六进制数值的String。
Hex(number)InStr返回Variant (Long)，指定一字符串在另一字符串中最先出现的位置。
InStr([start, ]string1, string2[, compare])InstrRev返回一个字符串在另一个字符串中出现的位置，从字符串的末尾算起。
InstrRev(string1, string2[, start[, compare]])Join返回一个字符串，该字符串是通过连接某个数组中的多个子字符串而创建的。
Join(list[, delimiter])LCase返回转成小写的String。
LCase(string)Left返回Variant (String)，其中包含字符串中从左边算起指定数量的字符。
Left(string, length)Len返回Long，其中包含字符串内字符的数目，或是存储一变量所需的字节数。
Len(string | varname)Ltrim Rtrim Trim返回Variant (String)，其中包含指定字符串的拷贝，没有前导空白(LTrim)、尾随空白(RTrim) 或前导和尾随空白(Trim)。
LTrim(string)RTrim(string)Trim(string)Mid返回Variant (String)，其中包含字符串中指定数量的字符。
Mid(string, start[, length])Partition返回一个Variant (String)，指定一个范围，在一系列计算的范围中指定的数字出现在这个范围内。
VB常用函数
VB常用函数：1.数值型函数：int(num): 取整int(99.8)=99; int(-99.2)=-100fix(num):取整fix(99.8)=99; fix(-99.2)=-99round(num,n):四舍五入取小数位round(3.14159,3)=3.142 中点数值四舍五入为近偶取整round(3.25,1)=3.3sqr(num) 取根号2.字符串函数：len(str)：计算字符串长度中文字符长度也计为一！mid(str,起始字符,[读取长度])：截取字符串中间子字符串left(str,nlen)：从左边起截取nlen长度子字符串right(str,nlen)：从右边起截取nlen长度子字符串trim(str)：去除字符串两端空格replace(str,查找字符串,替代字符串,[起始字符,替代次数,比较方法])：替换字符串注：默认值：起始字符1；替代次数不限；比较方法区分大小写（0）InStr([起始字符,]str,查找字符串[,比较方法])：检测是否包含子字符串可选参数需同时选返回起始位置InStrrev()split(str,分割字符串[,次数][,比较方法])：以分割字符串为分割标志将字符串转为字符数组可选参数需同时选CHR（num）通过ASCII值获取一个字符chr(32) 空格chr(13) 回车Ucase(str)所有字符转成大写Lcase(str)所有字符转成小写3.数据类型转换函数：Cint(str)：转换正数True -1；False 0；日期距离1899/12/31天数；时间上午段0；下午段1；Cstr(str)：日期输出格式yyyy/mm/dd；时间输出格式Am/Pm hh:mm:ssCsng(str)：转换为单精度数值Cdbl(str)：转换为双精度数值Cdate()4.时间函数：date：取系统当前日期time：取系统当前时间now：取系统当前时间及日期值Datetime类型DateDiff(间隔单位,日期一,日期二)：计算时间差日期二-日期一d m yyyyweekday(date)：计算星期几Sunday 1Monday 2Tuesday 3Wednsday 4Thurday 5Friday 6Saturday 7year(datetime)：截取年份month(datetime)：截取月份day(datetime)：截取日hour(datetime)：截取小时minute(datetime)：截取分钟second(datetime)：截取秒IsnumericIsdateFormatDateTime(datetime,n)n 0~4FormatNumber(m,n) 对象按钮\图片\表格.... 事件onclick 单击ondblclick 双击onbeforecopy 拷贝onload 对象加载onunload 对象关闭onchange 对象改变onfocus 对象获得焦点onblur 对象失去焦点动作网页与表单进行关联1.sub 对象名_事件名end sub2.sub xend sub<input type="button" name="Submit" value="按钮" onclick="x()"/>。
VB数据类型转换函数
#1899/12/30#
2. Hour ， Minute ， Second 函数：取出时，分，或秒 [格式 ]： P=Hour(X) 取出 X"时" 部分的数值 P=Minute(X) 取出 X"分" 部分的数值 P=Second(X) 取出 X"秒" 部分的数值 [说明 ]： Hour 的返回值是 0---23 之间
5．Date,Time,Now 函数：读取系统的日期时间 [格式 ]： P=Date() P=Time() P=Now() [说明 ]：这三个函数都无参数 [例 ]： 若当前时间为 2003 年 8 月 29 日晚上 19 点 26 分 45 秒，则 P=Now() 结果为： P=2003-08-29 19:26:45
转换为货币类值 转换为日前类型的值
转换为双精度值 转换为整数值
转换为长整型的值 转换为单精度的值 转换为字符串值
数值转换为字符串 字符串转换为数值
Abs(nmb) Atn(nmb) Cos(nmb) Exp(nmb) Int(nmb) 部份 8.4-->9 Fix(nmb) 8.4-->8 Formatpercent( 表达式 ) Hex(nmb) Log(nmb) Oct(nmb) Rnd 的随机数 Sgn(nmb) Sin(nmb) Sqr(nmb) Tan(nmb) Asc(string) Chr(charcode) Instr(string,searchstr) string 是字符串， searchstr 是被搜索的字符串 InstrRev(string,searchstr) Lcase(var) Left(string,nmb) 字符串 Len(string) Ltrim(string) Filter(inputstrings,value) 符串组， value 是在数组中寻找的字符 Rtrim(string) Trim(string) Mid(string,start,len)
VB中的常用函数
1 VB中常用的函数和语句一、Val 函数返回包含于字符串内的数字，字符串中是一个适当类型的数值。
语法Val(string)必要的string 参数可以是任何有效的字符串表达式.说明Val 函数，在它不能识别为数字的第一个字符上，停止读入字符串。
那些被认为是数值的一部分的符号和字符，例如美圆号与逗号，都不能被识别。
但是函数可以识别进位制符号&O （八进制）和&H（十六进制）。
空白、制表符和换行符都从参数中被去掉。
下面的返回值为1615198：Val(" 1615 198th Street N.E.")在下面的代码中，Val 为所示的十六进制数值返回十进制数值-1。
Val("&HFFFF")注意Val 函数只会将句点（.）当成一个可用的小数点分隔符。
当使用不同的小数点分隔符时，如在国际版应用程序中，代之以CDbl 来把字符串转换为数字。
'=====================================Val 函数示例本示例使用Val 函数返回字符串中所含的数值。
Dim MyValueMyValue = Val("2457") ' 返回2457。
MyValue = Val(" 2 45 7") ' 返回2457。
MyValue = Val("24 and 57") ' 返回24。
参考资料：MSDN VB参考二、Str 函数返回代表一数值的Variant (String)。
语法Str(number)必要的number 参数为一Long，其中可包含任何有效的数值表达式。
说明当一数字转成字符串时，总会在前头保留一空位来表示正负。
如果number 为正，返回的字符串包含一前导空格暗示有一正号。
使用Format 函数可将数值转成必要的格式，如日期、时间、货币或其他用户自定义格式。
wincc中常用的vb指令
在WinCC中，常用的VB指令有很多，以下是一些常见的示例：
1. **ScreenItems**：这个函数用于获取屏幕上的项目。
例如，你可以使用`ScreenItems(圆1)`来获取名为"圆1"的项目。
2. **HMIRuntime.Screens**：这个函数用于获取要操作的窗体。
例如，你可以使用`HMIRuntime.Screens(Home1)`来获取名为"Home1"的窗体。
3. **Set**：这个函数用于设置对象的属性。
例如，你可以使用`Set objCircle= ScreenItems(圆1)`来获取名为"圆1"的项目并将其赋值给`objCircle`变量。
4. **InStr**和**InStrRev**：这两个函数都在主字符串中搜索子字符串，并返回找到的子字符串在主字符串中出现的位置。
不同之处在于，InStr从左到右搜索，而InStrRev从右到左搜索。
以上只是WinCC中VB指令的一部分，还有很多其他的指令和函数可供使用，具体取决于你的需求和场景。
VB常用字符串函数
VB常⽤字符串函数vb字符串处理函数Asc 字符转换为ASCIIAsc("A") 65Chr ASCII转换为字符Chr(65) "A"Var 数字字符串转换成数值Var("170") 170CLng 转换成Long数据类型变量。
函数运算式结果CLng("123") 123CStr 转换成String 数据类型变量。
函数运算式结果CStr(123) "123"Fix 截掉数据中的⼩数部分Fix(4.1) 4IIf 根据表达式的值，来返顺两部分中的其中⼀个,为真返回前⼀个，为假返回后⼀个。
函数运算式结果IIf(a>b,a,b) aFormat$格式化字符串函数运算式结果Format$("123", "000000000") 000000123LEN字串⾧度函数：计算字串的⾧度。
函数运算式结果len("abcd") 4len("中⽂字") 3len(abc中⽂) 5MID取部份字串函数：依開始位置擷取固定⾧度字串。
函數運算式結果mid("vbscript",3,3) scrmid("vbscript",3) scriptmid("vbscript",1,2) vbLEFT字串開頭取部份字串函數：將某⼀字串由開頭擷取固定⾧度。
函數運算式結果left("vbscript",2) vbRIGHT字串結尾取部份字串函數：將某⼀字串由結尾擷取固定⾧度。
函數運算式結果right("vbscript",2) ptLCASE轉⼤寫函數：將字串中的⼤寫字母變成⼩寫。
函數運算式結果lcase("VBScript") vbscriptlcase("VBScript程式") vbscript程式UCASE轉⼩寫函數：將字串中的⼩寫字母變成⼤寫。
VB函数大全_基本函数大全
VB函数大全_基本函数大全Abs 函数返回数的绝对值。
And 运算符执行两个表达式的逻辑连接。
Array 函数返回含一数组的变体。
Asc 函数返回字符串首字母的ANSI 字符代码。
赋值运算符(=) 给变量或属性赋值。
Atn 函数返回数的反正切值。
调用语句将控制移交Sub 或Function 过程。
CBool 函数返回已被转换为Boolean 子类型的变体的表达式。
CByte 函数返回已被转换为字节子类型的变体的表达式。
CCur 函数返回已被转换为货币子类型的变体的表达式。
CDate 函数返回已被转换为日期子类型的变体的表达式。
CDbl 函数返回已被转换为双精度子类型的变体的表达式。
Chr 函数返回指定ANSI 字符码的字符。
CInt 函数返回已被转换为整数子类型的变体的表达式。
Class 对象提供对已创建的类的事件的访问。
Class 语句声明类名Clear 方法清除Err 对象的所有属性设置。
CLng 函数返回已被转换为Long 子类型的变体的表达式。
颜色常数颜色常数列表。
比较常数用于比较运算的常数列表。
连接运算符(&) 强制两个表达式的字符串连接。
Const 语句声明用于字母值的常数。
Cos 函数返回角度的余弦值。
CreateObject 函数创建并返回对“自动”对象的引用。
CSng 函数返回已被转换为单精度子类型的变体的表达式。
CStr 函数返回已被转换为字符串子类型的变体的表达式。
日期和时间常数在日期和时间运算中用来定义星期几和其他常数的常数列表。
日期格式常数用于日期和时间格式的常数列表。
Date 函数返回当前系统日期。
DateAdd 函数返回加上了指定的时间间隔的日期。
DateDiff 函数返回两个日期之间的间隔。
DatePart 函数返回给定日期的指定部分。
DateSerial 函数返回指定年月日的日期子类型的变体。
DateValue 函数返回日期子类型的变体。
Day 函数返回日期，取值范围为1 至31。
VB函数大全
2005函數大全2009-09-21 15:53:16| 分类： 2005 |字号订阅一、数学函数函数说明Abs (num) 取绝对值。
Exp (num) 返回以e为底、以num为指数的值，如Exp(2)返回e^2值。
Log (num) 返回参数num的自然对数值，为Double类型，即以e为底的对数。
Hex (num)` 将参数num转换为16进制。
Oct (num) 将参数num转换为8进制Sign (num) 返回参数的正负符号，若num大于0，则返回值为1；若num等于0，则返回值为0；若num小于0，则返回值为-1。
Sqrt (num) 返回参数平方根为，Double类型。
Atan (num) 反正切函数Sin (num) 正弦函数Cos (num) 余弦函数Tan (num) 正切函数Rand (num,[int]) 将参数num四舍五入，若要指定四舍五入到哪位小数，可以加上第二个参数int。
如：Round (12. 456 )返回值为12；Round (12 . 4567,3 ) 返回值为12. 457。
Rnd [(nun)] 产生一个小于1，大于或等于0的随机数，类型为Single。
若参数num小于0，那么每次都会返回相同的随机数；若没有提供参数或参数大于0，那么会依序产生下一个随机数，此为默认值；若参数num等于0，那么会返回最近一次产生的随机数。
为了每次产生不同的随机数，在使用Rand ()函数之前，最好使用Randomize语句。
若要随机产生一个N到M的整数，可利用如下公式：Int (Rand ()*M-N+1)+N。
Pow (x,y) 求x的y次方。
Val (str) 将字符串内的数字转换成Integer或Double类型返回。
Str (num) 将数值类型参数转换成字符串返回。
Fix (num) 参数大于0时，去掉小数部分；参数小于0时，返回大于或等于该参数值。
Int (num) 参数大于0时，去掉小数部分；数小于0时，返回小于或等于该参数值。