第9章处理字符串和日期时间.ppt

《第9章处理字符串和日期时间.ppt》由会员分享，可在线阅读，更多相关《第9章处理字符串和日期时间.ppt（66页珍藏版）》请在三一文库上搜索。

1、第9章 处理字符串和日期时间,Visual Basic 程序设计教程,Visual Basic程序设计教程,2,本章主要介绍： 字符类型和字符数组 操作字符串 查找和替换字符串 处理日期和时间 使用VB的日历控件MonthView,Visual Basic程序设计教程,3,9.1 概述,在大量的应用系统中，文本是表达和交互数 据的基本类型，而文本的计算机内部表示就 是字符数据类型 学会运用VB提供的内部函数，包括比较字符 串和搜索字符串，以及在字符串和其他数据 类型之间的转换等,Visual Basic程序设计教程,4,往往应用程序中需要有日期和时间的相关信息，这就涉及到程序如何表达以及如何使

2、用 合适的格式表达程序中对日期时间的处理要 求,Visual Basic程序设计教程,5,9.2 一个简单的字符加密处理程序, 【例9-1】一个简单的示例程序，把给出的字符进行加密，然后再解密，程序界面如图所示:,Visual Basic程序设计教程,6,Dim Str1 As String, Str2 As String Option Compare Text Private Sub CmdEncrypt_Click() Dim N As Byte, Count As Integer Text2.Text = “ N = Len(Text1.Text) For Count = 1 To N

3、Str1 = Mid(Text1.Text, Count, 1) If (Count Mod 2) = 0 Then Text2.Text = Text2.Text & ChrW(AscW(Str1) + 2) Else Text2.Text = Text2.Text & ChrW(AscW(Str1) + 1) End If Next End Sub,Private Sub Form_Load() Label1.Caption = “请输入：“ Label2.Caption = “加密后输出：“ Label3.Caption = “解密后输出“ Text1.Text = “ Text2.Te

4、xt = “ Text3.Text = “ End Sub,Visual Basic程序设计教程,7,Private Sub CmdUncoil_Click() Dim N As Byte, Count As Integer Text3.Text = “ N = Len(Text2.Text) For Count = 1 To N Str1 = Mid(Text2.Text, Count, 1) If Count Mod 2 = 0 Then Text3.Text = Text3.Text & ChrW(AscW(Str1) - 2) Else Text3.Text = Text3.Text

5、& ChrW(AscW(Str1) - 1) End If Next End Sub,Visual Basic程序设计教程,8,9.3 字符类型和字符数组,本节在小结前述章节的有关字符数据类型的基础上，进一步介绍有关字符运算、字符数组和实现。 各种字符操作和字符转换、类型转换的VB函数。,Visual Basic程序设计教程,9,9.3.1 字符和字符串 1字符数据类型 VB的字符类型数据支持两种格式，一种是定长，另一种是不定长。如： Dim Str1 As String Dim Str2 As String * 长度数值 在VB中，变长字符串最多可包含大约20亿(231)个字符，而定长字符串

6、可包含1到大约 64K(216)个字符。,Visual Basic程序设计教程,10,2字符连接运算 VB使用符号“&” 和“+”连接字符串形成更大的字符串。 （1）如果连接运算符的两边都是字符型数据，这两个符号都可以使用。 （2）如果把不同类型的数据连接为字符串，使用连接符“&”。建议使用“&”连接符，可以避免出现类型不匹配的错误。例： Str1 = “Hell”+ “ World” Str1中的字符为 “Hello World” Str1 =”Hello” + 2 运行时产生，类型不匹配错误，应该使用& 代替,Visual Basic程序设计教程,11,9.3.2 比较字符 1使用比较运算

7、符 理解一个字符“大于”、“小于”或者“等 于”的含义，是考虑字符在字符表中位置后决 定的。它们按照ASCII码对字符进行排序，然后 比较它们的代码值的大小决定比较结果。,Visual Basic程序设计教程,12,Dim Str1 As String, Str2 As String Str1 = “A“: Str2 = “B“ Print Str1 = Str2 比较结果为False，因为字符 “A”和“B”不相等 Print Str1 Str2 比较结果为True，因为 “abc”“VB6”成立 Print Str1 Str2 比较结果为False，因为 “abc”“VB6”不成立,Vis

8、ual Basic程序设计教程,13,2StrComp函数 函数StrComp用来比较两个字符串，并返回比较结果。使用格式为：StrComp(String1, String2, CompareType) 比较结果的返回值如下 ：,Visual Basic程序设计教程,14,CompareType参数意义如下表所示：,Visual Basic程序设计教程,15,9.3.3 String函数和Str函数 1String函数 使用格式：String(Number, Character) 函数执行后按创建长度返回重复字符的字符串，其中，Number给出所创建的字符串长度。参数Character是一个字

9、符（或Ascii码）或字符串表达式，但只使用它的第一个字符创建新的字符串，如果Character包含了Null就返回Null。,Visual Basic程序设计教程,16,例：Dim str1 as string, str2 as string ,str3 Str1 = String(5, “*”) 返回 “*“。 Str2 = String(5, 42) ASCII 码42的字符为*,返回 “*“。 Str3 = String(10, “ABC” + Null) 返 回 “Null“。,Visual Basic程序设计教程,17,2Str函数 函数Str把一个数值转换为Variant (St

10、ring)类型。它的使用格式为：Str(Number) 例： Str1 = Str$(123.5) Str2 = Str(-123.5) Print Str1,Str2 输出 123.5，-123.5 注意字符串前有一个空格和符号位,Visual Basic程序设计教程,18,9.3.4 字符数组 字符数组就是数组中的元素都是字符串的数组，使用String定义字符数组。有关字符串数组操作的三个函数如下： 1Join函数 Join函数连接某个数组中的多个子字符串而创建一个新的字符串。函数格式为： Join(List, Delimiter),Visual Basic程序设计教程,19,其中参数Li

11、st指出被连接的字符数组Delimiter是可选参数，在返回字符串中用于分隔子字符串的字符。默认使用空格“ “来分隔子字符串。如果Delimiter是零长度字符串“，所有元素项都连接在一起，中间没有分隔符。,Visual Basic程序设计教程,20,例如： Dim StrA(2) As String, Str1 As String StrA(0) = “欢迎来到“ StrA(1) = “Visual “ StrA(2) = “Basic 6“ Str1 = Join(StrA) 连接字符数组StrA中三个字符串,Visual Basic程序设计教程,21,2Split函数 给定一个字符串，可

12、以使用Split函数创建一个一维数组，它包含指定数目的子字符串。函数格式为：Split( StringExpress, Delimiter, Count, CompareType),Visual Basic程序设计教程,22,【例9-2】使用Split函数。程序执行后的显示如图所示。程序代码如下： Private Sub Form_Load() Dim x() As String Dim y As String, n As Integer Show y = “Welcome To Visual Basic 6 !“ x = Split(y) For n = LBound(x) To UBoun

13、d(x) Print “ “ & x(n) Next End Sub,Visual Basic程序设计教程,23,3Filter函数。 从一个已知数组中搜索指定的字符串，可以使用Filter函数 ，ilter函数的格式为： Filter(StringsArray, Value, Include, CompareType),Visual Basic程序设计教程,24,【例9-3】请从数组A中选出包 括“VB” 和不包括 “VB” 的元 素。 程序执行后的显示如图所示。,Visual Basic程序设计教程,25,Private Sub Form_Load() Show Dim A(6) As S

14、tring, B() As String, C() As String A(0) = “C“: A(1) = “VB6“: A(2) = “C+“ A(3) = “Jave“: A(4) = “VB5“: A(5) = “MS.Net“ Print “数组 A 中所有的字符串元素有：“ Call Prt(A) B() = Filter(A, “VB“) Print “数组A中包含有VB字符的元素有：“ Call Prt(B) C() = Filter(A, “VB“, False) Print “数组A中不包含VB字符的元素有：“ Call Prt(C) End Sub,Private Sub

15、 Prt(m() As String) For n = 0 To UBound(m) Print “ “ & m(n) Next Print End Sub,Visual Basic程序设计教程,26,9.4 操作字符串,本节给出VB处理字符串的常用操作，如取单个字符、取其中指定的字符、去除字符串中的空格和转换函数。,Visual Basic程序设计教程,27,9.4.1 Like运算符 比较运算符Like用于比较字符串。Like返回一个逻辑值：True表示被比较的两个字符串相匹配，False表示不匹配。使用格式为：Result = String1 Like Pattern VB根据模式匹配可

16、以使用通配符来匹配字符串。也就是说使用Windows中的?、*和三个匹配符：？表示任何单一字符，*表示零个或多个字,Visual Basic程序设计教程,28,*表示零个或多个字符，#表示任何一个数字 (09)。例如有Str1= “Hello World”，则表达式 Str1 Like “Hello World” Str1 Like “Hello* ” Str1 Like “Hello? ” 返回的结果为都为True。,Visual Basic程序设计教程,29,9.4.2 使用Mid操作字符串中的字符 操作字符串中的单个或者多个字符，一般情况下使用Mid函数或者Mid语句。关键字Mid在VB

17、中既是函数也是语句 。 1Mid函数 Mid函数的格式如下：Mid(String1, Start, Length) 参数String1是被操作的字符串，Start为一个数字，指示从String1中的字符起始位置，Length是可选参数，指示要返回的字符数，如果不指定则从Start开始往后的所有字符。例如： Mid(“Hello”, 2,1) 返回字符e,Visual Basic程序设计教程,30,2Mid语句 Mid是作为语句使用，Mid出现在赋值号的左边，格式 为：Mid（String1，Start , Length）= String2 用String2字符串代替String1从Start位

18、置开始的字 符，可选参数Length为替换的长度。注意，字符串 String2的长度总是小于等于Length。假设我们已经定 义了MyStr = “Visual Basic“，则： Mid(Str1, 8) = “C+ “ 执行的结果使得Str1中的字符串为“Visual C+ ”(包括后面的两个空格)。,Visual Basic程序设计教程,31,9.4.3 使用Left、Right和InStr操作字符串 1Left函数 使用Left函数选择字符串左边起到指定位置的部分。 例如： Str1 = “Visual Basic” Str2 = Left(Str1,6) 2Right函数 使用Rig

19、ht函数选择字符串的右边部分。例如： Str1 = “Visual Basic” Str2 = Rightt(Str1,5),Visual Basic程序设计教程,32,3InStr函数 使用格式为：InStr(Start, String1, String2) 可选参数Start为开始进行搜索的位置，默认为1表示从头开始。String1为基字符串，String2为搜索字符串，InStr在String1中搜索是否包含String2字符串。返回结果为数字,0表示没有找到,非0表示返回String2在String1中出现的第一个起始位置 假设Str1=”Visual Basic”，Str2=”Bas

20、ic”，则执行语句： InStr（Str1，Str2） 返回的结果为8，表示“Basic”在“Visual Basic”中的位置为8。,Visual Basic程序设计教程,33,9.4.4 删除多余的空格 使用LTrim、RTrim与Trim函数得到一个字符串的拷贝，删除前导空格 (LTrim)、删除尾随空格 (RTrim)。Trim函数将两头空格全部去除，但不删除中间的空格。 例:Dim MyString, TrimString MyString = “ VB6 “ TrimString = LTrim(MyString) TrimString = “VB6 “ TrimString =

21、RTrim(MyString) TrimString = “ VB6“ TrimString = Trim(MyString) TrimString = “VB6“,Visual Basic程序设计教程,34,9.4.5 转换函数 1Asc和Chr 函数Asc是取一个字符的ASCII码的函数; Asc函数对单个的字符计算，如果给出的字符多于一个，它计算第一个字符的ASCII值。 例如：Asc（”a”） 得到的值为97 Chr是Asc的逆函数，它将一个数值转换为对应的字符，例如 Chr(97)返回的就是字母a。Chr(13)和Chr(10)就分别代表回车 和换行。,Visual Basic程序设

22、计教程,35,2转换大小写 函数UCase和LCase分别将字符串的字母转换为大写或小写。它们的使用方法比较简单： UCase(StringExpress) LCase(StringExpress) 其中，StringExpress可以是字符串或者是字符串表达式。例如Str1 = “Visual Basic 6“，则： StrResult = UCase(Str1) StrResult = ”VISUAL BASIC 6” StrResult = LCase(Str1) StrResult = “visual basic 6”,Visual Basic程序设计教程,36,3IsNumberic

23、和Val IsNumeric判断一个字符串是否可以被完整地转换为数字，例如： Print IsNumeric(“123.456”) 执行后输出为True， Print IsNumeric(“123A.456“) 执行后的输出则为False。 其他的判断类型的函数还有IsStrIsArray判断变量是否为一个数组，IsEmpty 函数判断变量是否已经初始化，IsError函数判断表达式是否为一个错误值。IsNull函数判断表达式是否不包含任何有效数据 (Null)，IsObject函数判断标示符是否表示对象变量等，它们返回的都是布尔值。,Visual Basic程序设计教程,37,Val的函数的

24、使用格式为： Val(StringExpress) 把字符串表达式StringExpress转换为数字，按以 下规则： （1）如果StringExpress是由数符组成（包括小 数点），则返回一个转换的数字值。 （2）如果StringExpress中的数符含有空格，忽 略空格。,Visual Basic程序设计教程,38,（3）如果StringExpress含有数字和字母等其他符号，只转换最前 面的数字部分。 例：MyValue = Val(“2457”) 返回 2457。 MyValue = Val(“ 2 45 7”) 返回 2457。 MyValue = Val(“24 and 57“)

25、 返回 24。,Visual Basic程序设计教程,39,4Hex和Oct Hex和Oct是将一个数值型或字符型表达式转换为十六进制和八进制数。例如： Print Hex(123) Print Oct(“123“) 分别输出十六进制数7B和八进制数173,Visual Basic程序设计教程,40,9.4.6 其它类型转换函数,Visual Basic程序设计教程,41,9.4.7 格式化函数Format Format函数的使用格式为： Format(Expression, format) 其中，表达式Expression可以为任何有效表达式，而可选参数Format为指定的格式表达式。格式可

26、以是VB预先定义的，也可以是用户定义的。可使用VB预定义名字来指定这些格式，如表9.3所示。数字格式可以由用户指定，如表9.4所示。格式名总是用双引号“括起来。,Visual Basic程序设计教程,42,例： Num1 = 123456789.34567 Print Format(Num1, “Currency”) 显示 ￥123,456,789.35 Print Format(0.154, “Percent“) 显示15.4% Print Format(1, “On/Off“) 显示 On Format(8315.4, “00000.00”) 显示08315.40 Format(8315.

27、4, “#.#”) 显示8315.4 Format(8315.4,“#,#0.00”) 显示8,315.40 Format(315.4,“$#0.00”) 显示 $315.40,Visual Basic程序设计教程,43,9.4.8 Len函数和Space函数 1Len函数 函数执行后返回一个Long型值，指示字符串内字符的数目，或是存储一变量所需的字节数。使用格式为：Len(string | varname) 例： dim x as string x=“abcd” print len(x) 显示4 dim x as integer x=12345 print len(x) 显示2,Visua

28、l Basic程序设计教程,44,2Space函数 执行Space函数返回特定数目空格。使用格式为： Space(number) 其中所必须的number参数为字符串中想要的空格数。例如： Dim MyString MyString = Space(10) 返回 10 个空格的字符串。 MyString = “Hello“ & Space(10) & “World“ 将 10 个空格插入两个字符串中间。,Visual Basic程序设计教程,45,9.5 查找和替换字符串,字处理器中，字符的查找和替换是基本功能。运用前面介绍过的一些字符处理函数，可以实现对字符串中的指定的子字符串进行查找和替换

29、操作,例如使用InStr，使用Mid函数和Mid语句等。VB还提供了一个函数Replace实现这个功能。 Replace函数返回一个字符串，该字符串中指定的子字符串已被替换成另一子字符串，并且替换发生的次数也可以指定。使用格式为：,Visual Basic程序设计教程,46,Replace(Expression, Find, Replacewith, Start, Count) 函数参数Expression为字符串表达式，其中包含要被替换的子字符串。Find是指定要搜索的子字符串，Replacewith用来替换的子字符串。Start确定在Express子字符串搜索的开始位置，默认从1开始。Co

30、unt为进行替换的次数，默认是1，它表明进行所有可能的替换。可以根据Replace函数的返回值判断查找和替换操作的结果。返回值如表9.5所示。,Visual Basic程序设计教程,47,【例9-4】用一个文本框作为简单的字编辑器，在其中输入一段有关电 脑编程的文字，然后用 查找替换的方法，将文 本框中的“电脑”全部 替换为“计算机”。 程序界面如图所示,Visual Basic程序设计教程,48,9.6 处理日期和时间,【例9-5】使用VB的函数处理日期和时间的示例。,Private Sub Form_Load() Label1.Caption = “VB的日期和时间格式” List1.Ad

31、ditem “当前的日期和时间:“ & Now List1.Additem “今天是：“ & Date List1.Additem “今天是：“ & Day(Date) & “号“ List1.Additem “今天是：一周的第“ & Weekday(Date) & “天“ List1.Additem “今天是：“ & Weekdayname(Weekday(Date) List1.Additem “本月是：“ & Monthname(Month(Date) List1.Additem “今年是：“ & Year(Date) End Sub,Visual Basic程序设计教程,49,9.6.

32、1 Date函数和数据类型 1 判断Date数据类型 Dim Mydate As Date 定义MyDate为日期型变量 Mydate = #2005-11-14# 给MyDate赋值 VB使用IsDate 函数指出一个表达式是否可以转换 成日期。使用格式为： IsDate(Expression),Visual Basic程序设计教程,50,参数Expression可以是一个日期表达式或字符串表达式。函数返回True表示可以实现转换，False表示不能转换。例如： IsDate(#1:01:01 AM#) 返回True IsDate（1) 返回False,Visual Basic程序设计教程,

33、51,2取当前日期信息 Now函数。返回系统当前的日期与时间。 Date函数。返回包含系统日期的Date型数据。 Day () 函数。返回一个月中的某一日。 Weekday()函数。返回一个整数，代表某个日期是一周中的第几天。 Weekdayname()函数。返回一个字符串，表示一星期中的某天。 Month()函数。返回一年中1到12之间的某一月。 Year()函数。返回包含表示年份的整数。,Visual Basic程序设计教程,52,3设置系统日期 使用date语句，格式为： Date = NewDate 赋值号的右边NewData为新设置的日期数据。 例如： Mydate = #2005-

34、11-14#， Date = Mydate,Visual Basic程序设计教程,53,4DateSerial 函数 执行DateSerial函数将返回包含指定的年、 月、日的日期数据。使用格式为： DateSerial(Year, Month, Day) 5DateValue 函数 执行Datavalue函数将返回一个日期值，使用 格式为： DateValue(Date) 其中参数Date通常是字符串表达式或其他表达式。,Visual Basic程序设计教程,54,9.6.2 时间数据 1取当前时间 取当前时间使用Time函数，使用格式为：Time 例如： Print Time 输出当前时间

35、到窗体上与时间相关的函数还有Hour(小时)、Minute（分）、Second（秒）等。例如要得到当前的时间的小时数，使用如下语句： Print Hour(Time),Visual Basic程序设计教程,55,2设置时间 同样我们也可以对机器的时间进行设置，这时 Time关键字位于赋值号的左边。例如直接给时 间赋值： Time = #12:0:0# 也可以使用变量给系统时间赋值： Mytime = #4:35:17 PM# 指定一个时间 Time = Mytime,Visual Basic程序设计教程,56,3TimeSerial 函数 使用格式为：TimeSerial(Hour, Minu

36、te, Second) 函数执行后，返回一个Date型的数据。其中参数Hour、Minute、Second分别为时、分、秒，正常取值范围分别为 0 (12:00 AM. )23 (11:00 PM)、059、059，或者为任何可以被接受的表达式。 例如：TimeSerial(12 - 6, -15, 0),Visual Basic程序设计教程,57,4TimeValue 函数 TimeValue函数返回一个包含时间的数据(Date类型)，使用格式为：TimeValue(Time) 其中Time 参数通常是一个字符串表达式或其他表达式，表示 0:00:00 (12:00:00 A.M.) 到 2

37、3:59:59 (11:59:59 P.M.) 之间的时刻。如果 Time 包含 Null，则返回 Null。,Visual Basic程序设计教程,58,9.6.3 日期的计算 日期的计算最直接的方法是通过算术表达式进行计算。例如下列程序代码给出了当前日前前1天是哪一天： Dim Date1 As Date Date1 = Date - 100 Print Date1 除了使用算术表达式，VB提供了进行日期计算三个函数DateAdd、DateDiff和DatePart。,Visual Basic程序设计教程,59,9.6.4 格式化日期和时间 1FormatDateTime函数 函数Form

38、atDateTime将返回一个日期或时间格式的表达式。使用格式为： FormatDateTime(Date,NamedFormat) 其中参数Date是必需的，它给出要被格式化的日期表达式。NamedFormat是可选的，使用数字值表示日期/时间所使用的格式。,Visual Basic程序设计教程,60,Visual Basic程序设计教程,61,【例9-7】使用FormatDateTime函数给出日期和时间的不同格式。程序代码如下。 Private Sub Form_Load() Dim MyDate As Date Show MyDate = FormatDateTime(Now, vbG

39、eneralDate) Print Print “ 默认的日期时间格式： “ & MyDate Print “ 长 日 期 格 式： “ & FormatDateTime(Now,vbLongDate) Print “ 短 日 期 格 式： “ & FormatDateTime(Now, vbShortDate) Print “ 长 时 间 格 式： “ & FormatDateTime(Now, vbLongTime) Print “ 短 时 间 格 式： “ & FormatDateTime(Now, vbShortTime) End Sub,Visual Basic程序设计教程,62,2

40、Format函数格式化日期时间 Format( Express，FormatType) 其中，Express可以是Date型的数据或表达式，FormatType使用表9.9中的设置值，例如yyyy代表4位年份，mm代表两位的月份，m使用一位的月份（如果超过一位，如11月12月，按实际输入），使用d表示日，dddd表示星期， hh表示时，nn表示分，ss表示秒等。也可以使用VB预定义的格式名（如表9.6所示）。,Visual Basic程序设计教程,63,【例9-8】使用Format函数格式化日期和时间的例子。执行程序后的显示如图9.8所示。程序代码如下。 Private Sub Form_Lo

41、ad() Dim MyDate As Date Show MyDate = Format(#1/1/2005#, “ mm/dd/yyyy“) Print “ “ & MyDate Print Format(#1/1/2005#, “ m/d/yy“) Print Format(#1/1/2005#, “ mmmm d,yy“) Print Format(#1/1/2005#, “ dd“) Print Format(#1/1/2005#, “ dddd“) Print “ 当前日期“ & Format(Now, “ dddddd“) Print “ 当前日期为本月的第“ & Format(N

42、ow, “ w“) & “周“ Print Format(Now, “ hh:nn:ss“) Print Format(Now, “ hh:nn AM/PM“) Print Format(#11:59:59 AM#, “ hh:ss AM/PM“) Print Format(#12:00:01 AM#, “ hh:ss AM/PM“) End Sub,Visual Basic程序设计教程,64,9.7 使用VB的日历控件MonthView,VB提供了几个日历控件，本节通过一个例子演示日历控件的使用。 【例9-10】从MonthView中选取日期，在文本框中显示。,Visual Basic程序设计教程,65,9.8 程序举例,设计一个简易定时器，界面如图所示。图中文本框Text1用来显示开始时间和定时的时间间隔，用单选按钮“时间”和“间隔（分）”确定文本框中的输入数据是定时的 开始时间和定时间隔。使用命令按钮“开始”进入定时过程，“重置”按钮使得定时设置重新开始。,Visual Basic程序设计教程,66,进入定时过程，在窗体的标题栏上以秒为单位进行倒计时，计时归零后通过机器的内部扬声器发出声音。,