gpt4 book ai didi

vbscript Split函数用法详解(字符串转数组函数)

转载 作者:qq735679552 更新时间:2022-09-29 22:32:09 26 4
gpt4 key购买 nike

CFSDN坚持开源创造价值,我们致力于搭建一个资源共享平台,让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章vbscript Split函数用法详解(字符串转数组函数)由作者收集整理,如果你对这篇文章有兴趣,记得点赞哟.

vbscript Split 函数用法 。

用法:传回数组 = Split(原始字串, 要找的字串, 拆成几个数组) 描述 返回一个下标从零开始的一维数组,它包含指定数目的子字符串。 语法 Split(expression[, delimiter[, count[, compare]]]) 。

例如用逗号(,)分割字符串为数组 。

  。

复制代码 代码如下:

str="1,2,3,4"
strarr=split(str,",")
for i=0 to ubound(strarr)
msgbox strarr(i)
next

  。

Split函数语法有如下几部分:

部分 描述 expression 必需的。包含子字符串和分隔符的字符串表达式 。如果expression是一个长度为零的字符串(""),Split则返回一个空数组,即没有元素和数据的数组。 delimiter 可选的。用于标识子字符串边界的字符串字符。如果忽略,则使用空格字符(" ")作为分隔符。如果delimiter是一个长度为零的字符串,则返回的数组仅包含一个元素,即完整的 expression字符串.

count 可选的。要返回的子字符串数,-1表示返回所有的子字符串。 compare 可选的。数字值,表示判别子字符串时使用的比较方式。关于其值,请参阅“设置值”部分.

参数的设置 设置值 compare参数的设置值:

常数 值 描述 vbUseCompareOption -1 用Option Compare语句中的设置值执行比较。 vbBinaryCompare 0 执行二进制比较。 vbTextCompare 1 执行文字比较。 vbDatabaseCompare 2 仅用于Microsoft Access。基于您的数据库的信息执行比较。   。

复制代码 代码如下:

Private Sub Command1_Click()
Dim MyStr As String
MyStr = "1234567123456712345"
MyStrs = Split(MyStr, "67")
For Each Strs In MyStrs
Print Strs
Next
End Sub

  。

输出结果:"12345"、"12345"、"12345" 。

  。

复制代码 代码如下:

'这个VB程序是让求10个学生的考试成绩的平均分..
'比如95 85 70 75 80 90 60 65 95 100
'这10个人的分数的平均分...
Private Sub Form_Load()
Dim A$(), i As Long, intB As String, s As Integer
If Dir("d:\平均分.dat") = vbNullString Then
Open "d:\平均分.dat" For Output As #1
Print #1, "95 85 70 75 80 90 60 65 95 100"
Close #1
End If
Open "d:\平均分.dat" For Input As #1
Input #1, intB
Close #1
A = Split(intB, Space(1), -1, 1)
For i = 0 To UBound(A, 1)
Debug.Print A(i); " ";
s = s + A(i)
Next i
Debug.Print ",10个学生的平均成绩是 :" & s / 10
End Sub
Private Sub command1_Click()
Dim AString As String
Dim r() As String '把变量按照“,”分割出来的数组
Dim rt As String '最终的结果,用换行符代替“,”
Dim C As Integer '这个是循环用的
AString = "高级,中级,低级,先进"
r = Split(AString, ",") '把每个目录都分解出来
For C = 0 To UBound(r) 'C由0开始循环到r数组的最大下标
rt = rt & vbCrLf & vbCrLf & r(C) '把数组的每一个元素都添加到rt,用回车分割
Next C '循环
MsgBox rt '输出
End Sub
Private Sub Form_Load()
Dim strTextDate As String
strTextDate = "2008-12-1 星期一"
MsgBox Format(Split(strTextDate)(0), "yyyy-mm-dd")
End Sub
当小括号中写0时,返回数组中第一个元素,小括号中写1时返回数组中第二个元素。依此类推,用这种写法返回数据时,必须用一个空格把字符串分开,其它字符仅当做一个数据。例:
Private Sub Form_Load()
Dim AString As String
AString = "高级 中级 低级 先进"
MsgBox Split(AString)(0)
MsgBox Split(AString)(1)
MsgBox Split(AString)(2)
MsgBox Split(AString)(3)
End Sub

  。

以下只返回 高级,中级,低级,先进 仅当作一个串,即只能返回Split(AString)(0)的值,其它值都产生下标越界错误。所以用以下方法分解时,只能用一个空格分割,而不能用其它字符分割. 。

  。

复制代码 代码如下:

Private Sub Form_Load()
Dim AString As String
AString = "高级,中级,低级,先进"
MsgBox Split(AString)(0)
MsgBox Split(AString)(1)
MsgBox Split(AString)(2)
MsgBox Split(AString)(3)
End Sub 

  。

split 命令用途 将文件分割成几段。 语法 要将一个文件分割成包含指定行数的多个文件 split [ -l LineCount ] [ -a SuffixLength ] [ File [ Prefix ] ] 要将一个文件分割成包含指定字节数的多个文件 split -b Number [ k | m ] [ -a SuffixLength ] [ File [ Prefix ] ] 描述 split 命令读取指定文件,以 1000 行大小写在一组输出文件上。第一个输出文件名由指定前缀(缺省值 x)和 aa 后缀组合构成,第二个文件名由前缀和 ab 后缀组合构成,如此按字典顺<img class="img InsertH2" id="code75794"> 1. 要将文件分割成 1000 行的段,请输入: split book 此示例将 book 分割成 1000 行的段,命名为 xaa、 xab、 xac 等等。 2. 要将文件分割成 50 行的段并指定文件名前缀,请输入: split -l 50 book sect 此示例将 book 分割成 50 行的段,命名为 sectaa、sectab、sectac 等等。 3. 要将文件分割成 2KB 的段,请输入: split -b 2k book 此示例将 book 分割成 2*1024 字节的段,命名为 xaa、xab、xac 等等。 4. 要将文件分割成 676 个以上的段,请输入: split -l 5 -a 3 book sect 此例将 book 分割成 5 行的段,命名为 sectaaa、sectaab、 sectaac 等等,直到 sectzzz(最多 17,576 个文件).

最后此篇关于vbscript Split函数用法详解(字符串转数组函数)的文章就讲到这里了,如果你想了解更多关于vbscript Split函数用法详解(字符串转数组函数)的内容请搜索CFSDN的文章或继续浏览相关文章,希望大家以后支持我的博客! 。

26 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com