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 StringOption Compare TextPrivate Sub CmdEncrypt_Click()Dim N As Byte, Count As IntegerText2.Text = “N = Len(Text1.Text)For Count = 1 To NStr1 = Mid(Te
3、xt1.Text, Count, 1)If (Count Mod 2) = 0 ThenText2.Text = Text2.Text & ChrW(AscW(Str1) + 2)ElseText2.Text = Text2.Text & ChrW(AscW(Str1) + 1)End IfNextEnd Sub,Private Sub Form_Load()Label1.Caption = “请输入：“Label2.Caption = “加密后输出：“Label3.Caption = “解密后输出“Text1.Text = “Text2.Text = “Text3.Text = “ End
4、Sub,Visual Basic程序设计教程,7,Private Sub CmdUncoil_Click()Dim N As Byte, Count As IntegerText3.Text = “N = Len(Text2.Text)For Count = 1 To NStr1 = Mid(Text2.Text, Count, 1)If Count Mod 2 = 0 ThenText3.Text = Text3.Text & ChrW(AscW(Str1) - 2)ElseText3.Text = Text3.Text & ChrW(AscW(Str1) - 1)End IfNextEnd
5、 Sub,Visual Basic程序设计教程,8,9.3 字符类型和字符数组,本节在小结前述章节的有关字符数据类型的基础上，进一步介绍有关字符运算、字符数组和实现。 各种字符操作和字符转换、类型转换的VB函数。,Visual Basic程序设计教程,9,9.3.1 字符和字符串 1字符数据类型 VB的字符类型数据支持两种格式，一种是定长，另一种是不定长。如：Dim Str1 As StringDim Str2 As String * 长度数值 在VB中，变长字符串最多可包含大约20亿(231)个字符，而定长字符串可包含1到大约 64K(216)个字符。,Visual Basic程序设计教程,
6、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 StringStr1 = “A“: Str2 = “B“Print Str1 = Str2 比较结果为False，因为字符 “A”和“B”不相等Print Str1 Str2 比较结果为True，因为 “abc”“VB6”成立Print Str1 Str2 比较结果为False，因为 “abc”“VB6”不成立,Visual Basic程序设计教程,13,2StrComp函数 函数StrComp用来比较两个字符串，并
8、返回比较结果。使用格式为：StrComp(String1, String2, CompareType) 比较结果的返回值如下 ：,Visual Basic程序设计教程,14,CompareType参数意义如下表所示：,Visual Basic程序设计教程,15,9.3.3 String函数和Str函数 1String函数 使用格式：String(Number, Character) 函数执行后按创建长度返回重复字符的字符串，其中，Number给出所创建的字符串长度。参数Character是一个字符（或Ascii码）或字符串表达式，但只使用它的第一个字符创建新的字符串，如果Character包含
9、了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 (String)类型。它的使用格式为：Str(Number) 例：Str1 = Str$(123.5) Str
10、2 = 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,其中参数List指出被连接的字符数组Delimiter是可选参数，在返回字符串中用于分隔子字符串的字符。默认使用空格“ “
11、来分隔子字符串。如果Delimiter是零长度字符串“，所有元素项都连接在一起，中间没有分隔符。,Visual Basic程序设计教程,20,例如： Dim StrA(2) As String, Str1 As StringStrA(0) = “欢迎来到“StrA(1) = “Visual “StrA(2) = “Basic 6“Str1 = Join(StrA) 连接字符数组StrA中三个字符串,Visual Basic程序设计教程,21,2Split函数 给定一个字符串，可以使用Split函数创建一个一维数组，它包含指定数目的子字符串。函数格式为：Split( StringExpress,
12、 Delimiter, Count, CompareType),Visual Basic程序设计教程,22,【例9-2】使用Split函数。程序执行后的显示如图所示。程序代码如下：Private Sub Form_Load()Dim x() As StringDim y As String, n As IntegerShowy = “Welcome To Visual Basic 6 !“x = Split(y)For n = LBound(x) To UBound(x)Print “ “ & x(n)NextEnd Sub,Visual Basic程序设计教程,23,3Filter函数。 从
13、一个已知数组中搜索指定的字符串，可以使用Filter函数 ，ilter函数的格式为： Filter(StringsArray, Value, Include, CompareType),Visual Basic程序设计教程,24,【例9-3】请从数组A中选出包括“VB” 和不包括 “VB” 的元素。程序执行后的显示如图所示。,Visual Basic程序设计教程,25,Private Sub Form_Load()ShowDim A(6) As String, B() As String, C() As StringA(0) = “C“: A(1) = “VB6“: A(2) = “C+“A(
14、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 Prt(m() As String)For n = 0 To UBound(m)Print “ “ & m(n)NextPrint End Sub,Visual Ba
15、sic程序设计教程,26,9.4 操作字符串,本节给出VB处理字符串的常用操作，如取单个字符、取其中指定的字符、去除字符串中的空格和转换函数。,Visual Basic程序设计教程,27,9.4.1 Like运算符 比较运算符Like用于比较字符串。Like返回一个逻辑值：True表示被比较的两个字符串相匹配，False表示不匹配。使用格式为：Result = String1 Like Pattern VB根据模式匹配可以使用通配符来匹配字符串。也就是说使用Windows中的?、*和三个匹配符：？表示任何单一字符，*表示零个或多个字,Visual Basic程序设计教程,28,*表示零个或多个
16、字符，#表示任何一个数字 (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中既是函数也是语句 。 1Mid函数Mid函数的格式如下：Mid(String1, Start, Length)参数String1是被操作的字符串，Start为一个数字，指示从Stri
17、ng1中的字符起始位置，Length是可选参数，指示要返回的字符数，如果不指定则从Start开始往后的所有字符。例如：Mid(“Hello”, 2,1) 返回字符e,Visual Basic程序设计教程,30,2Mid语句Mid是作为语句使用，Mid出现在赋值号的左边，格式 为：Mid（String1，Start , Length）= String2用String2字符串代替String1从Start位置开始的字 符，可选参数Length为替换的长度。注意，字符串 String2的长度总是小于等于Length。假设我们已经定 义了MyStr = “Visual Basic“，则：Mid(Str
18、1, 8) = “C+ “执行的结果使得Str1中的字符串为“Visual C+ ”(包括后面的两个空格)。,Visual Basic程序设计教程,31,9.4.3 使用Left、Right和InStr操作字符串 1Left函数使用Left函数选择字符串左边起到指定位置的部分。例如：Str1 = “Visual Basic”Str2 = Left(Str1,6) 2Right函数使用Right函数选择字符串的右边部分。例如：Str1 = “Visual Basic”Str2 = Rightt(Str1,5),Visual Basic程序设计教程,32,3InStr函数使用格式为：InStr(S
19、tart, String1, String2)可选参数Start为开始进行搜索的位置，默认为1表示从头开始。String1为基字符串，String2为搜索字符串，InStr在String1中搜索是否包含String2字符串。返回结果为数字,0表示没有找到,非0表示返回String2在String1中出现的第一个起始位置 假设Str1=”Visual Basic”，Str2=”Basic”，则执行语句：InStr（Str1，Str2）返回的结果为8，表示“Basic”在“Visual Basic”中的位置为8。,Visual Basic程序设计教程,33,9.4.4 删除多余的空格 使用LTri
20、m、RTrim与Trim函数得到一个字符串的拷贝，删除前导空格 (LTrim)、删除尾随空格 (RTrim)。Trim函数将两头空格全部去除，但不删除中间的空格。 例:Dim MyString, TrimStringMyString = “ VB6 “ TrimString = LTrim(MyString) TrimString = “VB6 “TrimString = RTrim(MyString) TrimString = “ VB6“TrimString = Trim(MyString) TrimString = “VB6“,Visual Basic程序设计教程,34,9.4.5 转换
21、函数 1Asc和Chr函数Asc是取一个字符的ASCII码的函数;Asc函数对单个的字符计算，如果给出的字符多于一个，它计算第一个字符的ASCII值。 例如：Asc（”a”） 得到的值为97Chr是Asc的逆函数，它将一个数值转换为对应的字符，例如 Chr(97)返回的就是字母a。Chr(13)和Chr(10)就分别代表回车 和换行。,Visual Basic程序设计教程,35,2转换大小写函数UCase和LCase分别将字符串的字母转换为大写或小写。它们的使用方法比较简单：UCase(StringExpress) LCase(StringExpress)其中，StringExpress可以是
22、字符串或者是字符串表达式。例如Str1 = “Visual Basic 6“，则：StrResult = UCase(Str1) StrResult = ”VISUAL BASIC 6”StrResult = LCase(Str1) StrResult = “visual basic 6”,Visual Basic程序设计教程,36,3IsNumberic和ValIsNumeric判断一个字符串是否可以被完整地转换为数字，例如： Print IsNumeric(“123.456”) 执行后输出为True， Print IsNumeric(“123A.456“) 执行后的输出则为False。其他
23、的判断类型的函数还有IsStrIsArray判断变量是否为一个数组，IsEmpty 函数判断变量是否已经初始化，IsError函数判断表达式是否为一个错误值。IsNull函数判断表达式是否不包含任何有效数据 (Null)，IsObject函数判断标示符是否表示对象变量等，它们返回的都是布尔值。,Visual Basic程序设计教程,37,Val的函数的使用格式为： Val(StringExpress) 把字符串表达式StringExpress转换为数字，按以 下规则：（1）如果StringExpress是由数符组成（包括小 数点），则返回一个转换的数字值。（2）如果StringExpress中
24、的数符含有空格，忽 略空格。,Visual Basic程序设计教程,38,（3）如果StringExpress含有数字和字母等其他符号，只转换最前 面的数字部分。 例：MyValue = Val(“2457”) 返回 2457。MyValue = Val(“ 2 45 7”) 返回 2457。MyValue = Val(“24 and 57“) 返回 24。,Visual Basic程序设计教程,39,4Hex和OctHex和Oct是将一个数值型或字符型表达式转换为十六进制和八进制数。例如：Print Hex(123)Print Oct(“123“) 分别输出十六进制数7B和八进制数173,V
25、isual Basic程序设计教程,40,9.4.6 其它类型转换函数,Visual Basic程序设计教程,41,9.4.7 格式化函数Format Format函数的使用格式为：Format(Expression, format)其中，表达式Expression可以为任何有效表达式，而可选参数Format为指定的格式表达式。格式可以是VB预先定义的，也可以是用户定义的。可使用VB预定义名字来指定这些格式，如表9.3所示。数字格式可以由用户指定，如表9.4所示。格式名总是用双引号“括起来。,Visual Basic程序设计教程,42,例：Num1 = 123456789.34567Print
26、 Format(Num1, “Currency”) 显示 ￥123,456,789.35Print Format(0.154, “Percent“) 显示15.4%Print Format(1, “On/Off“) 显示 OnFormat(8315.4, “00000.00”) 显示08315.40Format(8315.4, “#.#”) 显示8315.4Format(8315.4,“#,#0.00”) 显示8,315.40Format(315.4,“$#0.00”) 显示 $315.40,Visual Basic程序设计教程,43,9.4.8 Len函数和Space函数 1Len函数函数执
27、行后返回一个Long型值，指示字符串内字符的数目，或是存储一变量所需的字节数。使用格式为：Len(string | varname)例： dim x as stringx=“abcd”print len(x) 显示4dim x as integerx=12345print len(x) 显示2,Visual Basic程序设计教程,44,2Space函数执行Space函数返回特定数目空格。使用格式为： Space(number)其中所必须的number参数为字符串中想要的空格数。例如： Dim MyStringMyString = Space(10) 返回 10 个空格的字符串。MyStrin
28、g = “Hello“ & Space(10) & “World“ 将 10 个空格插入两个字符串中间。,Visual Basic程序设计教程,45,9.5 查找和替换字符串,字处理器中，字符的查找和替换是基本功能。运用前面介绍过的一些字符处理函数，可以实现对字符串中的指定的子字符串进行查找和替换操作,例如使用InStr，使用Mid函数和Mid语句等。VB还提供了一个函数Replace实现这个功能。 Replace函数返回一个字符串，该字符串中指定的子字符串已被替换成另一子字符串，并且替换发生的次数也可以指定。使用格式为：,Visual Basic程序设计教程,46,Replace(Expre
29、ssion, Find, Replacewith, Start, Count) 函数参数Expression为字符串表达式，其中包含要被替换的子字符串。Find是指定要搜索的子字符串，Replacewith用来替换的子字符串。Start确定在Express子字符串搜索的开始位置，默认从1开始。Count为进行替换的次数，默认是1，它表明进行所有可能的替换。可以根据Replace函数的返回值判断查找和替换操作的结果。返回值如表9.5所示。,Visual Basic程序设计教程,47,【例9-4】用一个文本框作为简单的字编辑器，在其中输入一段有关电脑编程的文字，然后用查找替换的方法，将文本框中的“
30、电脑”全部替换为“计算机”。 程序界面如图所示,Visual Basic程序设计教程,48,9.6 处理日期和时间,【例9-5】使用VB的函数处理日期和时间的示例。,Private Sub Form_Load()Label1.Caption = “VB的日期和时间格式”List1.Additem “当前的日期和时间:“ & NowList1.Additem “今天是：“ & DateList1.Additem “今天是：“ & Day(Date) & “号“List1.Additem “今天是：一周的第“ & Weekday(Date) & “天“List1.Additem “今天是：“ &
31、Weekdayname(Weekday(Date)List1.Additem “本月是：“ & Monthname(Month(Date)List1.Additem “今年是：“ & Year(Date) End Sub,Visual Basic程序设计教程,49,9.6.1 Date函数和数据类型 1 判断Date数据类型 Dim Mydate As Date 定义MyDate为日期型变量 Mydate = #2005-11-14# 给MyDate赋值VB使用IsDate 函数指出一个表达式是否可以转换 成日期。使用格式为： IsDate(Expression),Visual Basic程序
32、设计教程,50,参数Expression可以是一个日期表达式或字符串表达式。函数返回True表示可以实现转换，False表示不能转换。例如：IsDate(#1:01:01 AM#) 返回TrueIsDate（1) 返回False,Visual Basic程序设计教程,51,2取当前日期信息 Now函数。返回系统当前的日期与时间。 Date函数。返回包含系统日期的Date型数据。 Day () 函数。返回一个月中的某一日。 Weekday()函数。返回一个整数，代表某个日期是一周中的第几天。 Weekdayname()函数。返回一个字符串，表示一星期中的某天。 Month()函数。返回一年中1到
33、12之间的某一月。 Year()函数。返回包含表示年份的整数。,Visual Basic程序设计教程,52,3设置系统日期使用date语句，格式为：Date = NewDate赋值号的右边NewData为新设置的日期数据。例如：Mydate = #2005-11-14#，Date = Mydate,Visual Basic程序设计教程,53,4DateSerial 函数执行DateSerial函数将返回包含指定的年、 月、日的日期数据。使用格式为：DateSerial(Year, Month, Day) 5DateValue 函数执行Datavalue函数将返回一个日期值，使用 格式为： Da
34、teValue(Date)其中参数Date通常是字符串表达式或其他表达式。,Visual Basic程序设计教程,54,9.6.2 时间数据 1取当前时间取当前时间使用Time函数，使用格式为：Time例如： Print Time 输出当前时间到窗体上与时间相关的函数还有Hour(小时)、Minute（分）、Second（秒）等。例如要得到当前的时间的小时数，使用如下语句：Print Hour(Time),Visual Basic程序设计教程,55,2设置时间同样我们也可以对机器的时间进行设置，这时 Time关键字位于赋值号的左边。例如直接给时间赋值：Time = #12:0:0#也可以使用变
35、量给系统时间赋值：Mytime = #4:35:17 PM# 指定一个时间Time = Mytime,Visual Basic程序设计教程,56,3TimeSerial 函数使用格式为：TimeSerial(Hour, Minute, Second)函数执行后，返回一个Date型的数据。其中参数Hour、Minute、Second分别为时、分、秒，正常取值范围分别为 0 (12:00 AM. )23 (11:00 PM)、059、059，或者为任何可以被接受的表达式。例如：TimeSerial(12 - 6, -15, 0),Visual Basic程序设计教程,57,4TimeValue 函
36、数TimeValue函数返回一个包含时间的数据(Date类型)，使用格式为：TimeValue(Time)其中Time 参数通常是一个字符串表达式或其他表达式，表示 0:00:00 (12:00:00 A.M.) 到 23:59:59 (11:59:59 P.M.) 之间的时刻。如果 Time 包含 Null，则返回 Null。,Visual Basic程序设计教程,58,9.6.3 日期的计算 日期的计算最直接的方法是通过算术表达式进行计算。例如下列程序代码给出了当前日前前1天是哪一天：Dim Date1 As DateDate1 = Date - 100Print Date1 除了使用算术
37、表达式，VB提供了进行日期计算三个函数DateAdd、DateDiff和DatePart。,Visual Basic程序设计教程,59,9.6.4 格式化日期和时间 1FormatDateTime函数函数FormatDateTime将返回一个日期或时间格式的表达式。使用格式为： FormatDateTime(Date,NamedFormat)其中参数Date是必需的，它给出要被格式化的日期表达式。NamedFormat是可选的，使用数字值表示日期/时间所使用的格式。,Visual Basic程序设计教程,60,Visual Basic程序设计教程,61,【例9-7】使用FormatDateTi
38、me函数给出日期和时间的不同格式。程序代码如下。Private Sub Form_Load()Dim MyDate As DateShowMyDate = FormatDateTime(Now, vbGeneralDate)PrintPrint “ 默认的日期时间格式： “ & MyDatePrint “ 长 日 期 格 式： “ & FormatDateTime(Now,vbLongDate)Print “ 短 日 期 格 式： “ & FormatDateTime(Now, vbShortDate)Print “ 长 时 间 格 式： “ & FormatDateTime(Now, vbL
39、ongTime)Print “ 短 时 间 格 式： “ & FormatDateTime(Now, vbShortTime)End Sub,Visual Basic程序设计教程,62,2Format函数格式化日期时间Format( Express，FormatType)其中，Express可以是Date型的数据或表达式，FormatType使用表9.9中的设置值，例如yyyy代表4位年份，mm代表两位的月份，m使用一位的月份（如果超过一位，如11月12月，按实际输入），使用d表示日，dddd表示星期， hh表示时，nn表示分，ss表示秒等。也可以使用VB预定义的格式名（如表9.6所示）。,V
40、isual Basic程序设计教程,63,【例9-8】使用Format函数格式化日期和时间的例子。执行程序后的显示如图9.8所示。程序代码如下。 Private Sub Form_Load()Dim MyDate As DateShowMyDate = Format(#1/1/2005#, “ mm/dd/yyyy“)Print “ “ & MyDatePrint 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/
41、2005#, “ dddd“)Print “ 当前日期“ & Format(Now, “ dddddd“)Print “ 当前日期为本月的第“ & Format(Now, “ 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,进入定时过程，在窗体的标题栏上以秒为单位进行倒计时，计时归零后通过机器的内部扬声器发出声音。,
