处理字符串和日期时间

《处理字符串和日期时间》由会员分享，可在线阅读，更多相关《处理字符串和日期时间（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中既是函数也是语句 。 1Mid函数 Mid函数的格式如下：Mid(String1, Start, Length) 参数String1是被操作的字符串，Start