Function Chr(CharCode As Long)
Asc函数用来取一个字符串的第一个字符的Ascii编码。它是美国信息交换标准码 (American Standard Code for information Interchange)。例如:Asc(“A”)返回值为65。注意:中文字符等也能使用该函数,同样能返回一个对应的整型值。
Chr函数是Asc函数的逆运算。代码Chr(65)可以返回字符串值”A”。它的返回类型是一般是字符串。我们常用这个函数来取一些无法直接输入或输入困难的字符,如回车符Chr(13)等等。 MID函数、Right函数和left函数 Function MID(String,Start As Long,[Length])
Function Right(String,Length As Long)
Function left(String,Length As Long) 用法举例:
Print MID(“ABCDEFGHIJK”,2,3)Print MID(“ABCDEFGHIJK”,10)Print MID(“ABCDEFGHIJK”,2)Print MID(“ABCDEFGHIJK”,11)运行结果为:
BCDBCDEFGHIJKBCDEFGHIJKBCDEFGHIJKRight(left)是取右边(左边)指定长度的字符,如:
Print Right (“ABCDEFGHIJK”,2)Print left (“ABCDEFGHIJK”,2)运行结果为:
KJAB
这三个函数还存在另一个形式,即MID
Function Format(Expression,[Format],
[FirstDayOfWeek As VbDayOfWeek = vbSunday],
[FirstWeekOfYear As VbFirstWeekOfYear = vbFirstJan1])
常用的使用方法:
Format(12.34)为 ”12.34”0 Format(12.34,“0000.000”)为 “0012.340”: Format(1,“00:”)为 “05:”,Format(12345.67,“##,###.###”)为 “12,345.67”% Format(123.4567,“00.0%”)为 “12345.7%”(四舍五入)@ Format(”ABcd”,“@@@@@@”)为 “Abcd”< Format(”ABcd”,“<@@@@@@”)为 “abcd”> Format(”ABcd”,“>@@@@@@”)为 “ABCD”! Format(”ABcd”,“!@@@@@@”)为 “Abcd”
注意:该函数同样也有另一种形式,即Format
Function Replace(Expression As String,Find As String,Replace As String,[Start As Long = 1],[Count As Long = -1],[Compare As VbCompareMethod = vbBinaryCompare]) As StringReplace函数的返回值是源字符串(从参数Start位置开始)经过替换后的新字符串。若在源字符串中没有匹配与查找的子字符串,函数将不作替换,返回源字符串。
下面举几个例子来说明这个函数的用法:
语句 返回值
Replace("A1BC1DEFG","1","0") "A0BC0DEFG"Replace("A1BC1DEFG","") "ABCDEFG"Replace("A1BC1DEFG","0",3) "BC0DEFG"Replace("A1BC1DEFG",1,1) "A0BC1DEFG"Instr函数
Function InStr([Start],[String1],[String2],[Compare As VbCompareMethod = vbBinaryCompare])
下面取一个详细的实例。任务是在Text1框中的字符串中查找Text2的字符串。希望读者能通过这个实例加深对该函数的理解。
首先新建一工程,在Form1上添加两个文本框(Text1、Text2)和一个按钮(Command1)。 打开代码窗口,在通用声明中输入以下代码,声明变量:
Dim i As Integer '记录查找位置输入实现代码:Private Sub Form_Load()i = 1 '初始开始查找位置Command1.Caption = "查找下一个"End SubPrivate Sub Command1_Click()i = InStr(i,Trim(Text1.Text),Trim(Text2.Text)) '进行查找If i = 0 Then MsgBox "未找到字符串!": i = 1: Exit Sub '没找到Text1.SelStart = i – 1 '设置Text1文本框对查道的字符高亮显示Text1.SelLength = Len(Trim(Text2.Text))Text1.SetFocusi = i + 1 '查找起始位置累计加1End Sub
在Text1文本框中输入源字符串(如“ABCDEwbfGHIWBJKLMNWB”),在Text2文本框中输入要查找的字符串(如“WB”),单击“查找下一个”按钮进行查找。
Space函数Function Space(Number As Long)用此函数返回由指定数目空格组成的字符串。参数Number用于指定空格的数目。它还有另一种形式,即Space
Function Filter(SourceArray,Match As String,[Include As Boolean = True],[Compare As VbCompareMethod = vbBinaryCompare])
返回一个匹配字符串的数组。注意返回值是一个数组类型,其中的元素来自源数组。
参数SourceArray代表了源数组,Martch代表一个欲比较的字符串,Include参数代表了匹配的模式——True为包括,False为不 包括。若设为True,该函数将源数组(SourceArray)中凡是含有比较字符串(Match)的元素组成新的一个数组并返回;若设为False, 该函数将源数组(SourceArray)中凡未是含有比较字符串(Match)的元素组成新的一个数组并返回。Include参数缺省为True。 Compare参数为VB比较模式的一个常量。
Function IsNumeric(Expression) As BooleanIsnumeric函数能够用于判断表达式是否为数字。参数Expression为表达式。如果表达式能够转化成数字则返回True。这里读者要注意它的用法,有些可能比较特殊,比如小数点和正负号等。举例说明:
IsNumeric ("1A") FalseIsNumeric ("&H1A") True 十六进制值IsNumeric ("2e1") True 科学计数法IsNumeric ("2e+1") True 指数正号可省略IsNumeric ("2E+1") True E大小写均可IsNumeric ("2E-1") True 指数为负IsNumeric ("2-") True 注意负号的位置IsNumeric ("-2") True 前后都可IsNumeric ("2+") True 注意正号的位置IsNumeric ("+2") True 前后都可IsNumeric ("2+2") FalseIsNumeric (".") False 小数点IsNumeric (".1") True 小数点前的0省略IsNumeric ("1.1") TrueIsNumeric ("1.1-") True 注意负号StrComp函数
Function StrComp(String1,String2,[Compare As VbCompareMethod = vbBinaryCompare])StrComp函数用于比较两个字符串。如果比较对象两者相同,返回0;否则返回-1。
参数String1和String2代表了两个欲进行比较的字符串,参数Compare为VB比较模式的一个常量。 Split函数
Function Split(Expression As String,[Delimiter],[limit As Long = -1],[Compare As VbCompareMethod = vbBinaryCompare])
分割一个字符串到数组。
参数Expression为源字符串,Delimiter为分隔符(缺省情况下为空格),limit代表分割的数量(当分割数目达到设定值时,函数不会再将之后的字符串分割),参数Compare为VB比较模式的一个常量。
Dim a() As StringDim b() As Stringa = Split("01*23*456*789","*")b = Split("01*23*456*789","*",3)'运行这段代码,a,b是两个数组,它们的结果见下表:A String(0 to 3)a(0) "01" Stringa(1) "23" Stringa(2) "456" Stringa(3) "789" StringB String(0 to 2)b(0) "01" Stringb(1) "23" Stringb(2) "456*789" StringJoin函数
Function Join(SourceArray,[Delimiter]) As String将一个数组中的元素合成为一个字符串。这个函数其实是Split函数的逆运算。
参数SourceArray代表源数组,Delimiter为分隔符(缺省情况下为空格)。
用法举例::
Dim a As StringDim b(1) As Stringb(0) = "012"b(1) = "456"a = Join(b(),"*")'运行结果:a的值为"012*456"。String函数
Function String(Number As Long,Character)
返回一个指定长度的重复字符串。
Number参数用于指定返回字符串的长度,参数Character代表重复的字符。
String(6,“a”)得到的结果为”aaaaaa”。
它还有另一种形式,即String
Function StrReverse(Expression As String) As String翻转一个字符串。
参数Expression代表源字符串,函数将这个字符转翻转并返回。
用法举例:StrReverse(“abcdefg”)结果为”gfedcba”。 Lcase和Ucase函数
Function LCase(String)Function UCase(String)
Lcase函数用于将字符串转化为小写,Ucase函数用于将字符串转化为大写。
参数String为源字符串,注:其中的中文字符是不会转化的。
用法举例:
LCase("ABCdefg文字") "abcdefg文字"UCase("ABCdefg文字") "ABCDEFG文字"这两个函数都还有另一种形式,即Lcase
Function Len(Expression)返回存储一个变量所需的字符串的长度和字节数。
参数Expression为源字符串。
用法举例:
Len("ABCdefg文字")结果为9。Ltrim、Rtrim和Trim函数
Function LTrim(String)Function RTrim(String)Function Trim(String)
LTrim函数用于去除字符串左边的空格;RTrim函数用于去除字符串右边的空格;Trim函数用于去除字符串左右两边的空格。
参数String代表源字符串,函数返回去除空格后的结果。
这三个函数都还有另一种形式,即LTrim
以上是内存溢出为你收集整理的【VB.NET】常用函数概览全部内容,希望文章能够帮你解决【VB.NET】常用函数概览所遇到的程序开发问题。
如果觉得内存溢出网站内容还不错,欢迎将内存溢出网站推荐给程序员好友。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)