汉扬编程 C语言入门 Split函数的基本讲解

Split函数的基本讲解

大家好,我们今日讲解"VBA信息获取与处理"教程中第十四个专题"Split函数提取数据信息的深入讲解"的第一节"Split函数的基本讲解",这个专题是非常实用的知识点,希望大家能掌握利用。

Split函数的基本讲解

大家好,我们今天开始第十四专题的讲解,这个专题是对Split函数的深入发掘,深入分析这个函数在提取数据信息时候的作用。在VBA版本6(Office 2000)中,Microsoft引入了Split函数,该函数将文本字符串拆分为一个数组。在学习了网抓知识后,相信大家对这个函数有着非常深刻的认识,在处理网页文档数据的时候,这个函数应用非常频繁,对于数据的截取,数据的获取是随处可见。在这个专题中,我们还将完善这个函数的一些功能。

Split函数的基本讲解

第一节 Split函数的基本讲解在数组的应用中,我们讲过,这个函数是十分重要的,它是指返回一个下标从零开始的一维数组,split函数包含指定数目的子字符串。我们这节就先回顾一下这个函数的基本用法。

Split函数的基本讲解

1 什么是Split函数Split 函数:返回包含指定数目的子字符串的从零开始的一维数组。

Split函数的基本讲解

语法:Split(expression, [ delimiter, [ limit, [ compare ]]])

Split函数的基本讲解

各个参数的意义:

Expression必需。包含子字符串和分隔符的字符串表达式。如果 expression 是零长度字符串 (""),则 Split 返回空数组,即不包括任何元素和数据的数组。

Delimiter可选。用于标识子字符串限制的 String 字符。如果省略,则假定空格符 (" ") 为分隔符。如果 delimiter 是零长度字符串,则返回包含完整 expression 字符串的只含单一元素的数组。

limit 可选的。要返回的子字符串数,–1表示返回所有的子字符串。

Compare可选的。数字值,表示判别子字符串时使用的比较方式。其值如下:

vbUseCompareOption –1 用Option Compare语句中的设置值执行比较。

vbBinaryCompare 0 执行二进制比较。

vbTextCompare 1 执行文字比较。

vbDatabaseCompare 2 仅用于Microsoft Access。基于您的数据库的信息执行比较。

2 Split应用的基本代码在我的第一套教程《VBA代码解决方案》中,我讲解过这个函数是将文本转化为数组的函数,我们来看看这个函数的具体应用。

我给出一个字符串:

strFull = "VBA代码解决方案 – VBA数据库解决方案 – VBA数组与字典解决方案 – VBA代码解决方案(视频) – " & _

"VBA中类的解读及应用 – VBA信息的获取与处理"

在这个字符串中,我们看到每套教程中名称的前后均有空格,当按照"-"和" -"提取时返回的信息是不一样的,如下面的测试代码:

Sub mynz()

Sheets("SHEET1").Select

Cells.ClearContents

strFull = "VBA代码解决方案 – VBA数据库解决方案 – VBA数组与字典解决方案 – VBA代码解决方案(视频) – " & _

"VBA中类的解读及应用 – VBA信息的获取与处理"

'arrA将是从0到8的数组

'分隔符不包含空格,因此strFull中的空格将包含在返回的数组值中。

arrA = Split(strFull, "-")

sA = arrA(3) ' sA = " VBA代码解决方案(视频) ".

MsgBox "arrA的第四个字符是" &sA

'arrB将是从0到8的数组

'分隔符包含空格,空格不会包含在返回的数组值中。

arrB = Split(strFull, " – ")

sB = arrB(3) ' sB = "VBA代码解决方案(视频)".

MsgBox "arrB的第四个字符是" &sB

'下面的代码会将数组放回到工作表中

For i = LBound(arrA, 1) To UBound(arrA, 1)

Cells(i + 1, 1) = arrA(i)

Next

For i = LBound(arrB, 1) To UBound(arrB, 1)

Cells(i + 1, 2) = arrB(i)

Next

MsgBox "ok!"

End Sub

代码截图:

代码解读:

1)strFull = "VBA代码解决方案 – VBA数据库解决方案 – VBA数组与字典解决方案 – VBA代码解决方案(视频) – " & _

"VBA中类的解读及应用 – VBA信息的获取与处理"

上述代码给字符串赋值。

2)arrA = Split(strFull, "-")

上述语句返回一个数组,这个数组是以"-"分隔strFull而成的,这里我们要注意由于测试字符串中是有空格的,所以返回的数组中各个元素中是含有空格的。

3)arrB = Split(strFull, " – ")

上述语句返回一个数组,这个数组是以"-"分隔strFull而成的,这里我们要注意由于测试字符串中是有空格的,以含有空格的分隔符分隔后,返回的数组中各个元素中是不含有空格的。

4) '下面的代码会将数组放回到工作表中

For i = LBound(arrA, 1) To UBound(arrA, 1)

Cells(i + 1, 1) = arrA(i)

Next

For i = LBound(arrB, 1) To UBound(arrB, 1)

Cells(i + 1, 2) = arrB(i)

Next

上述代码我们可以看到返回的数组元素。

3 Split的应用返回结果分析我们点击运行按钮,在工作表中可以看到返回的数组各个元素:

我们从截图中看到,A列的数据中是含有空格的。

本节知识点回向:

① Split函数的意义是什么?

② Split函数的分隔符不同会决定返回值的不同,注意空格的影响。

本讲代码参考文件:014工作表.xlsm

积木编程的思路内涵:在我的系列书籍中一直在强调"搭积木"的编程思路,这也是学习利用VBA的主要方法,特别是职场人员,更是要采用这种方案。其主要的内涵:

1 代码不要自己全部的录入。你要做的是把积木放在合适的位置然后去修正代码,一定要拷贝,从你的积木库中去拷贝,然后修正代码,把时间利用到高效的思考上。

2 建立自己的"积木库"。平时在学习过程中,把自己认为有用的代码放在一起,多积累,在用到的时候,可以随时拿来。你的积木库资料越多,你做程序的思路就会越广。

VBA的应用界定及学习教程:VBA是利用Office实现个人小型办公自动化的有效手段(工具)。这是我对VBA的应用界定。在取代OFFICE新的办公软件没有到来之前,谁能在数据处理方面做到极致,谁就是王者。其中登峰至极的技能非VBA莫属!

我记得20年前自己初学VBA时,那时的资料甚少,只能看源码自己琢磨,真的很难。20年过去了,为了不让学习VBA的朋友重复我之前的经历,我根据自己多年VBA实际利用经验,推出了六部VBA专门教程:

第一套:VBA代码解决方案 是VBA中各个知识点的讲解,教程共147讲,覆盖绝大多数的VBA知识点,提供的程序文件更是一座不可多得的代码宝库,是初学及中级人员必备教程;目前这套教程提供的版本是修订第二版,程序文件通过32位和64位两种OFFICE系统测试。

第二套:VBA数据库解决方案 数据库是数据处理的专业利器,教程中详细介绍了利用ADO连接ACCDB和EXCEL的方法和实例操作,适合中级人员的学习。目前这套教程提供的是修订第一版教程,程序文件通过32位和64位两种OFFICE系统测试。

第三套:VBA数组与字典解决方案 数组和字典是VBA的精华,字典是VBA代码水平提高的有效手段,值得深入的学习,是初级及中级人员代码精进的手段。目前这套教程提供的版本是修订第一版,程序文件通过32位和64位两种OFFICE系统测试。

第四套:VBA代码解决方案之视频 是专门面向初学者的视频讲解,可以快速入门,更快的掌握这门技能。这套教程是第一套教程(修订一版)的视频讲解,听元音更易接受。这套教程还会额外提供通过32位和64位两种OFFICE系统测试的程序文件。

第五套:VBA中类的解读和利用 这是一部高级教程,讲解类的虚无与肉身的度化,类的利用虽然较少,但仔细的学习可以促进自己VBA理论的提高。这套教程的领会主要是读者的领悟了,领悟一种佛学的哲理。

第六套教程:《VBA信息获取与处理》,这是一部高级教程,涉及范围更广,实用性更强,面向中高级人员。教程共二十个专题,包括:跨应用程序信息获得、随机信息的利用、电子邮件的发送、VBA互联网数据抓取、VBA延时操作,剪切板应用、Split函数扩展、工作表信息与其他应用交互,FSO对象的利用、工作表及文件夹信息的获取、图形信息的获取以及定制工作表信息函数等等内容。

上述教程的学习顺序:1→3→2→6→5或者4→3→2→6→5。提供的程序文件更是一座巨大的代码库,供读者使用,如需要可以WeChat: NZ9668

学习VBA是个过程,也需要经历一种枯燥的感觉"众鸟高飞尽,孤云独去闲。相看两不厌,只有敬亭山"。学习的过程也是修心的过程,修一个平静的心。在代码的世界中,心平静了,心情好了,身体自然而然就好。心静则正,内心里没有那么多邪知邪见,也就没有那么多妄想。利人就是利己。我的教程助力给正在努力的朋友。

"水善利万物而不争",绵绵密密,微则无声,巨则汹涌。学习亦如此,知道什么是自己所需要的,不要蜷缩在一小块自认为天堂的世界里,待到暮年时再去做自欺欺人的言论。要努力提高自己,用一颗充满生机的心灵,把握现在,这才是进取。越是有意义的事情,困难会越多。愿力决定始终,智慧决定成败。不管遇到什么,都是风景。看淡纷争,看轻得失。学习时微而无声,利用时则巨则汹涌。"路漫漫其修远兮,吾将上下而求索"

每一分收获都是成长的记录,怎无凭,正是这种执着,成就了朝霞的灿烂。最后将一阙词送给致力于VBA学习的朋友,让大家感受一下学习过程的枯燥与执着:

浮云掠过,暗语无声,

唯有清风,惊了梦中啼莺。

望星,疏移北斗,

奈将往事雁同行。

阡陌人,昏灯明暗,

忍顾长亭。

多少VBA人,

暗夜中,悄声寻梦,盼却天明。

怎无凭!

分享我多年工作实际经验的成果,随喜这些有用的东西,给确实需要利用VBA的同路人。回向学习利用VBA的历历往事,不胜感慨,谨以这些文字以纪念,

分享成果,随喜正能量

本文来自网络,不代表汉扬编程立场,转载请注明出处:http://www.hyzlch.com/cjia/6376.html

谁能告诉我学C语言主要学什么?学画图重要吗?谢谢!

Unix和Linux下如何进行C语言学习?

发表评论

您的电子邮箱地址不会被公开。 必填项已用*标注

返回顶部