文档库 最新最全的文档下载
当前位置:文档库 › vb6字符串函数

vb6字符串函数

vb6字符串函数
vb6字符串函数

一、V al 函数

返回包含于字符串内的数字,字符串中是一个适当类型的数值。

语法

Val(string)

必要的string 参数可以是任何有效的字符串表达式.

说明

Val 函数,在它不能识别为数字的第一个字符上,停止读入字符串。那些被认为是数值的一部分的符号和字符,例如美圆号与逗号,都不能被识别。但是函数可以识别进位制符号&O(八进制)和&H(十六进制)。空白、制表符和换行符都从参数中被去掉。

下面的返回值为1615198:

Val(" 1615 198th Street N.E.")

在下面的代码中,Val 为所示的十六进制数值返回十进制数值-1。

Val("&HFFFF")

注意Val 函数只会将句点(.)当成一个可用的小数点分隔符。当使用不同的小数点分隔符时,如在国际版应用程序中,代之以CDbl 来把字符串转换为数字。

'=====================================

Val 函数示例

本示例使用Val 函数返回字符串中所含的数值。

Dim MyValue

MyValue = 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 函数可将数值转成必要的格式,如日期、时间、货币或其他用户自定义格式。与Str 不同的是,Format 函数不包含前导空格来放置

number 的正负号。

注意

Str 函数只视句点(.) 为有效的小数点。如果使用不同的小数点(例如,国际性的应用程序),可使用CStr 将数字转成字符串。

for example:Str 函数示例

本示例使用Str 函数来将一个数字转成字符串。当数字转成字符串时,字符串的第一个位一定是空格或是正负号。Dim MyStringMyString = Str(459) \' 返回" 459"。MyString = Str(-459.65) \' 返回"-459.65"。MyString = Str(459.001) \' 返回" 459.001"。

三、CStr 函数

说明

传回一个转换为String 资料型态的运算式。

语法

CStr(expression)

引数expression 可以是任何有效的运算式。

注解

通常,您可以使用资料型态转换函数,以特定的资料型态,取代预设的资料型态来进行运算。例如,使用CStr 来强制将执行结果以String 资料型态表示。

您可以使用CStr 函数而非Str 函数,在任何语言的版本中,让任何一个资料型态转换至String 资料型态。例如,不同的小数点分隔符号,会依据您系统的国别设定来做适当的确认。

引数expression 将决定函数传回值为何,请叁考下表:

若expression 内容为传回值

Boolean 包含"True" 或"False" 的字串。

Date 包含一个日期的字串,其格式为您系统的简短日期格式。

Null 产生执行时期错误。

Empty 一个长度为0 的字串("")。

Error 包含一个英文字"Error" 以及一个错误代码的字串。

其他数值包含这个数值的字串。

(一)类型转换类函数

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.5

2. Cos(N) 余弦函数

例:Cos(0) 结果:1

3. Exp(N) e为底的指数函数

例:Exp(3) 结果:20.068

4. Log(N) 以e为底的自然对数

例:Log(10) 结果:2.3

5. Rnd[(N)] 产生随机数

例:Rnd 结果:0--1之间的数

6. Sin(N) 正弦函数

例:Sin(0) 结果:0

7. Sgn(N) 符号函数

' 说明:取正负号。Y=Sgn(X) 既X>0 则Y=1;X=0 则Y=0;X<0 则Y= -1

8. Sqr(N) 平方根

例:Sqr(9) 结果:3

9. Tan(N) 正切函数

例:Tan(0) 结果:0

10.Atn(N) 反切函数

例:Atn(0) 结果:0

[注意]:在三角函数中,以弧度表示。

(一)字符串类函数:1. ASC(X),Chr(X):转换字符字符码

[格式]:

P=Asc(X) 返回字符串X的第一个字符的字符码

P=Chr(X) 返回字符码等于X的字符

[范例]:

(1)P=Chr(65)

‘输出字符A,因为A的ASCII码等于65

(2)P=Asc(“A”)

‘输出65

2. Len(X):计算字符串X的长度

[格式]:

P=Len(X)

[说明]:

空字符串长度为0,空格符也算一个字符,一个中文字虽然占用2 Bytes,但也算一个字符。

[范例]:

(1) 令X=””(空字符串)

Len(X) 输出结果为0

(2) 令X=”abcd”

Len(X) 输出结果为4

(3) 令X=”VB教程”

Len(X) 输出结果为4

3. Mid(X)函数:读取字符串X中间的字符

[格式]:

P=Mid(X,n)

由X的第n个字符读起,读取后面的所有字符。

P=Mid(X,n,m)

由X的第n个字符读起,读取后面的m个字符。

[范例]:

(1) X=”abcdefg”

P=Mid(X,5)

结果为:P=”efg”

(2) X=”abcdefg”

P=Mid(X,2,4)

结果为P=”bcde”

4. Replace: 将字符串中的某些特定字符串替换为其他字符串[格式]:

P=Replace(X,S,R)

[说明]:将字符串X中的字符串S替换为字符串R,然后返回。

[范例]:

X=”VB is very good”

P=Replace(X,good,nice)

输出结果为:P=”VB is very nice”5. StrReverse:反转字符串

[格式]:

P=StrReverse(X)

[说明]:

返回X参数反转后的字符串

[范例]:

(1)X=”abc”

P=StrReverse(X)

输出结果:P=”cba”

6. Ucase(X),Lcase(X):转换英文字母的大小写

[格式]:

P=Lcase(X)

‘将X字符串中的大写字母转换成小写

P=Ucase(X)

‘将X字符串中的小写字母转换成大写

[说明]:除了英文字母外,其他字符或中文字都不会受到影响。

[范例]:

(1)令X=”VB and VC”

则Lcase(X)的结果为”vb and vc”,Ucase(X)的结果为”VB AND VC”

7. InStr函数:寻找字符串

[格式]:

P=InStr(X,Y)

从X第一个字符起找出Y出现的位置

P=InStr(n,X,Y)

从X第n个字符起找出Y出现的位置

[说明]:

(1)若在X中找到Y,则返回值是Y第一个字符出现在X中的位置。(2)InStr(X,Y)相当于InStr(1,X,Y)。

(3)若字符串长度,或X为空字符串,或在X中找不到Y,则都返回0。(4)若Y为空字符串,则返回0。

日期时间类函数:

1. Year(X),Month(X),Day(X):取出年,月,日

[格式]:

P=Year(X)

取出X“年”部分的数值

P=Month(X)

取出X“月”部分的数值

P=Day(X)

取出X“日”部分的数值

[说明]:Year返回的是公元年,若X里只有时间,没有日期,则日期视为#1899/12/30#

2. Hour,Minute,Second函数:取出时,分,或秒

[格式]:P=Hour(X)

取出X“时”部分的数值

P=Minute(X)

取出X“分”部分的数值

P=Second(X)

取出X“秒”部分的数值

[说明]:Hour的返回值是0---23之间

[范例]:

X=10:34:23

P=Hour(X)

Q=Minute(X)

R=Second(X)

则输出结果:P=10,Q=34,R=23

3. DateSerial函数:合并年,月,日成为日期

[格式]:DateSerial(Y,M,D)

其中Y是年份,M为月份,D为日期

[说明]:

(1)M值若大于12,则月份从12月起向后推算M-12个月;若小于1,则月份从1月起向后推算1-M个月。

(2)若日期D大于当月的日数,则日期从当月的日数起,向后推算D-当月日数;若小于1,则日期从1日起向前推算1-D日。

[范例]:

P=DateSerial(2000,02,02)

则结果为P=2000/02/02

4.TimeSerial函数:合并时,分,秒成为时间

[格式]:P=TimeSerial(H,M,S)

其中H为小时数,M为分钟数,S为秒数

[说明]:推算原理同上面的DateSerial

[范例]:

P=TimeSerial(6,32,45)

结果为:P=6:32:45

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

6.MonthName:返回月份名称

[格式]:P=MonthName(X)

[说明]:X参数可传入1---12,则返回值为“一月”、“二月”……,但是在英文Windows环境下,返回的是”January”,”February”……

[范例]:

P=MonthName(1)

则P=“一月”

7.WeekdayName:返回星期名称

[格式]:P=WeekdayName(X)

[说明]:X参数可传入1—7,则返回值为“星期日”,“星期一”……,但是在英文windows环境下,返回的是”Sunday”,”Monday”……

[范例]:

P=WeekdayName(1)

结果为:P=”星期日”

VB常用字符串操作函数解读

VB常用字符串操作函数2009/11/25 18:321. ASC(X,Chr(X:转换字符字符码[格式]: P=Asc(X 返回字符串X的第一个字符的字符码 P=Chr(X 返回字符码等于X的字符 [范例]:(1P=Chr(65 ‘ 输出字符A,因为A的ASCII码等于65 (2P=Asc(“A” ‘ 输出65 2. Len(X:计算字符串X的长度 [格式]: P=Len(X [说明]:空字符串长度为0,空格符也算一个字符,一个中文字虽然占用2 Bytes,但也算 一个字符。 [范例]: (1 令X=”” (空字符串 Len(X 输出结果为0 (2 令X=”abcd” Len(X 输出结果为4 (3 令X=”VB教程” Len(X 输出结果为4 3. Mid(X函数:读取字符串X中间的字符 [格式]: P=Mid(X,n 由X的第n个字符读起,读取后面的所有字符。 P=Mid(X,n,m 由X的第n个字符读起,读取后面的m个字符。 [范例]: (1 X=”abcdefg” P=Mid(X,5 结果为:P=”efg” (2 X=”abcdefg” P=Mid(X,2,4 结果为 P=”bcde” 4. R eplace: 将字符串中的某些特定字符串替换为其他字符串 [格式]: P=Replace(X,S,R [说明]:将字符串X中的字符串S替换为字符串R,然后返回。[范例]:X=”VB is very good” P=Replace(X,good,nice 输出结果为:P=”VB is very nice” 5. StrReverse:反转字符串 [格式]: P=StrReverse(X [说明]:返回X参数反转后的字符串 [范例]:(1)X=”abc” P=StrReverse(X 输出结果:P=”cba” 6. Ucase(X,Lcase(X:转换英文字母的大小写 [格式]:P=Lcase(X ‘ 将X字符串中的大写字母转换成小写P=Ucase(X ‘ 将X字符串中的小写字母转换成大写 [说明]:除了英文字母外,其他字符或中文字都不会受到影响。 [范例]:(1)令X=”VB and VC” 则Lcase(X的结果为”vb and vc”,Ucase(X的结果为”VB AND VC” 7. InStr函数:寻找字符串 [格式]: P=InStr(X,Y 从X第一个字符起找出Y出现的位置 P=InStr(n,X,Y 从X第n个字符起找出Y出现的位置 [说明]:(1)若在X中找到Y,则返回值是Y第一个字符出现在X中的位置。(2) InStr(X,Y相当于 InStr(1,X,Y。(3)若字符串长度,或X为空字符串,或在X中找不到Y,则都 返回0。(4)若Y为空字符串,则返回0。 ---------------------------------------------------------------------------------------------- mid(字符串,从第几个开始,长度 ByRef 在[字符串]中[从第几个开始]取出[长度个字符串] 例如 mid("小欣无敌",1,3 则返回 "小欣无" instr(从第几个开始,字符串1,字符串2 ByVal 从规定的位置开始查找,返回字符

VBS函数的简单库

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。 Description 属性返回或者设置说明某个错误的字符串。 Dictionary 对象存储数据键、项目对的对象。 Dim 语句声明变量并分配存储空间。 除法运算符(/) 两数相除并以浮点数格式返回商。 Do...Loop 语句当条件为True 或者当条件变为True 时,重复一语句块。 Empty 表示尚未初始化的变量值。 Eqv 运算符使两个表达式相等。 Erase 语句重新初始化固定数组的元素并重新分配动态数组的存储空间。

wincc中使用vbs常用函数.

wincc 中使用vbs 常用函数 1. 函数array() 功能: 创建一个数组变量 格式:array(list) 参数:list 为数组变量中的每个数值列,中间用逗号间隔 例子: <% i = array ( “1”, ”2”, ”3”) %> 结果: i 被赋予为数组 2. 函数Cint() 功能: 将一表达式/ 其它类型的变量转换成整数类型(int) 格式:Cin t(expressio n_r) 参数:expression」是任何有效的表达式/其它类型的变量 例子: <% f = ” 234” response.write cINT(f) + 2 %> 结果: 236 函数Cint() 将字符” 234”转换成整数234.如果表达式为空, 或者无效时, 返回值为0; 3. 函数:Creatobject() 功能: 创建及返回一个ActiveX 对象. 格式:Creatobject(obname)

参数bname 是对象的名称 例子: <% Set con = Server.CreateObject( “ADODB.Connection”) %> 结果: 4. 函数Cstr() 功能: 将一表达式/其它类型的变量转换成字符类型(string) 格式:Cstr(expression_r) 参数:expression」是任何有效的表达式/其它类型的变量例子: <% s = 3 + 2 response.write ”The result is: ” & cStr(s) %> 结果: 函数Cstr() 将整数 5 转换成字符” 5”. 5. 函数Date() 功能: 返回当前系统(server 端) 的日期 格式: Date() 参数:无 例子<% date () %> 结果:05/10/00

VB常用函数

VB常用函数: 1.数值型函数: int(num): 取整int(99.8)=99; int(-99.2)=-100 fix(num):取整fix(99.8)=99; fix(-99.2)=-99 round(num,n): 四舍五入取小数位round(3.14159,3)=3.142 中点数值四舍五入为近偶取整round(3.25,1)=3.3 sqr(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:ss Csng(str):转换为单精度数值 Cdbl(str):转换为双精度数值 Cdate() 4.时间函数: date:取系统当前日期

Pascal常用字符串函数

一、数学函数: Inc(i) 使I:=I+1; Inc(I,b) 使I:=I+b; Abs(x) 求x的绝对值例:abs(-3)=3 Chr(x) 求编号x对应的字符。例:Chr(65)=’A’ chr(97)=’a’ chr(48)=’0’ Ord(x) 求字符x对应的编号。例:ord(‘A’)=65 ord(‘a’)=97 另外:ord(false)=0 o rd(true)=1 Sqr(x) 求x的平方。例:sqr(4)=16 Sqrt(x)求x的开方. 例:sqrt(16)=4 round(x) 求x的四舍五入例:round(4.5)=5 trunc(x) 求x的整数部分例:trunc(5.6)=5 结果是integer型 int(x) 求x的整数部分例int(5.6)=5.0 结果是real型 frac (x)求x的小数部分例frac(5.6)=0.6 pred(x) 求x的前导pred(‘b’)=’a’ pred(5)=4 pred(true)=false succ(x) 求x的后继succ(‘b’)=’c’ succ(5)=6 succ(false)=true odd(x) 判断x是否为奇数。如果是值为true,反之值为false. Odd(2)=false od d(5)=true power(a,n) 求a的n次方power(2,3)=8 exp(b*ln(a)) a的b次方 random 取0~1之间的随机数(不能取到1) randomize 随机数的种子函数,在每次设置随机数时都要把这个函数放在最前面. Fillchar(a,size(a),0) 数组初始化,即把数组a的值全部置为0 SHR: x SHR n 把x换成二进制后向右移n位,相当于把x 除以2n a shr n 等价于a div (2^n) SHL: x SHL n把x换成二进制后向左移n位,相当于把x 乘以2n 二、字符串函数 1. 连接运算concat(s1,s2,s3…sn) 相当于s1+s2+s3+…+sn. 例:concat(‘11’,’aa’)=’11aa’; 2. 求子串。Copy(s,i,L) 从字符串s中截取第i个字符开始后的长度为L的子串。 例:copy(‘abdag’,2,3)=’bda’ 3. 删除子串。过程Delete(s,i,L) 从字符串s中删除第i个字符开始后的长度为L的子串。

vb字符串处理函数

vb字符串处理函数 Posted on 2012-04-09 14:52 ╰★张志峰★╮阅读(1996) 评论(0) 编辑收藏 vb字符串处理函数 LEN字串長度函數:計算字串的長度。函數運算式結果 len("abcd") 4 len("中文字") 3 len(abc中文) 5 MID取部份字串函數:依開始位置擷取固定長度字串。函數運算式結果 mid("vbscript",3,3) scr mid("vbscript",3) script mid("vbscript",1,2) vb LEFT字串開頭取部份字串函數:將某一字串由開頭擷取固定長度。函數運算式結果left("vbscript",2) vb left("vbscript",5) vbscr RIGHT字串結尾取部份字串函數:將某一字串由結尾擷取固定長度。函數運算式結果right("vbscript",2) pt right("vbscript",6) script LCASE轉大寫函數:將字串中的大寫字母變成小寫。函數運算式結果 lcase("VBScript") vbscript lcase("VBScript程式") vbscript程式 UCASE轉小寫函數:將字串中的小寫字母變成大寫。函數運算式結果 ucase("VBScript") VBSCRIPT ucase("VBScript程式") VBSCRIPT程式 TRIM刪除頭及尾空白字元函數:將字串開頭及結尾的空白字元刪除。 LTRIM刪除開頭空白函數:將字串開頭的空白字元刪除。 RTRIM刪除結尾空白函數:將字串結尾的空白字元刪除。函數運算式結果 trim(" VBScript ") VBScript ltrim(" VBScript ") VBScript rtrim(" VBScript ") VBScript REPLACE替代字串函數:將字串中的某字串用另一字串代替。函數運算式結果replace("VBScript","VB","JAVA") JAVAScript

acm常用字符串处理函数

sstrstr与strchar用法 原型:extern char *strstr(char *haystack, char *needle); 用法:#include 功能:从字符串haystack中寻找needle第一次出现的位置(不比较结束符NULL)。 说明:返回指向第一次出现needle位置的指针,如果没找到则返回NULL。 举例: #include #include main() { char *s="Golden Global View"; char *l="lob"; char *p; clrscr(); p=strstr(s,l); if(p) printf("%s",p); else printf("Not Found!"); getchar(); return 0; } 语法:int strstr(str1,str2) str1: 被查找目标string expression to search. str2:要查找对象The string expression to find. 该函数返回str2第一次在str1中的位置,如果没有找到,返回NULL The strstr() function returns the ordinal position within str1 of the first occurrence of str2. If str2 is not found in str1, strstr() returns 0. 例子: 功能:从字串” string1 onexxx string2 oneyyy”中寻找”yyy” (假设xxx和yyy都是一个未知的字串) char *s=” string1 onexxx string2 oneyyy”; char *p; p=strstr(s,”string2”); if(!p) printf(“Not Found!”); p=strstr(p,”one”); if(!p) printf(“Not Found!”); p+=strlen(“one”) printf(“%s”,p); 说明:如果直接写语句p=strstr(p,”one”),则找到的是xxx,不符合要求 所以需采用二次查找法找到目标

VB专题:字符处理之字符替换

1. 字符串函数的使用 (1)Len(s): 应用:s=Text1.Text 求字符串s长度的表达式:①。 ②。 (2)Mid(s,i,n) 或 Mid(s,i): 应用: 2. 字符串连接: 应用: (1)顺序连接(表达式或赋值语句):。 (2)倒序连接(表达式或赋值语句):。 1.单个字符替换 任务描述:将字符串中的特定单个字符替换成另一个特定字符,如图所示:将text1中的”偶”(由Text2输入)替换成”我”(由Text3输入),将替换后的字符串由Text4输出。

Text1 Text2 Text3 Private Sub Command1_Click() Dim s As String, ss As String,c1 As String, c2 As String s = Text1.Text: c1 = Text2.Text: c2 = Text3.Text: ss = "" For i = 1 To Len(s) If ①Then‘取子串,判断是否需要替换 ss = ss + ②‘有替换的连接 Else ss = ss + ③‘无替换的连接 End If Next i Text4.Text = ss End Sub 思考并写出相应语句,然后完成上面的填空: (1)如何取子串? (2)如何判断?(是否需要替换) (3)如何连接字符串?替换 未替换 2.任意长度字符串替换 (1)(方法一)任务描述:将字符串中的特定字符串替换成另一个任意长度特定字符串,如图所示:将Text1中的”中学”(由Text2输入)替换成”middle school”(由Text3输入),将替换后的字符串由Text4输出。

VB字符串转换函数

VB中涉及到的数据进制之间的转换函数主要有如下几个: Hex 函数: 返回代表十六进制数值的String; Oct 函数: 返回代表一数值的八进制值的V ariant (String); Cint函数: 强制将一个表达式转换成-32,768 至32,767的整型; CLng函数: 强制将一个表达式转换成-2,147,483,648 至2,147,483,647的长整型; Cdec函数: 强制将一个表达式转换成Decimal 数据类型; CDbl函数: 强制将一个表达式转换成Double 数据类型; 以上这些函数是最基本的几个数据进制之间的转换函数,其中以前三个函数最常用,也最有用.从上面几个函数我们可以看到,VB中没有为我们提供专门的函数供我们将表达式或是数据转换成十进制和二进制,不过十进制的转换我们可以通过Cint函数轻松完成,而二进制的实现我们可以通过二进制和八进制,十六进制的关系轻松转换. 下面几个例子为Hex函数和Oct函数以及Cint函数的实例: (1). A= hex(5) 返回5; (2). B=hex(10) 返回A (3). C=hex(23) 返回17 (4). D=oct(5) 返回5 (5). E=oct(10) 返回12 (6). F=oct(23) 返回27 (7). G=Cint(&H17) 返回23 (8) . H=Cint(&O12) 返回10 以上这些函数的应用比较简单,就不多说了,值得一提的是Hex函数和Oct函数返回的都是字符串,如果是想将十六进制或是八进制的字符串变量转换成十进制,可以按如下方法进行: C=”17” 17为十六进制数值的String C=”&H” & C Ic=Cint(C) 返回23 2. 字符串和数字转换函数 VB中的字符串函数比较多,也比较方便,就不一一介绍了.本文主要对字符串相关的转换函数做一些小结.字符串转换的函数主要有: Str()和V al()用于字符串和数字的相互转换; Chr()和Asc()用于字符串和AscII码的相互转换; Chrw()和Ascw()用于Unicode码和中文的相互转换; Format()函数用途十分广泛的一个函数,功能十分强大. 在这些函数中前两对和Format()函数是我们经常用到的,这里只给出前两对的几个简

vbs经典脚本

Vbs脚本经典教材 Vbs脚本经典教材(最全的资料还是MSDN) —为什么要使用Vbs? 在Windows中,学习计算机操作也许很简单,但是很多计算机工作是重复性劳动,例如你每周也许需要对一些计算机文件进行复制、粘贴、改名、删除,也许你每天启动计算机第一件事情就是打开W ORD,切换到你喜爱的输入法进行文本编辑,同时还要播放优美的音乐给工作创造一个舒心的环境,当然也有可能你经常需要对文本中的某些数据进行整理,把各式各样的数据按照某种规则排列起来……。这些事情重复、琐碎,使人容易疲劳。 第三方软件也许可以强化计算机的某些功能,但是解决这些重复劳动往往事倍功半,我也尝试过使用计算机语言编写程序来解决这些问题,但是随之而来的命令、语法、算法、系统框架和类库常常让我觉得这样是否有必要,难道就是因为猪毛比较难拔,所以我就要去学习机械,为自己设计一个拔猪毛机(?)吗? Vbs是一种Windows脚本,它的全称是:Microsoft Visual Basic Script Editon.(微软公司可视化BASIC脚本版),VBS是Visual Basic的的一个抽象子集,是系统内置的,用它编写的脚本代码不能编译成二进制文件,直接由Windows系统执行(实际是一个叫做宿主host的解释源代码并执行),高效、易学,但是大部分高级语言能干的事情,它基本上都具备,它可以使各种各样的任务自动化,可以使你从重复琐碎的工作中解脱出来,极大的提高工作效率。 我个人认为Vbs脚本其实就是一种计算机编程语言,但是由于缺少计算机程序设计语言中的部分要素,对于事件的描述能力较弱,所以称为脚本,它最方便的地方就是提供了对COM对象的简便支持。那么什么是COM对象呢? 我这样理解,COM对象就是一些具有特定函数功能项程序模块,他们一般以ocx或者dll作为扩展名,你只要找到包含有你需要的功能的模块文件,并在脚本中规范的引用,就可以实现特定的功能,也就是说Vbs脚本就是调用现成的“控件”作为对象,用对象的属性和方法实现目的,完全免去了编写代码、设计算法等等麻烦。说白了,我不是觉得拔猪毛麻烦么?我发觉xx机(比如真空离心器)有一个功能可以实现脱毛,ok,我把它拿来给猪脱毛。什么?大材小用?太浪费资源了?天哪,那是计算机芯片的事情,死道友不死贫道,反正我的事情是方便快速的解决了,这就行了。 最方便的是它甚至不需要专门的开发环境,在你的计算机中,只要有notepad,就可以编写Vbs 脚本了,并且可以直接执行。

(完整版)vb_字符串处理函数大全

mid(字符串,从第几个开始,长度)ByRef 在[字符串]中[从第几个开始]取出[长度个字符串] 例如mid("坦然面对",1,3) 则返回"坦然面" instr(从第几个开始,字符串1,字符串2)ByVal 从规定的位置开始查找,返回字符串2在字符串1中的位置 例如instr(1,"坦然面对","坦") 则返回1,instr(2,"坦然面对","坦"),则返回0 。0 表示未找到 InStrRev(字符串1,字符串2,从第几个开始) ByVal 从规定的位置开始,从后住前查找,返回字符串2在字符串1中的位置,此处注意,虽是从后住前查找,但是返回的值还是从前往后算的。 例如instrRev("坦然面对","坦",2) 则返回2 ; instrRev("坦然面对","然",1) 则返回0 ,因为它从"坦然面对"的第1个字开始往前查找,所以找不到。0 表示未找到 left(字符串,长度) ByVal 从[字符串]的左边开始返回[长度]个字符 例如Left("坦然面对",3) 则返回"坦然面" right(字符串,长度) ByVal 从[字符串]的右边开始返回[长度]个字符 例如Right("坦然面对",3) 则返回"然面对" ucase(字符串) ByVal 返回[字符串]的大写形式,只对英文字符有效 例如ucase("tanRANmiAnDui") 则返回"TANRANMIANDUI" lcase(字符串) ByVal 返回[字符串]的小写形式,只对英文字符有效 例如lcase("tanRANmiAnDui") 则返回"tanranmiandui" asc(字符) Byval返回[字符]的ascii编码,若有多个字符,则只返回首字符的ascii编码,和Chr()函数是一个可逆的过程 例如asc("坦") 则返回-13127; asc("坦然面对") 也返回-13127 chr(ASCii编码) Byval 返回[Ascii]编码所代表的字符,和Chr()函数是一个可逆的过程 例如chr(-13127) 则返回"坦" ;chr(asc("坦")) 则返回"坦"(这里是为了说明asc和chr的可逆性,例用此特性可以加密文本) trim(字符串) Byval 返回去掉了前、后之后的[字符串] 例如trim("坦然面对") 则返回"坦然面对" ,中间的空格不受任何影响 string(个数,字符) Byval 返回[个数]个[字符] 例如string(3,"坦") 则返回"坦坦坦" , 而string(3,"坦然面对") 也返回"坦坦坦",只有首字符才有效 space(个数) Byval 返回[个数]个空格 例如space(5) 则返回""

java 字符串常用函数及其用法

java中的字符串也是一连串的字符。但是与许多其他的计算机语言将字符串作为字符数组处理不同,Java将字符串作为String类型对象来处理。将字符串作为内置的对象处理允许Java提供十分丰富的功能特性以方便处理字符串。下面是一些使用频率比较高的函数及其相关说明。 String相关函数 1)substring() 它有两种形式,第一种是:String substring(int startIndex) 第二种是:String substring(int startIndex,int endIndex) 2)concat() 连接两个字符串 例:String s="Welcome to "; String t=s.concat("AnHui"); 3)replace() 替换 它有两种形式,第一种形式用一个字符在调用字符串中所有出现某个字符的地方进行替换,形式如下: String replace(char original,char replacement) 例如:String s=”Hello”.replace(’l',’w'); 第二种形式是用一个字符序列替换另一个字符序列,形式如下: String replace(CharSequence original,CharSequence replacement) 4)trim() 去掉起始和结尾的空格 5)valueOf() 转换为字符串 6)toLowerCase() 转换为小写 7)toUpperCase() 转换为大写 8)length() 取得字符串的长度 例:char chars[]={’a',’b’.’c'}; String s=new String(chars); int len=s.length(); 9)charAt() 截取一个字符 例:char ch; ch=”abc”.charAt(1); 返回值为’b’ 10)getChars() 截取多个字符 void getChars(int sourceStart,int sourceEnd,char target[],int targetStart) sourceStart 指定了子串开始字符的下标 sourceEnd 指定了子串结束后的下一个字符的下标。因此,子串包含从sourceStart到sourceEnd-1的字符。

字符串处理函数大全

字符串处理函数大全 bcmp(比较内存内容)相关函数 bcmp,strcasecmp,strcmp,strcoll,strncmp,strncasecmp 表头文件;include 定义函数;int bcmp ( const void *s1,const void * s2,int n); 函数说明;bcmp()用来比较s1和s2所指的内存区间前n个字节,若参数n为0,则返回0。返回值;若参数s1 和s2 所指的内存内容都完全相同则返回0 值,否则返回非零值。 附加说明;建议使用memcmp()取代。 范例:参考memcmp()。 //================================================================ bcopy(拷贝内存内容)相关函数 memccpy,memcpy,memmove,strcpy,ctrncpy 表头文件;#include 定义函数;void bcopy ( const void *src,void *dest ,int n); 函数说明;bcopy()与memcpy()一样都是用来拷贝src所指的内存内容前n个字节到dest所指的地址,不过参数src与dest在传给函数时是相反的位置。 返回值 ;附加说明建议使用memcpy()取代 范例 #include main() { char dest[30]=”string(a)”; char src[30]=”string\0string”; int i; bcopy(src,dest,30);/* src指针放在前*/ printf(bcopy(): “) for(i=0;i<30;i++) printf(“%c”,dest[i]); memcpy(dest src,30); /*dest指针放在钱*/ printf(…\nmemcpy() : “); for(i=0;i<30;i++) printf(“%c”,dest[i]); 执行 bcopy() : string string memcpy() :string sring //================================================================ bzero(将一段内存内容全清为零)相关函数 memset,swab 表头文件;#include 定义函数;void bzero(void *s,int n); 函数说明:bzero()会将参数s所指的内存区域前n个字节,全部设为零值。相当于调用memset((void*)s,0,size_tn); 返回值:附加说明建议使用memset取代

VB中StrConv函数用法

VB中StrConv(Text1.Text, vbFromUnicode)是什么意思啊?请高手指点,谢谢! 2012-07-14 13:42小恨有疆|分类:VB |浏览6443次 分享到: 举报| 2012-07-14 13:50提问者采纳 返回按指定类型转换的Variant (String)。 语法 StrConv(string, conversion, LCID) StrConv 函数的语法有下面的命名参数: 部分说明 string 必要参数。要转换的字符串表达式。 conversion 必要参数。Integer。其值的和决定转换的类型。 LCID 可选的。如果与系统LocaleID不同,则为LocaleID(系统LocaleID 为缺省值。) 设置值 conversion 参数的设置值为: 常数值说明 vbUpperCase 1 将字符串文字转成大写。 vbLowerCase 2 将字符串文字转成小写。 vbProperCase 3 将字符串中每个字的开头字母转成大写。 vbWide* 4* 将字符串中单字节字符转成双字节字符。 vbNarrow* 8* 将字符串中双字节字符转成单字节字符。vbKatakana** 16** 将字符串中平假名字符转成片假名字符。vbHiragana** 32** 将字符串中片假名字符转成平假名字符。vbUnicode 64 根据系统的缺省码页将字符串转成Unicode。vbFromUnicode 128 将字符串由Unicode 转成系统的缺省码页。 *应用到远东国别。**仅应用到日本。 注意这些常数是由VBA 指定的。可以在程序中使用它们来替换真正的值。其中大部分是可以组合的,例如vbUpperCase + vbWide,互斥的常数不能组合,例如vbUnicode + vbFromUnicode。当在不适用的国别使用常数vbWide、vb Narrow、vbKatakana,和vbHiragana 时,就会导致运行时错误。 下面是一些一般情况下的有效分界符:Null (Chr$(0)),水平制表符(Chr$(9)),换行(Chr$(10)),垂直制表符(Chr$(11)),换页(Chr$(12)) ,回车(Chr$(13)),空白(SBCS) (Chr$(32))。在DBCS中,空白的实际值会随国家/地区而不同。说明 在把ANSI 格式的Byte 数组转换为字符串时,您应该使用StrConv 函数。当

wincc中使用vbs的常用函数

wincc中使用vbs的常用函数 1.函数array() 功能:创建一个数组变量 格式:array(list) 参数:list为数组变量中的每个数值列,中间用逗号间隔 例子: <%i=array(“1”,”2”,”3”)%> 结果:i被赋予为数组 2.函数Cint() 功能:将一表达式/其它类型的变量转换成整数类型(int) 格式:Cint(expression) 参数:expression是任何有效的表达式/其它类型的变量 例子: <% f=”234” response.write cINT(f)+2 %> 结果:236 函数Cint()将字符”234”转换成整数234.如果表达式为空,或者无效时,返回值为0; 3.函数:Creatobject() 功能:创建及返回一个ActiveX对象. 格式:Creatobject(obname) 参数bname是对象的名称 例子: <% Set con=Server.CreateObject(“ADODB.Connection”) %> 结果: 4.函数Cstr() 功能:将一表达式/其它类型的变量转换成字符类型(string) 格式:Cstr(expression) 参数:expression是任何有效的表达式/其它类型的变量 例子: <% s=3+2 response.write”The result is:”&cStr(s) %> 结果:函数Cstr()将整数5转换成字符”5”. 5.函数Date() 功能:返回当前系统(server端)的日期

格式:Date() 参数:无 例子<%date()%> 结果:05/10/00 6.函数Dateadd() 功能:计算某个指定的时间和 格式:dateadd(timeinterval,number,date) 参数:timeinterval是时间单位(月,日..);number是时间间隔值,date是时间始点. 例子: <% currentDate=#8/4/99# newDate=DateAdd(“m”,3,currentDate) response.write newDate %><% currentDate=#12:34:45PM# newDate=DateAdd(“h”,3,currentDate) response.write newDate %> 结果: 11/4/99 3:34:45PM 其中 “m”=”month”; “d”=”day”; 如果是currentDate格式,则, “h”=”hour”; “s”=”second”; 7.函数Datediff() 功能:计算某量个指定的时间差 格式:datediff(timeinterval,date1,date2[,firstdayofweek[,firstdayofyear]]) 参数:timeinterval是时间单位;date1,date2是有效的日期表达式,firstdayofweek,firstdayofyear是任意选项. 例子: <% fromDate=#8/4/99# toDate=#1/1/2000# response.write”There are”&_ DateDiff(“d”,fromDate,toDate)&_ “days to millenium from8/4/99.” %> 结果:There are150days to millenium from8/4/99. 8.函数day() 功能:返回一个整数值,对应于某月的某日 格式:day(date)

很好的VBS教程(带实例)

很好的VBS教程(带实例) 推荐第一篇: 讲一下VBScript。主要面向菜鸟,懂得编程的朋友就不要浪费时间了,如果你想接触以下VBScript也可以。但既然有编程基础推荐直接去找一些参考书来读。会比较快。 什么是VBScript呢?VBScript的全称是:Microsoft Visual Basic Script Editon.(微软公司可视化BASIC脚本版)。正如其字面所透露的信息,VBS(VBScript的进一步简写)是基于Visual Basic的脚本语言。我进一步解释一下,Microsoft Visual Basic是微软公司出品的一套可视化编程工具,语法基于Basic.脚本语言,就是不编译成二进制文件,直接由宿主(host)解释源代码并执行,简单点说就是你写的程序不需要编译成.exe,而是直接给用户发送.vbs 的源程序,用户就能执行了。 我知道菜鸟现在最关心的就是用什么工具来开发VBS程序了,答案是:记事本(Notepad).我不是开玩笑,其实任何一种文本编辑器都可以用来开发VBS开发,只不过记事本是由系统自带的,比较好找而已. 尽管如此,我还是建议你去下载一个专业的文本编辑器,因为这些工具可以提供"语法高亮"等功能,更加方便开发,用哪一个随你喜好,我比较喜欢Edit Plus (2.10). OK,我们先来写一个VBScript程序热热身. REM 输入并回显你的名字 '使用InputBox和Msgbox函数 Dim name,msg msg="请输入你的名字:" name=Inputbox(msg,"名称") Msgbox(name) 把上面的程序清单输入到记事本里面,然后保存为以.vbs为扩展名的文件("保存类型"里面选择"所有文件").然后双击运行,观察运行结果. 注意:请自己输入程序清单,不要复制->粘贴! 我来解释一下这个程序,第一行和第二行的开头分别是"REM"语句和" ' ",这两个东西的作用是相同的,表示本行是注释行,就是说这两行什么也不干,只是用来说明这段程序的功能,信息等等. 注释行是程序最重要的部分之一,尽管它不是必需的,但对于其他人阅读源代码,以及自己分析源代码是很有好处的. 好的习惯是在必要的地方加上清晰,简洁的注释。 Dim用来声明一个变量,在VBS中,变量类型并不是那么重要,就是说VBS会帮你自动识别变量类型,而且变量在使用前不一定要先声明,程序会动态分配变量空间. 在VBS 中你不用考虑name储存的是一个整数还是一个小数(学名叫"浮点数"),也不用考虑是不是字符串(一串字符,比如:"Hello World"),VBS会自动帮你搞定. 所以第三行语句可以删除,效果不会变,但我强烈反对这么做,一个变量的基本原则就是:先声明,后使用.变量名用字母开头,可以使用下划线,数字,但不能使用vbs已经定义的字,比如dim,也不能是纯数字。 下一行被称之为"赋值","="是赋值符号,并不是数学中的等于号,尽管看起来一样.这

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 函数返回指定年月日的日期子类型的变体。 DateV alue 函数返回日期子类型的变体。 Day 函数返回日期,取值范围为1 至31。 Description 属性返回或者设置说明某个错误的字符串。 Dictionary 对象存储数据键、项目对的对象。 Dim 语句声明变量并分配存储空间。 除法运算符(/) 两数相除并以浮点数格式返回商。 Do...Loop 语句当条件为True 或者当条件变为True 时,重复一语句块。Empty 表示尚未初始化的变量值。

vbs基础语法

一、变量 1、注释:(单引号) 2、变量的命名规则:不区分大小写的。用Dim声明变量,此时不能给变量赋值。但是允许在一行代码内同时对两个变量进行赋值,中间用冒号分隔。 3、你可以使用OptionExplicit来告诉宿主变量必须先声明后使用。 4、只有一种变量类型,使用类型转换函数来将变量转换成相应的变量类型。 布尔:Cbool函数将变量转换成布尔值; 整数:Cbyte函数将变量转换为0到255之间的整数。 浮点:Ccur函数、Cdbl函数和Csng函数将变量转换为浮点数值, 日期:Cdate函数将变量转换为日期值。 整数:Cint函数和Clng函数将变量转换为整数,后者的范围比前者要大的多。 字串:Cstr函数将变量转换为字符串。 ------------------------- 三、操作符 在VBScript运算符中,加减乘除都是我们常用的符号, 乘方使用的是^ , 取模使用的Mod。 在比较操作符中,等于、小于、大于、小于等于、大于等于都与我们常用的符号是一致的,而不等于是小于和大于连用。 逻辑运算符为: 和操作—>AND 非操作—>NOT 或操作—>OR;

+ 和操作符 &来连接字符串, Is用来比较对象,例如按钮对象,如果对象是同一类型,结果就是真,--------------------------------------- 四、条件语句 if……then语句, 其基本形式为: If 条件then 处理条件的语句; …… Endif Select case语句, 其基本形式为: Select case 变量 Case 条件值 处理条件语句 并对上两句进行重复 最后一句应为 case else 处理语句 End select 注意:在执行字符串比较时,需要特别注意大小写。

相关文档