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

《处理字符串和日期时间.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

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

2、达程序中对日期时间的处理要求4VisualBasic程序设计教程9.2一个简单的字符加密处理程序·【例9-1】一个简单的示例程序，把给出的字符进行加密，然后再解密，程序界面如图所示:5VisualBasic程序设计教程DimStr1AsString,Str2AsStringOptionCompareTextPrivateSubCmdEncrypt_Click()DimNAsByte,CountAsIntegerText2.Text=""N=Len(Text1.Text)ForCount=1ToNStr1=Mid(Text1.Te

3、xt,Count,1)If(CountMod2)=0ThenText2.Text=Text2.Text&ChrW(AscW(Str1)+2)ElseText2.Text=Text2.Text&ChrW(AscW(Str1)+1)EndIfNextEndSubPrivateSubForm_Load()Label1.Caption="请输入："Label2.Caption="加密后输出："Label3.Caption="解密后输出"Text1.Text=""Text2.Text=""Text3.Text=""EndSub6Visua

4、lBasic程序设计教程PrivateSubCmdUncoil_Click()DimNAsByte,CountAsIntegerText3.Text=""N=Len(Text2.Text)ForCount=1ToNStr1=Mid(Text2.Text,Count,1)IfCountMod2=0ThenText3.Text=Text3.Text&ChrW(AscW(Str1)-2)ElseText3.Text=Text3.Text&ChrW(AscW(Str1)-1)EndIfNextEndSub7VisualBasic程序设计

5、教程9.3字符类型和字符数组本节在小结前述章节的有关字符数据类型的基础上，进一步介绍有关字符运算、字符数组和实现。各种字符操作和字符转换、类型转换的VB函数。8VisualBasic程序设计教程9.3.1字符和字符串1．字符数据类型·VB的字符类型数据支持两种格式，一种是定长，另一种是不定长。如：DimStr1AsStringDimStr2AsString*长度数值·在VB中，变长字符串最多可包含大约20亿(2^31)个字符，而定长字符串可包含1到大约64K(2^16)个字符。9VisualBasic程序设计教程2．字符连接运算

6、·VB使用符号“&”和“+”连接字符串形成更大的字符串。（1）如果连接运算符的两边都是字符型数据，这两个符号都可以使用。（2）如果把不同类型的数据连接为字符串，使用连接符“&”。建议使用“&”连接符，可以避免出现类型不匹配的错误。例：Str1=“Hell”+“World”Str1中的字符为“HelloWorld”Str1=”Hello”+2‘运行时产生，类型不匹配错误，应该使用&代替＋10VisualBasic程序设计教程9.3.2比较字符1．使用比较运算符·理解一个字符“大于”、“小于”或者“等于”的含义，是考虑字符在字符表中

7、位置后决定的。它们按照ASCII码对字符进行排序，然后比较它们的代码值的大小决定比较结果。11VisualBasic程序设计教程DimStr1AsString,Str2AsStringStr1="A":Str2="B"PrintStr1=Str2‘比较结果为False，因为字符“A”和“B”不相等PrintStr1<=Str2‘比较结果为True，因为字符“A”小于“B”成立Str1="abc":Srt2="VB6"PrintStr1>Str2‘比较结果为True，因为“abc”>“VB6”成立PrintStr1

8、结果为False，因为“abc”<“VB6”不成立12VisualBasic程序设计教程2．StrComp函数·函数StrComp用来比较两个字符串，并返回比较结果。使用格式为：StrComp(String1,String2[,CompareType])·比较结