精华内容
下载资源
问答
  • 打开记事本Private Sub Command1_Click()Shell "Notepad E:\VB练习\添加DTPicker控件.txt ", vbNormalFocusEnd Sub注:NotePad后有空格要用shell 打开相对路径的txt文件的话可以调用系统的记事本程序,shell ...

    示例代码:

    1.打开记事本

    Private Sub Command1_Click()

    Shell "Notepad E:\VB练习\添加DTPicker控件.txt ", vbNormalFocus

    End Sub

    注:NotePad后有空格

    要用shell 打开相对路径的txt文件的话可以调用系统的记事本程序,shell "notepad.exe" & "空格" & "文本文件名"

    2.打开QQ登陆界面

    Private Sub Command2_Click()

    Shell "D:\Program Files\Tencent\QQ2009\Bin\qq.exe", vbNormalFocus

    End Sub

    3.打开Word文档

    Private Sub Command3_Click(Index As Integer)

    Dim strDir As String

    strDir = "E:\VB练习\Test.doc"

    Select Case Index

    Case 0

    Shell "C:\Program Files\Microsoft Office\OFFICE11\WINWORD.EXE " & strDir, vbHide

    Case 1

    Shell "C:\Program Files\Microsoft Office\OFFICE11\WINWORD.EXE " & strDir, vbNormalFocus

    Case 2

    Shell "C:\Program Files\Microsoft Office\OFFICE11\WINWORD.EXE " & strDir, vbMinimizedNoFocus

    Case 3

    Shell "C:\Program Files\Microsoft Office\OFFICE11\WINWORD.EXE " & strDir, vbNormalNoFocus

    Case 4

    Shell "C:\Program Files\Microsoft Office\OFFICE11\WINWORD.EXE " & strDir, vbMaximizedFocus

    End Select

    End Sub

    注:C:\Program Files\Microsoft Office\OFFICE11\WINWORD.EXE之后有空格

    * 在开始->运行里面能执行的命令用shell函数也行

    Shell的语法:Shell(PathName[,WindowStyle])。

    PathName为必需参数。类型为String,它指出了要执行的程序名,以及任何需要的参数或命令行变量,也可以包括路径名。

    WindowStyle为可选参数。Integer类型,指定在程序运行时窗口的样式。WindowStyle有以下这些值。

    常量 值 描述

    VbHide 0 窗口被隐藏,且焦点会移到隐式窗口。

    VbNormalFocus 1 窗口具有焦点,且会还原到它原来的大小和位置。

    VbMinimizedFocus 2 窗口会以一个具有焦点的图标来显示(缺省值)。

    VbMaximizedFocus 3窗口是一个具有焦点的最大化窗口。

    VbNormalNoFocus 4 窗口会被还原到最近使用的大小和位置,而当前活动的窗口仍然保持活动。

    VbMinimizedNoFocus 6 窗口会以一个图标来显示,而当前活动的窗口仍然保持活动。

    总结一下,Shell就是一个打开应用程序的函数,所带的参数为样式参数。

    展开全文
  • VB字符统计函数

    2009-11-28 00:17:00
    在“通用声明”代码区声明(窗体)模块级变量OptionExplicitDimlettersAsInteger'声明模块级变量,此变量计算字母个数DimspaceAsInteger'空格个数DimdigitAsInteger'数字个数DimothersAsInteger'其他字符个数输入...
    在“通用声明”代码区声明(窗体)模块级变量 
    Option Explicit

    Dim letters As Integer '声明模块级变量,此变量计算字母个数
    Dim space As Integer '空格个数
    Dim digit As Integer '数字个数
    Dim others As Integer '其他字符个数

     
    输入cmdStat_Click()事件过程代码 
    Private Sub cmdStat_Click()
    Dim InputStr As String '局部变量,此变量存储输入的字符串
    Dim i As Integer '循环控制变量,整型
    Dim CaseStr As String '此变量保存储所截取的字符
    letters = 0 '初始化为0
    space = 0
    digit = 0
    others = 0

    InputStr = txtInput.Text '取得输入的字符串
    For i = 1 To Len(InputStr) '开始分别统计个数
     CaseStr = Mid(InputStr, i, 1) '取得某个字符
     Select Case CaseStr
      Case "a" To "z", "A" To "Z" '如果字符是英文字母
       letters = letters + 1
      Case " " '如果字符是空格
       space = space + 1
      Case 0 To 9 '如果字符是数字
       digit = digit + 1
      Case Else '如果字符是其他字母
       others = others + 1
     End Select
    Next

    '以下代码用来显示统计出的结果值
    txtResult1.Text = letters
    txtResult2.Text = space
    txtResult3.Text = digit
    txtResult4.Text = others
    txtResult5.Text = Len(InputStr)
    End Sub

    转载于:https://www.cnblogs.com/no7dw/archive/2009/11/28/1612419.html

    展开全文
  • VB输出数字倒三角?...这里您注意到一个函数是CSTR,它将一个数字转换成一个字符串,它的前后没有空格。用VB编程,将输入的字符串以反序输出?VB编程,输入字符串逆序输出两种方法:代码如下pri...

    用VB输出数字倒三角?

    我知道你想要的结果应该是,如果猜测是真的,那么根据你的想法,代码应该重写为(不需要把关于j的循环从大改小,而是从小改大,这是一般的做法)。实际上,在这段代码中,关于J的循环可以完全删除,代码简化为:结果相同。

    这里您注意到一个函数是CSTR,它将一个数字转换成一个字符串,它的前后没有空格。

    用VB编程,将输入的字符串以反序输出?

    VB编程,输入字符串逆序输出

    两种方法:代码如下

    private sub command1

    Click()

    dim s as string,t as string

    s=InputBox(“input a string”

    print t t

    dim I as integer

    for I=len(s)to 1 step-1

    t=t&amp mid(s,I,1)

    下一步

    print结束苏

    第二个简单版本。

    Private Sub Command1_uclick()

    dim s as string,t as string

    s=输入框(“输入字符串”

    “t=strreverse(s)

    结束子命令!”

    展开全文
  • vb 演示如何去除字符串结尾空格,把输入框中的含有空格的字符串,全部过滤掉空格,这个源码似乎有上结简单了,使用RTrim(),一行代码即可搞定:  Private Sub Command1_Click()  Text2.Text = RTrim(Text1)  End ...
  • 1 VBA中的字符串2 VBA中处理字符串的函数 2.1 比较字符串 2.2 转换字符串 2.3 创建字符串 2.4 获取字符串的长度 2.5 格式化字符串 2.6 查找字符串 2.7 提取字符/字符串 2.8 删除空格 2.9 返回字符代码 2.10 返回数值...

    1 VBA中的字符串2 VBA中处理字符串的函数    2.1 比较字符串    2.2 转换字符串    2.3 创建字符串    2.4 获取字符串的长度    2.5 格式化字符串    2.6 查找字符串    2.7 提取字符/字符串    2.8 删除空格    2.9 返回字符代码    2.10 返回数值代表的相应字符    2.11 使用字节的函数    2.12 返回数组的函数    2.13 连接字符串    2.14 替换字符串    2.15 反向字符串- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

    1 VBA中的字符串VBA不仅可以处理数字,也可以处理文本(字符串)。VBA提供了两类字符串:一类为固定长度的字符串,声明时包含指字的字符数。例如,下面的语句Dim strFixedLong As String*100声明字符串变量后,无论赋予该变量多少个字符,总是只包含100个字符,但字符串最长不超过65526个字符,且需要使用Trim函数去掉字符串中多余的空格。定长字符串只有在必要时才使用。另一类为动态字符串。例如,声明字符串变量Dim strDynamic As String后,可以给该变量任意赋值,最多可包含20亿个字符。

    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -2 VBA中处理字符串的函数2.1 比较字符串通常,在VBA中进行字符串比较时,会用到比较运算符(如=、>等)、Like运算符和StrComp函数。此外,在模块的开头用Option Compare语句指定比较方式。2.1.1 比较运算符可以采用简单的逻辑运算符进行两个字符串的比较,即(大于)、>=(大于或等于)、=(等于)、<>(不等于)。此外,还可以使用Like运算符进行比较。2.1.2 StrComp函数StrComp函数返回字符串比较的结果。其语法为:    StrComp(string1,string2[,compare])其中,参数string1和strng2为必需的参数,可以是任何有效的字符串表达式。参数Compare为可选参数,如果该参数为Null,将发生错误。如果参数Compare设置为常数vbUseCompareOption或-1或忽略该参数,将使用Option Compare语句设置进行比较;如果忽略该参数且没有设置Option Compare语句,则按二进制进行比较;如果参数Compare设置为常数vbBinaryCompare或0,则用二进制进行比较;如果参数Compare设置为常数vbTextCompare或1,则按文本进行比较;如果参数Compare设置为常数vbDatabaseCompare或2,此时仅适用于Microsoft Access,进行基于数据库信息的比较。StrComp函数的返回值为:如果String1String2,则返回值为1;如果String1或String2为Null,则返回值为Null。看看下面的示例:Sub testStringCompare()  Dim MyStr1 As String, MyStr2 As String, MyComp1, MyComp2, MyComp3, MyComp4  MyStr1 = "ABCD"  MyStr2 = "abcd"  MyComp1 = StrComp(MyStr1, MyStr2, 1)    ' 返回 0  MyComp2 = StrComp(MyStr1, MyStr2, 0)    ' 返回 -1  MyComp3 = StrComp(MyStr1, MyStr2)    ' 返回 -1  MyComp4 = StrComp(MyStr2, MyStr1)    '返回1  MsgBox "StrComp(MyStr1, MyStr2, 1)的结果为:" & MyComp1  MsgBox "StrComp(MyStr1, MyStr2, 0)的结果为:" & MyComp2  MsgBox "StrComp(MyStr1, MyStr2)的结果为:" & MyComp3  MsgBox "StrComp(MyStr2, MyStr1)的结果为:" & MyComp4End Sub示例说明:如果StrComp函数的第三个参数值为1,则以文本比较的方式进行字符串比较;如果第三个参数值为0或忽略该参数,则以二进制比较的方式进行字符串比较。注意,文本比较的方式不区分字母大小写,而二进制比较方式则区分大小写。[编程方法和技巧] 完成一次简单的单一比较,如If UCase(sString1)

    2.5 格式化字符串可以使用Format函数规定输出的字符串的格式,其语法为:    Format(expression[,format[,firstdayofweek[,firstweekofyear]]])其中,参数expression必须,为任何有效的表达式;其余参数均可选。参数format表示所要采用的格式,参数firstdayofweek使用常数,表示一星期的第一天,参数firstweekofyear使用常数,表示一年的第一周。在参数format中,使用字符“@”,表示空格或字符占位符,如果在输入的字符串相应位置有字符,则显示该字符,否则显示空格;使用字符“&”,表示空或字符占位符,如果在输入的字符串的相应位置有字符,则显示该字符,否则不显示;使用字符“”,则将所有字符显示为大写格式;使用字符“!”,强制占位符从左向右填满, 满足默认为从右向左。例如下面的代码:Dim strOut  strOut = Format("8888888", "(@@@)&&&-&&&&") '返回(   )888-8888  strOut = Format("8888888", "(&&&)&&&-&&&&") '返回()888-8888在Format函数中,还可以同时格式化普通字符串和空字符串,只须在指定的格式中用分号隔开两个部分,第一部分用于非空字符串,第二部分用于空字符串。例如:strOut = Format("6666666", "(@@@)&&&-&&&&;No Phone") '返回(   )666-6666strOut = Format("", "(@@@)&&&-&&&&;No Phone") '返回No Phone又如,下面的代码将字母全部转换为大写:Dim strOutstrOut = Format("Hello", ">@@@@@") ‘返回HELLO同理,可以使用“说明:用大写形式显示所有字符。范例:Format("vba",">")  返回:VBA!说明:从左向右处理占位符(缺省情况为从右向左处理占位符)。[编程方法和技巧](1) 使用没有格式定义的Format函数格式化数字比使用Str函数格式化数字更好。Format函数与Str函数不同,它会把正数中一般保留用于表示符号的前导空格清除掉。(2) 可以使用Format函数以1000为单位对数字进行标度,做法是在语句中小数点的左边用一个千位分隔符(,)表示标度数字的一个千位;可以使用多个千位分隔符。例如:Format(1000000,"##0,.") 返回:1000.Format(1000000,"##0,,.")  返回:1.

    2.6 查找字符串2.6.1 InStr函数可使用InStr函数返回一字符串在另一字符串中的位置,因此,也可以使用该函数确定一个字符串中是否包含有另一个字符串。其语法为:    InStr([Start,]string1,string2[,compare])其中,参数Start为可选参数,设置查找的起点,如果省略,则从第一个字符的位置开始查找,当指定了参数Compare时,则要指定此参数。参数string1为被查找的字符串,参数string2为要查找的字符串,这两个参数都是必需的。如果在String1中没有找到String2,返回0;如果找到String2,则返回String2第一个出现的首字符位置(即1到String1的长度);如果String2的长度为零,返回Start。可看看下面的示例:Sub test()  Dim SearchString, SearchChar, MyPos  SearchString = "XXpXXpXXPXXP"   '被搜索的字符串  SearchChar = "P"   '要查找字符串 "P" '从第四个字符开始,以文本比较的方式找起,返回值为 6(小写 p)  '小写 p 和大写 P 在文本比较下是一样的  MyPos = InStr(4, SearchString, SearchChar, 1)  Debug.Print MyPos  '从第一个字符开使,以二进制比较的方式找起,返回值为 9(大写 P)  '小写 p 和大写 P 在二进制比较下是不一样的  MyPos = InStr(1, SearchString, SearchChar, 0)  Debug.Print MyPos'缺省的比对方式为二进制比较(最后一个参数可省略)  MyPos = InStr(SearchString, SearchChar)  '返回 9  Debug.Print MyPos  MyPos = InStr(1, SearchString, "W")   '返回 0  Debug.Print MyPosEnd Sub2.6.2 InStrRev函数也可以使用InStrRev函数返回一个字符串在另一个字符串中出现的位置,与InStr函数不同的是,从字符串的末尾算起。其语法为:    InStrRev(String1,String2[,[Start[,compare])参数String1为被查找的字符串,参数String2为要查找的字符串,这两个参数都是必需的。参数Start为可选参数,设置每次查找开始的位置,若忽略则使用-1,表示从上一个字符位置开始查找。参数Compare为可选参数,表示所使用的比较方法,如果忽略则执行二进制比较。下面的示例使用了InStr函数和InStrRev函数,相应的结果不同:Sub test()  Dim myString As String  Dim sSearch As String  myString = "I like the functionality that InsStrRev gives"  sSearch = "th"  Debug.Print InStr(myString, sSearch) '返回8  Debug.Print InStrRev(myString, sSearch) '返回26End Sub

    - - - - - - - - - - - - - - - - - - - - - - -2.7 提取字符/字符串2.7.1 Left函数Left函数可以从字符串的左边开始提取字符或指定长度的字符串,即返回包含字符串中从左边算起指定数量的字符。其语法为:    Left(String,CharNum)其中,如果参数String包含Null,则返回Null;如果参数CharNum的值大于或等于String的字符数,则返回整个字符串。例如,下面的代码返回指定字符串的前两个字符:strLeft=Left(“This is a pig.”,2)Left函数与InStr函数结合,返回指定字符串的第一个词,例如下面的代码:str = "This is a pig."FirstWord = Left(str, InStr(str, " ") - 1)2.7.2 Right函数与Left函数不同的是,Right函数从字符串的右边开始提取字符或指定长度的字符串,即返回包含字符串中从右边起指定数量的字符。其语法为:    Right(String,CharNum)例如:AnyString = "Hello World"    ' 定义字符串MyStr = Right(AnyString, 1)   ' 返回 "d"MyStr = Right(AnyString, 6)  ' 返回 " World"MyStr = Right(AnyString, 20)   ' 返回 "Hello World"如果存放文件名的字符串中没有反斜杠(/),下面的代码将反斜杠(/)添加到该字符串中:If Right(strFileName,1) <> “” Then  strFileName=strFileName & “/”End If下面的函数假设传递给它的参数或者是文件名,或者是包含完整路径的文件名,从字符串的末尾开始返回文件名。Private Function ParseFileName(strFullPath As String)  Dim lngPos As Long, lngStart As Long  Dim strFilename As String  lngStart = 1  Do    lngPos = InStr(lngStart, strFullPath, "/")    If lngPos = 0 Then      strFilename = Right(strFullPath, Len(strFullPath) - lngStart + 1)    Else      lngStart = lngPos + 1    End If  Loop While lngPos > 0  ParseFileName = strFilenameEnd Function2.7.3 Mid函数Mid函数可以从字符串中提取任何指定的子字符串,返回包含字符串中指定数量的字符的字符串。其语法为:    Mid(String,Start[,Len])其中,如果参数String包含Null,则返回Null;如果参数Start超过了String的字符数,则返回零长度字符串(“”);如果参数Len省略或超过了文本的字符数,则返回字符串从Start到最后的所有字符。例如,下面的代码:Str=Mid(“This is a pig.”,6,2)将返回文本“is”。下面的代码:MyString = "Mid Function Demo"   '建立一个字符串FirstWord = Mid(MyString, 1, 3)   '返回 "Mid"LastWord = Mid(MyString, 14, 4)  '返回 "Demo"MidWords = Mid(MyString, 5)   '返回 "Funcion Demo"Mid函数常用于在字符串中循环,例如,下面的代码将逐个输出字符:Dim str As StringDim i As IntegerStr=”Print Out each Character”For i=1 to Len(str)  Debug.Print Mid(str,i,1)Next i2.7.4 Mid语句Mid语句可以用另一个字符串中的字符替换某字符串中指定数量的字符。其语法为:    Mid(Stringvar,Start[,Len])=string其中,参数Stringvar代表为要被更改的字符串;参数Start表示被替换的字符开头位置;参数Len表示被替换的字符数,若省略则全部使用string;参数string表示进行替换的字符串。被替换的字符数量总小于或等于Stringvar的字符数;如果string的数量大于Len所指定的数量,则只取string的部分字符。示例如下:MyString = "The dog jumps"   ' 设置字符串初值Mid(MyString, 5, 3) = "fox" ' MyString = "The fox jumps"Mid(MyString, 5) = "cow"   ' MyString = "The cow jumps"Mid(MyString, 5) = "cow jumped over"    ' MyString = "The cow jumpe"Mid(MyString, 5, 3) = "duck"    ' MyString = "The duc jumpe"- - - - - - - - - - - - - - - - - - - - - - -

    2.8 删除空格LTrim函数删除字符串前面的空格;RTrim函数删除字符串后面的空格;Trim函数删除两头的空格。示例如下:MyString = "    "  ' 设置字符串初值TrimString = LTrim(MyString)    ' TrimString = "  "TrimString = RTrim(MyString)   ' TrimString = "  "TrimString = LTrim(RTrim(MyString)) ' TrimString = ""' 只使用 Trim 函数也同样将两头空格去除TrimString = Trim(MyString)   ' TrimString = ""- - - - - - - - - - - - - - - - - - - - - - -

    2.9 返回字符代码Asc函数返回指定字符串表达式中第一个字符的字符代码。示例如下:MyNumber = Asc("A")   ' 返回 65MyNumber = Asc("a")  ' 返回 97MyNumber = Asc("Apple")   ' 返回 65[编程方法和技巧](1) 在数据验证中用Asc来决定一些条件,如第一个字符是大写还是小写、是字母还是数字。Private Sub CommandButton1_Click()  Dim sTest As String  Dim iChar As Integer  sTest = TextBox1.Text  If Len(sTest) > 0 Then    iChar = Asc(sTest)    If iChar >= 65 And iChar <= 90 Then      MsgBox "第一个字符是大写"    ElseIf iChar >= 97 And iChar <= 122 Then      MsgBox "第一个字符是小写"    Else      MsgBox "第一个字符不是字母"    End If  Else    MsgBox "请在文本框中输入"  End IfEnd Sub(2) 用Asc函数和Chr函数来创建基本加密的方法。Private Sub CommandButton2_Click()  Dim MyName As String, MyEncryptedString As String  Dim MyDecryptedString As String  Dim i As Integer  MyName = "fanjy"  For i = 1 To Len(MyName)    MyEncryptedString = MyEncryptedString & Chr(Asc(Mid(MyName, i, 1)) + 25)  Next i  MsgBox "您好!我的名字是" & MyEncryptedString  For i = 1 To Len(MyName)    MyDecryptedString = MyDecryptedString & Chr(Asc(Mid(MyEncryptedString, i, 1)) - 25)  Next i  MsgBox "您好!我的名字是" & MyDecryptedStringEnd Sub

    - - - - - - - - - - - - - - - - - - - - - - -2.10 返回数值代表的相应字符Chr函数返回指定字符码所代表的字符,其语法为:    Chr(charcode)其中参数charcode代表字符码,一般为0~255。例如:MyChar = Chr(65)  ' 返回 AMyChar = Chr(97) ' 返回 aMyChar = Chr(62)  ' 返回 >MyChar = Chr(37)  ' 返回 %[编程方法和技巧](1) 使用Chr(34)将引号嵌入字符串,如Chr(34) & sString & Chr(34)(2) 下面列出了在调用Chr函数时比较常用的字符代码:代码  值    描述0   Null   相当于vbNullChar常数8   BS   相当于vbBack常数9   TAB   相当于vbTab常数10   CR   相当于vbCr和vbCrLf常数13   LF   相当于vbLf和vbCrLf常数34   “”   引号- - - - - - - - - - - - - - - - - - - - - - -2.11 使用字节的函数VBA中返回字符串的函数有两种格式,一种以$结尾,返回字符串,不需要进行类型转换,所以速度较快,但如果输入值是包含Null的Viarant,则会发生运行错误;一种没有$,返回Viarant数据类型,如果输入值是包含Null的Viarant,则返回Null。因而,如果要使得程序运行速度快,则使用带有$的函数且要避免向这些函数传递空值。- - - - - - - - - - - - - - - - - - - - - - -2.12 返回数组的函数2.12.1 Filter函数Filter函数返回一个下标从零开始的数组,该数组包含基于指定筛选条件的一个字符串数组的子集。其语法为:    Filter(sourcearray,match[,include[,compare]])其中,参数sourcearray必需,是要执行搜索的一维字符串数组;参数match必需,是要搜索的字符串;参数include可选,Boolean值,表示返回子串包含还是不包含match字符串,如果include为True,返回包含match子字符串的数组子集,如果include为False,返回不包含match子字符串的数组子集;参数compare可选,表示所使用的字符串比较类型,其设置值为:-1(常数为vbUseCompareOption)表示使用Option Compare语句的设置值来执行比较;0(常数为vbBinaryCompare)表示执行二进制比较;1(常数为vbTextCompare)表示执行文字比较;2(常数为vbDatabaseCompare)只用于Microsoft Access,表示基于数据库信息来执行比较。如果在sourcearray中没有发现与match相匹配的值,Filter函数返回一个空数组;如果sourcearray是Null或不是一个一维数组,则产生错误。Filter函数所返回的数组,其元素数是所找到的匹配项目数。[编程方法和技巧](1) Filter函数也可以过滤数字值。此时,应指定Variant类型的字符串sourcearray,并用数字值给数组赋值。同时,也可以将字符串、Variant、Long或Integer数据传递给match。但应注意,返回的字符串表现为被过滤数字的字符串的形式。例如:Sub test()  Dim varSource As Variant, varResult As Variant  Dim strMatch As String, i  strMatch = CStr(2)  varSource = Array(10, 20, 30, 21, 22, 32)  varResult = Filter(varSource, strMatch, True, vbBinaryCompare)  For Each i In varResult    Debug.Print i  NextEnd Sub将返回20,21,22,32(2) Filter函数可以和Dictionary对象很好地配合使用。可以把Dictionary对象产生的Key值作为一种过滤Dictionary对象成员的快速方法传递给Filter函数,如:Sub test()  Dim i As Integer  Dim sKeys() As Variant  Dim sFiltered() As String  Dim sMatch As String  Dim blnSwitch As Boolean  Dim oDict As Dictionary  Set oDict = New Dictionary  oDict.Add "Microsoft", "One Microsoft Way"  oDict.Add "AnyMicro Inc", "31 Harbour Drive"  oDict.Add "Landbor Data", "The Plaza"  oDict.Add "Micron Co.", "999 Pleasant View"  sKeys = oDict.Keys  sMatch = "micro"  blnSwitch = True'寻找包含字符串macro(不区分大小写)的所有键  sFiltered() = Filter(sKeys, sMatch, blnSwitch, vbTextCompare)  For i = 1 To UBound(sFiltered)      Debug.Print sFiltered(i) & "," & oDict.Item(sFiltered(i))  Next iEnd Sub2.12.2 Split函数Split函数返回一个下标从零开始的一维数组,包含指定数目的子字符串。其语法为:    Split(expression[,delimiter[,limit[,compare]]])其中,参数expression必需,表示包含子字符串和分隔符的字符串,若expression是一个长度为零的字符串(“”),该函数则返回一个没有元素和数据的空数组;参数delimiter用于标识子字符串边界的字符串字符,若忽略则使用空格(“ “)作为分隔符,若是一个长度为零的字符串则返回仅包含一个元素的数组,该元素是expression所表示的字符串;参数limit表示要返回的子字符串数,-1表示返回所有的子字符串;参数compare表示判别子字符串时使用的比较方式,其值与Filter函数的设置值相同。- - - - - - - - - - - - - - - - - - - - - - -2.13 连接字符串Join函数返回连接某数组中的多个子字符串而组成的字符串,即将数组中的字符串连接起来。其语法为:    Join(sourcearray[,delimiter])其中,参数sourcearray必需,是包含被连接子字符串的一维数组;参数delimiter可选,代表在所返回的字符串中用于分隔子字符串的字符,若忽略则使用空(“ ”)来分隔,若为零长字符串(“”),则所有项目都连接在一起,中间没有分隔符。- - - - - - - - - - - - - - - - - - - - - - -2.14 替换字符串Replace函数返回一个被替换了的字符串,该字符串中指定的子字符串已被替换成另一个子字符串,并且替换指定次数。其语法为:    Replace(expression,find,replace[,start[,count[,compare]]])其中,参数expression必需,表示所要替换的子字符串;参数find必需,表示要搜索到的子字符串;参数replace必需,表示用来替换的子字符串;参数start表示开始搜索的位置,若忽略,则从1开始;参数count表示进行替换的次数,缺省值是-1,表示进行所有可能的替换;参数compare表示判别子字符串时所用的比较方式,与Filter函数的设置值相同。如果expression的长度为零,Replace返回零长度字符串(“”);如果expression为Null,则返回错误;如果find的长度为零,则返回expression的副本;如果replace的长度为零,则返回删除了所有出现find的字符串的副本;如果start的值大于expression的长度,则返回长度为零的字符串;如果count为0,则返回expression的副本。Replace函数返回的字符串是从参数start所指定的位置开始到expression结尾已经进行过替换的字符串。注意:(1) 如果没有使用参数count,那么当替换较短字符串时就要注意,防止形成一个不相关的字符。(2) 如果start值大于1,返回的字符串将从start开始,而不是从原有字符串的第一个字符开始。- - - - - - - - - - - - - - - - - - - - - - -2.15 反向字符串StrReverse函数返回与指定字符串顺序相反的字符串,其语法为:    StrReverse(expression)其中,参数expression是一个字符串,应用StrReverse函数后将返回与该字符串顺序相反的字符串。如果expression是一个长度为零的字符串(“”),则返回一个长度为零的字符串;如果expression为Null,则产生一个错误。

    使用字符串函数

    不同的类中都定义有字符串函数。这些类包括 Microsoft.VisualBasic.Strings 类和 System.String 类。

    使用 Microsoft.VisualBasic.Strings 类中的字符串函数

    下列函数是 Microsoft.VisualBasic.Strings 类中定义的字符串函数。注意:要使用字符串函数,请通过在源代码开始处添加以下代码将命名空间 Microsoft.VisualBasic.Strings 导入到项目中:Imports Microsoft.VisualBasic.Strings

    Asc 和 AscWAsc 函数和 AscW 函数返回一个整数值,表示与指定的字符相对应的字符代码。这两个函数接受任何有效的字符表达式或字符串表达式作为参数。当字符串是输入参数时,则仅输入字符串的第一个字符。当字符串不包含任何字符时,将出现 ArgumentException 错误。Asc 返回输入字符的代码数据点或字符代码。对于单字节字符集 (SBCS) 值,返回值可以是 0 到 255 之间的数字。对于双字节字符集 (DBCS) 值,返回值可以是 -32768 到 32767 之间的数字。AscW 为输入字符返回 0 到 65535 之间的 Unicode 代码数据点。示例:Dim MyInt As Integer

    MyInt = Asc("A") ' MyInt is set to 65.

    MyInt = Asc("a") ' MyInt is set to 97.

    MyInt = Asc("Apple") ' MyInt is set to 65.

    Chr 和 ChrWChr 函数和 ChrW 函数返回与指定的字符代码相关联的字符。当 CharCode 超出 -32768 到 65535 的范围时,将出现 ArgumentException 错误。示例:本示例使用 Chr 函数返回与指定的字符代码相关联的字符。Dim MyChar As Char

    MyChar = Chr(65) ' Returns "A".

    MyChar = Chr(97) ' Returns "a".

    MyChar = Chr(62) ' Returns ">".

    MyChar = Chr(37) ' Returns "%".

    GetCharGetChar 函数返回一个 Char 值,表示指定字符串的指定索引中的字符。当索引小于 1 或大于指定输入参数中最后一个字符的索引时,将出现 ArgumentException 错误。示例:本示例显示了如何使用 GetChar 函数从字符串的指定索引中返回字符。Dim myString As String = "ABCDE"

    Dim myChar As Char

    myChar = GetChar(myString, 4) ' myChar = "D"

    InStrInStr 函数返回一个整数,指定一个字符串在另一个字符串中首次出现的起始位置。示例:以下示例使用 InStr 函数返回一个字符串在另一个字符串中首次出现的位置:Dim SearchString, SearchChar As String

    Dim MyPos As Integer

    SearchString ="XXpXXpXXPXXP" ' String to search in.

    SearchChar = "P" ' Search for "P".

    ' A textual comparison starting at position 4. Returns 6.

    MyPos = InStr(4, SearchString, SearchChar, CompareMethod.Text)

    JoinJoin 函数返回一个字符串,该字符串是通过连接数组中包含的子字符串创建的。包含必须连接的子字符串的一维数组将作为参数传递给 Join 函数。该函数使用 Delimiter、String 作为可选参数来分隔返回的字符串中的子字符串。当省略 Delimiter 时,将使用空格(“ ”)作为子字符串之间的分隔符。当 Delimiter 是零长度字符串 ("") 时,数组中的子字符串将不使用分隔符,而是直接相连。示例:以下示例显示了如何使用 Join 函数:Dim myItem(2) As String

    Dim myShoppingList As String

    myItem(0) = "Pickle"

    myItem(1) = "Pineapple"

    myItem(2) = "Papaya"

    ' Returns "Pickle, Pineapple, Papaya"

    myShoppingList = Join(myItem, ", ")

    LCaseLCase 函数返回已经转换为小写的字符串或字符。只有大写字母被转换为小写。所有小写字母和非字母字符均保持不变。示例:以下示例使用 LCase 函数返回字符串的小写形式:Dim UpperCase, LowerCase As String

    Uppercase = "Hello WORLD 1234" ' String to convert.

    Lowercase = LCase(UpperCase) ' Returns "hello world 1234".

    LTrim、RTrim 和 Trim这些函数会返回一个包含指定字符串的副本的字符串。在使用 LTrim 时,没有起始空格。在使用 RTrim 时,没有尾随空格。在使用 Trim 时,既没有起始空格也没有尾随空格。示例:以下示例使用 LTrim 函数删除字符串变量中的起始空格,使用 RTrim 函数删除字符串变量中的尾随空格,以及使用 Trim 函数删除字符串变量中的起始空格和尾随空格:Dim MyString, TrimString As String

    MyString = " " ' Initializes string.

    TrimString = LTrim(MyString) ' TrimString = " ".

    TrimString = RTrim(MyString) ' TrimString = " ".

    TrimString = LTrim(RTrim(MyString)) ' TrimString = "".

    ' Using the Trim function alone achieves the same result.

    TrimString = Trim(MyString) ' TrimString = "".

    ReplaceReplace 函数返回一个字符串,其中指定的子字符串按指定的次数替换为另一个子字符串。Replace 函数的返回值是一个字符串,该字符串在 Start 参数指定的位置开始,然后在指定字符串的末尾以 Find 参数和 Replace 参数中的值所指定的替换内容结束。示例:本示例演示了 Replace 函数:Dim myString As String = "Shopping List"

    Dim aString As String

    ' Returns "Shipping List".

    aString = Replace(myString, "o", "i")

    StrCompStrComp 函数返回 –1、0 或 1。这将基于字符串比较的结果。字符串将从第一个字符开始按字母数字顺序排列的值进行比较。示例:以下示例使用 StrComp 函数返回字符串比较的结果。如果省略第三个参数,则使用选项比较语句或项目默认设置中定义的比较类型。Dim MyStr1, MyStr2 As String

    Dim MyComp As Integer

    MyStr1 = "ABCD"

    MyStr2 = "abcd" ' Defines variables.

    ' The two strings sort equally. Returns 0.

    MyComp = StrComp(MyStr1, MyStr2, CompareMethod.Text)

    ' MyStr1 sorts after MyStr2. Returns -1.

    MyComp = StrComp(MyStr1, MyStr2, CompareMethod.Binary)

    ' MyStr2 sorts before MyStr1. Returns 1.

    MyComp = StrComp(MyStr2, MyStr1)

    StrConvStrConv 函数返回一个字符串,该字符串转换为输入参数中指定的值。StrConv 函数将转换字符串。这种转换基于 Conversion 参数中的值。Conversion 参数中的值是 VbStrConv 枚举的成员。Conversion 参数的设置为:

    枚举成员说明

    VbStrConv.None不执行转换

    VbStrConv.LinguisticCasing- 使用语言规则而不是文件系统(默认值)来区分大小写- 仅对大写和小写字母有效

    VbStrConv.UpperCase将字符串转换为大写字符

    VbStrConv.LowerCase将字符串转换为小写字符

    VbStrConv.ProperCase将字符串中每个单词的第一个字母转换为大写

    示例:以下示例将文本转换为小写字母:Dim sText, sNewText As String

    sText = "Hello World"

    sNewText = StrConv(sText, VbStrConv.LowerCase)

    Debug.WriteLine (sNewText) ' Outputs "hello world".

    StrDupStrDup 函数返回一个由指定的字符重复指定的次数而形成的字符串或对象。StrDup 函数具有两个参数:Number 参数和 Character 参数。Number 参数指定函数必须返回的字符串的长度。StrDup 函数仅使用 Character 参数中的第一个字符。Character 参数可以是 Char 数据类型、String 数据类型或 Object 数据类型。示例:以下示例使用 StrDup 函数返回由重复字符组成的字符串:Dim aString As String = "Wow! What a string!"

    Dim aObject As New Object()

    Dim myString As String

    aObject = "This is a String that is contained in an Object"

    myString = StrDup(5, "P") ' Returns "PPPPP"

    myString = StrDup(10, aString) ' Returns "WWWWWWWWWW"

    myString = StrDup(6, aObject) ' Returns "TTTTTT"

    StrReverseStrReverse 函数返回一个字符串,该字符串将指定字符串的字符顺序颠倒过来。示例:Dim myString As String = "ABCDEFG"

    Dim revString As String

    ' Returns "GFEDCBA".

    revString = StrReverse(myString)

    UCaseUCase 函数返回一个字符串或字符,包含已转换为大写的指定字符串。只有小写字母被转换为大写字母。所有大写字母和非字母字符均保持不变。示例:以下示例使用 UCase 函数返回字符串的大写形式:Dim LowerCase, UpperCase As String

    LowerCase = "Hello World 1234" ' String to convert.

    UpperCase = UCase(LowerCase) ' Returns "HELLO WORLD 1234".

    使用 System.String 类中的字符串函数

    以下是 System 命名空间的 String 类中的字符串函数。注意:要使用字符串函数,请通过在源代码开始处添加以下代码将 System.String 命名空间导入到项目中:Imports System.String

    CompareCompare 函数比较输入参数中的两个字符串。通过使用单词排序规则来执行比较。发现不相等情况或比较完两个字符串后,比较将终止。Compare 示例:' Code is not compiled unless it is put in a Sub or in a Function.

    Dim s1, s2 As String

    s1 = "testexample"

    s2 = "testex"

    MsgBox(Compare(s2, s1)) 'Returns -1.

    MsgBox(Compare(s1, s2)) 'Returns 1.

    ConcatConcat 函数将一个或多个字符串相连接,然后返回连接后的字符串。Concat 示例:以下示例显示了如何使用 Concat 的重载版本:' Code is not compiled unless it is put in a Sub or in a Function.

    Dim s1, s2, sa(3) As String

    sa(0) = "A"

    sa(1) = "B"

    sa(2) = "C"

    s1 = "test"

    s2 = "example"

    s1 = Concat(s1, s2) 'Returns testexample.

    MsgBox(s1)

    MsgBox(Concat(sa)) 'Returns ABC.

    CopyCopy 函数将指定字符串中的值复制到另一个字符串中。Copy 示例:' Code is not compiled unless it is put in a Sub or in a Function.

    Dim s1, s2 As String

    s1 = "Hello World"

    'Copy the string s1 to s2.

    s2 = Copy(s1)

    MsgBox(s2) 'Displays Hello World.

    RemoveRemove 函数从指定字符串的指定位置开始删除指定数目的字符。Remove 函数有两个参数。分别是 StartIndex 参数和 Count 参数。Startindex 参数指定开始删除字符的字符串位置。Count 参数指定要删除的字符数。Remove 示例:' Code is not compiled unless it is put in a Sub or in a Function.

    Dim s1, s2 As String

    s1 = "Hello World"

    'Removes 3 characters starting from character e.

    s2 = s1.Remove(1, 3)

    MsgBox(s2) 'Displays Hello World.

    SubstringSubstring 函数从指定字符串的指定位置开始检索字符串。Substring 示例:以下示例将从指定的字符位置开始并按指定的长度来检索子字符串:' Code is not compiled unless it is put in a Sub or in a Function.

    Dim s1, s2 As String

    s1 = "Hello World"

    s2 = s1.Substring(6, 5) 'Returns World.

    MsgBox(s2)

    ToCharArrayToCharArray 函数将字符串中的字符复制到 Unicode 字符数组中。ToCharArray 示例:以下示例将指定位置中的字符复制到 Character 数组中:' Code is not compiled unless it is put in a Sub or in a Function.

    Dim s1 As String

    Dim ch(10) As Char

    s1 = "Hello World"

    'Copies the characters starting from W to d to a Character array.

    ch = s1.ToCharArray(6, 5)

    MsgBox(ch(3)) 'Displays l.

    ToLowerToLower 函数采用一个字符串作为参数,然后以小写形式返回该字符串的副本。ToLower 示例:' Code is not compiled unless it is put in a Sub or in a Function.

    Dim s1, s2 As String

    s1 = "Hello World"

    s2 = s1.ToLower() 'Converts any uppercase characters to lowercase.

    MsgBox(s2) 'Displays hello world.

    ToUpperToUpper 函数采用一个字符串作为参数,然后以大写形式返回该字符串的副本。ToUpper 示例:' Code is not compiled unless it is put in a Sub or in a Function.

    Dim s1, s2 As String

    s1 = "Hello World"

    s2 = s1.ToUpper() 'Converts any lowercase characters to uppercase.

    MsgBox(s2) 'Displays HELLO WORLD.

    Trim、TrimStart 和 TrimEnd这些函数会返回一个包含指定字符串的副本的字符串。使用 Trim 函数时,既没有起始空格也没有尾随空格。使用 TrimStart 函数时,没有起始空格。使用 TrimEnd 函数时,没有尾随空格。示例:以下示例使用 TrimStart 函数删除字符串变量开始处的空格,使用 TrimEnd 函数删除字符串变量末尾的空格,以及使用 Trim 函数删除字符串变量中的起始空格和尾随空格:' Code is not compiled unless it is put in a Sub or in a Function.

    Dim s1, s2 As String

    s1 = " Hello World "

    s2 = s1.Trim() 'Returns Hello World without any white spaces.

    s2 = s1.TrimStart 'Removes the spaces at the start.

    s2 = s1.TrimEnd 'Removes the white spaces at the end.

    展开全文
  • vb Script参考文档

    2009-07-28 22:13:02
    Trim 函数 返回去掉前导空格或末尾空格的字符串副本。 三态常数 在代码中使用,以便表示每个显示的值。 True 其值为 -1 的关键字。 TypeName 函数 返回一字符串,它提供了关于变量的变体子类型信息。 UBound ...
  • VB查漏补缺 text控件

    2019-09-24 13:49:55
    前段时间的vb学习比较粗糙,这些是对vb中...(1)trim()函数用于去掉括号内字符串左右两端的空格。在上述代码中用于提取text1中输入的字符串 (2)len()函数用于返回括号内字符串的长度。在上述代码中用于计...
  • vb中的print方法

    2020-09-16 10:31:14
    VB中我们经常会用到Print方法,它...定位函数是缺省参数,可以不填写,当我们需要在指定位置输出信息时,使用定位给函数则可以极大的简化代码。 Spc(n) :用于在输出时插入n个空格 Tab(n) :定位于从对象最左端算起的n
  • VB字符串处理大全

    千次阅读 2018-09-16 11:56:53
    1 VBA中的字符串 2 VBA中处理字符串的函数  2.1 比较字符串  2.2 转换字符串  2.3 创建字符串 ... 2.8 删除空格  2.9 返回字符代码  2.10 返回数值代表的相应字符  2.11 使用字节的函数  ...
  • vb 编 码 规 则 》

    2010-02-08 16:09:46
    2. VB代码书写规则  (1) 程序中不区分字母的大小写,Ab 与AB等效;  (2) 系统对用户程序代码进行自动转换:  1) 对于VB中的关键字,首字母被转换成大写,其余转换成小写  2) 若关键字由多个英文单词组成,...
  • Sub 生成() 'vb函数名称可以用汉字的,呵呵 Dim n(1 To 33), i, j, q, p '定义变量 For i = 1 To 33 n(i) = 0 Next j = 0 Randomize Timer '防止随机数重复 While j 生成6个红球号码 q = Int(Rnd(1)...
  • 函数作用:获取vbproject引用项目.................102 '103.函数作用:移除Excel工作表中的外部数据连接.......103 '104.函数作用:将选择定单元格作成镜像图片.............103 '105.函数作用:反选择单元格中的数.......
  • 最近用vb在写一个软件,用到了对文件的写入、替换、删除操作,对网友的代码进行了修改,写入模块和函数,能够实现上述功能。 有5个文本框,以前四个文本框的内容为判别条件,即:如果保存的文件中某行前四项...
  • 转全角半角(C#,VB.NET)

    千次阅读 2009-04-24 10:00:00
    //C#代码 /**//// /// 转全角的函数(SBC case) /// /// 任意字符串 /// 全角字符串 /// ///全角空格为12288,半角空格为32 ///其他字符半角(33-126)与全角(65281-65374)的对应关系是
  • 一直以来都把python的strip理解成了去掉收尾的空格,因为用过java或者VB的程序员应该知道,有个trim可以去掉首尾的空格。不过,这次我就没那么幸运了,这回让Python给坑了一把。 1、问题描述 先上代码看一眼: ...
  • 102.获取vbproject引用项目 103.移除Excel工作表中的外部数据连接 104.将选择定单元格作成镜像图片 105.反选择单元格中的数 106.在Excel中加入一个量度尺(以厘米为单位) 107.在Excel中加入一个量度尺(以寸为单位) ...
  • 抽象类可以实现(implements)接口,抽象类是否可继承实体类,但前提是实体类必须有明确的构造函数。 41.构造器Constructor是否可被override? 答:构造器Constructor不能被继承,因此不能重写Overriding,但可以被...
  • 17、提供丰富的建站常用VB、JS函数库 ★ 18、更多扩展功能: 添加、修改页面在保存信息前进行预览功能 添加、修改页面提交后自动跳转并刷新列表页 字段描述批量格式化,可从字段名、描述生成,加强英文字符处理 ...
  • 17、提供丰富的建站常用VB、JS函数库 ★ 18、更多扩展功能: 添加、修改页面在保存信息前进行预览功能 添加、修改页面提交后自动跳转并刷新列表页 字段描述批量格式化,可从字段名、描述生成,加强英文字符处理 ...
  • 风越ASP代码生成器2.8

    2010-03-12 12:10:47
    17、提供丰富的建站常用VB、JS函数库 ★ 18、更多扩展功能: 添加、修改页面在保存信息前进行预览功能 添加、修改页面提交后自动跳转并刷新列表页 字段描述批量格式化,可从字段名、描述生成,加强英文字符处理 ...
  • 17、提供丰富的建站常用VB、JS函数库 ★ 18、更多扩展功能: 添加、修改页面在保存信息前进行预览功能 添加、修改页面提交后自动跳转并刷新列表页 字段描述批量格式化,可从字段名、描述生成,加强英文字符处理 ...
  • 风越ASP代码生成器 2.4

    2009-05-26 21:22:40
    17、提供丰富的建站常用VB、JS函数库 ★ 18、更多扩展功能: 添加、修改页面在保存信息前进行预览功能 添加、修改页面提交后自动跳转并刷新列表页 字段描述批量格式化,可从字段名、描述生成,加强英文字符处理 ...
  • 6.7.2 从字符串中删除空格 268 6.7.3 计算表达式的值 268 6.7.4 获得项值 271 6.7.5 分析数 272 6.7.6 整合程序 274 6.7.7 扩展程序 276 6.7.8 提取子字符串 277 6.7.9 运行修改过的程序 280 6.8 ...
  • 17、提供丰富的建站常用VB、JS函数库 ★ 18、更多扩展功能: 添加、修改页面在保存信息前进行预览功能 添加、修改页面提交后自动跳转并刷新列表页 字段描述批量格式化,可从字段名、描述生成,加强英文字符处理 列表...
  • 17、提供丰富的建站常用VB、JS函数库 ★ 18、更多扩展功能: 添加、修改页面在保存信息前进行预览功能 添加、修改页面提交后自动跳转并刷新列表页 字段描述批量格式化,可从字段名、描述生成,加强英文字符处理 ...
  • 微软C#编码规范.doc

    2020-08-22 10:16:32
    本文档描述了微软一站式代码示例库项目组所采纳的关于本地 C++ 和 .NET (C# 和VB.NET)代码的编程风格指导规范 1 概览 1 1.1 原则和主旨 1 1.2 术语 2 2 通用编程规范 3 2.1 明确和一致 3 2.2 格式和风格 3 2.3 库...
  • 《学生信息管理系统》知识点总结

    千次阅读 热门讨论 2014-08-09 07:27:36
    写这个系统的代码的时候,有很多函数还有VB知识不懂,现在明白了些,整理下,打包下收获:    1.trim函数  好多个窗体的代码里都有用这个函数,一开始啥都不懂,哎,怎么我也没查查呢,忘了为什么了...反正跟...
  • Sub Generate5Random() 'vb函数名称可以用汉字的,呵呵 Dim n(1 To 33), i, j, q, p '定义变量 For i = 1 To 33 n(i) = 0 Next j = 0 Randomize Timer '防止随机数重复 While j 生成6个红...

空空如也

空空如也

1 2 3
收藏数 49
精华内容 19
关键字:

vb空格函数代码