处理字符串和日期时间 Visual Basic程序设计教程.pdf
《处理字符串和日期时间 Visual Basic程序设计教程.pdf》由会员分享,可在线阅读,更多相关《处理字符串和日期时间 Visual Basic程序设计教程.pdf(66页珍藏版)》请在咨信网上搜索。
1、大学计算机基础教程 TaiYuan University of Technology第9章 处理字符串和日期时间Visual Basic程序设计教程本章主要介绍:字符类型和字符数组操作字符串查找和替换字符串处理日期和时间使用VB的日历控件MonthV i ew在大量的应用系统中,文本是表达和交互数 据的基本类型,而文本的计算机内部表示就 是字符数据类型学会运用V B提供的内部函数,包括比较字符 串和搜索字符串,以及在字符串和其他数据 类型之间的转换等3Visual Basic程序设计教程往往应用程序中需要有日期和时间的相关信息,这就涉及到程序如何表达以及如何使用合适的格式表达程序中对日期时间的
2、处理要求【例9-1】一个简单的 示例程序,把给出的字符 进行加密,然后再解密,程序界面如图所示:5Visual Basic程序设计教程Dim S trl As S tring,S tr2 As S tring Option Compare TextPrivate S ub CmdEncrypt_Click()Dim N As Byte,Count As IntegerText2.Text=N=Len(Textl.Text)For Count=1 To NS trl=Mid(Textl.Text,Count,If(Count Mod 2)=0 ThenText2.Text=Text2.Text&
3、Private S ub FormLoad()Label 1.Caption=请输入:”Label2.Caption=加密后输出:Label3.Caption 二解密后输出Textl.Text=Text2.Text=Text3.Text=”End S ub1)ChrW(AscW(S trl)+2)ElseText2.Text=Text2.Text&ChrW(AscW(S trl)+1)End IfNextEnd S ub6Visual Basic程序设计教程Dim N As Byte,Count As Integer Text3.Text=N=Len(Text2.Text)For Count=
4、1 To NS trl=Mid(Text2.Text,Count,1)If Count Mod 2=0 ThenText3.Text=Text3.Text&ChrW(AscW(S trl)-2)ElseText3.Text=Text3.Text&ChrW(AscW(S trl)-1)End IfNextEnd S ub7Visual Basic程序设计教程本节在小结前述章节的有关字符数据类型的基础 上,进一步介绍有关字符运算、字符数组和实现。各种字符操作和字符转换、类型转换的V B函数。9.3.1字符和字符串1.字符数据类型V B的字符类型数据支持两种格式,一种是定长,另一种 是不定长。如:D
5、im S trl As S tringDim S tr2 As S tring*长度数值在V B中,变长字符串最多可包含大约20亿(2-31)个字符,而定长字符串可包含1到大约64K(216)个字符。V B使用符号和“+”连接字符串形成更大的 字符串。(1)如果连接运算符的两边都是字符型数据,这两个符号都可以使 用。(2)如果把不同类型的数据连接为字符串,使用连接符。建 议使用连接符,可以避免出现类型不匹配的错误。例:S trl=Hell”+“World”S trl中的字符为“Hello World”S trl 二 Hello+2运行时产生,类型不匹配错误,应该使用&代替十9.3.2 比较字符
6、1.使用比较运算符理解一个字符“大于”、“小于”或者“等 于”的含义,是考虑字符在字符表中位置后决 定的。它们按照ASCH码对字符进行排序,然后 比较它们的代码值的大小决定比较结果。Dim S trl As S tring,S tr2 As S tringS trl=A:S tr2=BPrint S trl=S tr2Print S trl S tr2Print S trl “V B6”成立比较结果为False,因为“abc”“V B6”不成立2.S trComp函数函数S trComp用来比较两个字符串,并返回比较 结果。使用格式为:S trComp(S tringl,S tring2,Co
7、mpareType)比较结果的返回值如下:条件S trComp返回值stringl 小于 string2-1stringl 等于 string20stringl 大于 string21stringl 或 string 2为 NullNull13Visual Basic程序设计教程CompareType参数意义如下表所示:常数值描述vbUseCompareOption-1使用Option Compare语句设置执行一个比较vbBinaryCompare0执行一个二进制比较。vbTextCompare1执行一个按照原文的比较。vbDatabaseCompare2仅适用于Microsoft Acce
8、ss,执行一个基于数 据库信息的比较。14Visual Basic程序设计教程9.3.3 String函数和Str函数1.S tring函数使用格式:S tring(Number,Character)函数执行后按创建长度返回重复字符的字符串,其中,Number给出所创建的字符串长度。参数 Character是一个字符(或Ascii码)或字符串表 达式,但只使用它的第一个字符创建新的字符串,如果Character包含了Null就返回Null。例:Dim strl as string,str2 as string,str3S trl=S tring(5,“*)返回 jX jX jX jX QS t
9、r2=S tring(5,42)AS CII码42的字符为*,返回 x|c oS tr3=S tring(10,“ABC”+Null)返回 Null。Visual Basic程序设计教程2.S tr函数函数S tr把一个数值转换为V ariant型。它的使用格式为:S tr(Number)例:(S tring)类S trl=S tr$(123.5)S tr2=S tr(-123.5)Print S trl,S tr2输出123.5,-123.5注意字符串前有一个空格 和符号位9.3.4字符数组字符数组就是数组中的元素都是字符串的数组,使用S tring定义字符数组。有关字符串数组操作 的三个函
10、数如下:1.Join函数Join函数连接某个数组中的多个子字符串而创建 一个新的字符串。函数格式为:Join(List ,Delimiter)其中参数List指出被连接的字符数组 Delimit er是可选参数,在返回字符串中用于 分隔子字符串的字符。默认使用空格来分 隔子字符串。如果Delimiter是零长度字符串,所有元素项都连接在一起,中间没有分隔 符。例如:Dim S trA(2)As S tring,S trl As S tringS trA(O)二欢迎来到S trA(1)二V isual S trA(2)=Basic 6”S trl=Join(S trA)连接字符数组 S trA中
11、三个字符串20 Visual Basic程序设计教程给定一个字符串,可以使用S plit函数创建一个 一维数组,它包含指定数目的子字符串。函数格式Strl ngExDress.Del 1 mi ter.Count.ComDareTvDe1 11)S tringExpress必需参数,字符串表达式。如果表达式的长度为零即为,S plit返回 一个空数组,即没有元素和数据的数组Delimiter可选参数,标识子字符串边界字符。默认空格字符为分隔符。如果该 参数是空字符,则返回数组仅包含一个元素,即S tringExpress字符 串Count可选参数,指定返回的子字符串数,-1表示返回所有的子字符
12、串CompareType可选参数,用数字值表不判别子字符串时使用的比较方式。息义同表9.121Visual Basic程序设计教程【例9-2】使用S plit函数。程序执行后的显示如图 所示。程序代码如下:Private S ub Form_Load()Dim x()As S tringDim y As S tring,n As Integer S howy=Welcome To V isual Basic 6!x=S plit(y)For n=LBound(x)To UBound(x)Print&x(n)NextEnd S ub22Visual Basic程序设计教程3.Filter函数。从
13、一个已知数组中搜索指定的字符串,可以使用Filter函数,ilter函数的格式为:Filter(S tringsArray,V alue,Include,CompareType)S tringsArray必需参数,被执行搜索的一维字符串数组V alue必需参数,要搜索的字符串Include可选参数,Boolean值。True返回的是包含 V alue子字符串的数组子集。False则返回的是 不包含V alue子字符串的数组子集CompareType可选的数字值,表示所使用的比较类型,意 义同表9.123Visual Basic程序设计教程【例93】请从数组A中选出包 括“VB”和不包括“VB”
14、的 元素程序执行后的显示如图所示。Private S ub Form Load()S howDim A(6)As S tring,B()As S tring,C()As S tringA(0)=C:A(l)=V B6:A(2)=C+A(3)二 Jave:A(4)二 V B5:A(5)二MS.NetPrint数组A中所有的字符串元素有:Call Prt(A)B()二 Filter(A,V B)Private S ub Prt(m()As S tring)For n=0 To UBound(m)Print数组A中包含有V B字符的元素有:Call Prt(B)End S ubC()二 Filter
15、(A,V B,False)Print数组A中不包含V B字符的元素有:Call Prt(C)End S ub25Visual Basic程序设计教程本节给出V B处理字符串的常用操作,如取 单个字符、取其中指定的字符、去除字符串中 的空格和转换函数。26Visual Basic程序设计教程9.4.1 Like运算符比较运算符Like用于比较字符串。Like返回一个 逻辑值:True表示被比较的两个字符串相匹配,False表示不匹配。使用格式为:Result 二 S tringl Like PatternV B根据模式匹配可以使用通配符来匹配字符串。也就是说使用Windows中的?、*和#三个匹
16、配 符:?表示任何单一字符,*表示零个或多个字*表示零个或多个字符,#表示任何一个数字(0-9)o例如有S trl=Hello Worldv,则表达式S trl Like“Hello WorldvS trl Like“Hello*”S trl Like“Hello?”返回的结果为都为True。9.4.2使用Mid操作字符串中的字符操作字符串中的单个或者多个字符,一般情况下使用Mid函 数或者Mid语句。关键字Mid在V B中既是函数也是语句。1.Mid函数Mid函数的格式如下:Mid(S tringl,S tart L Length)参数S tringl是被操作的字符串,S tart为一个数字
17、,指示从S tringl中的字符起始位置,Length是可选参数,指示要返回的字符数,如果不指定则从S tart开始往后的 所有字符。例如:Mid(Hello”,2,1)返回字符。2.Mid语句Mid是作为语句使用,Mid出现在赋值号的左边,格式 为:Mid(S tringl,S tart ,Length)=S tring2 用S tr ing2字符串代替S tringl从S tart位置开始的字 符,可选参数Length为替换的长度。注意,字符串 S tring2的长度总是小于等于Length。假设我们已经定 义了MyS tr=V isual Basic,贝Mid(S trl,8)=C+执行
18、的结果使得S trl中的字符串为“V isualC+”(包括后面的两个空格)。9.4.3使用Left、Right和InStr操作字符串1.Left函数使用Left函数选择字符串左边起到指定位置的部分。例如:Strl=Visual Basic”Str2=Left(Str1,6)2.Right函数使用Right函数选择字符串的右边部分。例如:Strl=Visual Basic”Str2=Rightt(Str1,5)3.InS tr函数使用格式为:InS tr(S tart,S tringl,S tring2)可选参数S tart为开始进行搜索的位置,默认为1表示从 头开始。S tringl为基字符
19、串,S tring2为搜索字符串,InS tr在S tringl中搜索是否包含S tring2字符串。返回结 果为数字,0表示没有找到,非0表示返回S tring2在 S tringl中出现的第一个起始位置假设S trl=V isual Basic”,S tr2=Basic,则 执行语句:返回的结果为8,表示“Basic”在“V isual Basic”InS tr(S trl,S tr2)32Visual Basic程序设计教程9.4.4 删除多余的空格使用LTrim、RTrim与Trim函数得到1s字符串的 拷贝,删除前导空格(LTrim).删除尾随空格(RTrim)o Trim函数将两头
20、空格全部去除,但不 删除中间的空格。:Dim MyS tring,TrimS tring MyS tring=V B6 TrimS tring=LTrim(MyS tring)TrimS tring=V B6 TrimS tring=RTrim(MyS tring)TrimS tring=V B6 TrimS tring=Trim(MyS tring)TrimS tring=V B633Visual Basic程序设计教程9.4.5 转换函数1.Asc和Chr函数Asc是取一个字符的AS CH码的函数;Asc函数对单个的字符计算,如果给出的字符多于 一个,它计算第一个字符的AS CH值。例如:
21、Asc(a),得到的值为97Chr是Asc的逆函数,它将一个数值转换为对应的字符,例如 Chr(97)返回的就是字母a。Chr(13)和Chr(10)就分别代表回车 和换行。2.转换大小写函数UCase和LCase分别将字符串的字母转换为大 写或小写。它们的使用方法比较简单:UCase(S tringExpress)LCase(S tringExpress)其中,S tringExpress可以是字符串或者是字符 串表达式。例如S trl=V isual Basic 6“,则:S trResult=UCase(S trl)S trResult=V IS UAL BAS IC 6”S trRes
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 处理字符串和日期时间 Visual Basic程序设计教程 处理 字符串 日期 时间 Basic 程序设计 教程
1、咨信平台为文档C2C交易模式,即用户上传的文档直接被用户下载,收益归上传人(含作者)所有;本站仅是提供信息存储空间和展示预览,仅对用户上传内容的表现方式做保护处理,对上载内容不做任何修改或编辑。所展示的作品文档包括内容和图片全部来源于网络用户和作者上传投稿,我们不确定上传用户享有完全著作权,根据《信息网络传播权保护条例》,如果侵犯了您的版权、权益或隐私,请联系我们,核实后会尽快下架及时删除,并可随时和客服了解处理情况,尊重保护知识产权我们共同努力。
2、文档的总页数、文档格式和文档大小以系统显示为准(内容中显示的页数不一定正确),网站客服只以系统显示的页数、文件格式、文档大小作为仲裁依据,平台无法对文档的真实性、完整性、权威性、准确性、专业性及其观点立场做任何保证或承诺,下载前须认真查看,确认无误后再购买,务必慎重购买;若有违法违纪将进行移交司法处理,若涉侵权平台将进行基本处罚并下架。
3、本站所有内容均由用户上传,付费前请自行鉴别,如您付费,意味着您已接受本站规则且自行承担风险,本站不进行额外附加服务,虚拟产品一经售出概不退款(未进行购买下载可退充值款),文档一经付费(服务费)、不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
4、如你看到网页展示的文档有www.zixin.com.cn水印,是因预览和防盗链等技术需要对页面进行转换压缩成图而已,我们并不对上传的文档进行任何编辑或修改,文档下载后都不会有水印标识(原文档上传前个别存留的除外),下载后原文更清晰;试题试卷类文档,如果标题没有明确说明有答案则都视为没有答案,请知晓;PPT和DOC文档可被视为“模板”,允许上传人保留章节、目录结构的情况下删减部份的内容;PDF文档不管是原文档转换或图片扫描而得,本站不作要求视为允许,下载前自行私信或留言给上传者【曲****】。
5、本文档所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用;网站提供的党政主题相关内容(国旗、国徽、党徽--等)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。
6、文档遇到问题,请及时私信或留言给本站上传会员【曲****】,需本站解决可联系【 微信客服】、【 QQ客服】,若有其他问题请点击或扫码反馈【 服务填表】;文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“【 版权申诉】”(推荐),意见反馈和侵权处理邮箱:1219186828@qq.com;也可以拔打客服电话:4008-655-100;投诉/维权电话:4009-655-100。