VB专题：字符处理之字符替换.doc

《VB专题：字符处理之字符替换.doc》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、字符处理之字符替换学案一、知识储备1.字符串函数的使用（1）Len(s):应用：s=Text1.Text求字符串s长度的表达式：①。②。（2）Mid(s,i,n)或Mid(s,i):应用：s=“Iverylikethestorybook.”所截子串表达式likethestorythestorybook.2.字符串连接：应用：s=“student”：ss=“”Fori=1tolen(s)c=mid(s,i,1)ss=ss+cnextiLabel1.caption=sss=“student”：ss=“”Fori=1tolen(s)c=mid(s,i,1)ss=c+ssne

2、xtiLabel1.caption=ssLabel1中显示的内容:Label1中显示的内容:（1）顺序连接（表达式或赋值语句）：。（2）倒序连接（表达式或赋值语句）：。3.大小写转换转换类型字符表达式大写转小写C=Mid(s,i,1)=“H”Chr(Asc(C)+32)小写转大写C=Mid(s,i,1)=“b”Chr(Asc(C)-32)二、字符替换1.单个字符替换任务描述：将字符串中的特定单个字符替换成另一个特定字符，如图所示：将text1中的”偶”（由Text2输入）替换成”我”（由Text3输入），将替换后的字符串由Text4输出。4Text1Text2Text

3、3PrivateSubCommand1_Click()DimsAsString,ssAsString，c1AsString,c2AsStrings=Text1.Text:c1=Text2.Text:c2=Text3.Text:ss=""Fori=1ToLen(s)If　　①Then‘取子串，判断是否需要替换ss=ss+　　②　　　　‘有替换的连接Elsess=ss+　③　　　‘无替换的连接　EndIfNextiText4.Text=ssEndSub思考并写出相应语句，然后完成上面的填空：（1）如何取子串？（2）如何判断？（是否需要替换）（3）如何连接字符串？替换未替换

4、小结：字符替换三步走：取子串----->判断------>重新连接2.任意长度字符串替换（１）（方法一）任务描述：将字符串中的特定字符串替换成另一个任意长度特定字符串，如图所示：将Text1中的”中学”（由Text2输入）替换成”middleschool”（由Text3输入），将替换后的字符串由Text4输出。4Text1Text2Text3PrivateSubCommand1_Click()DimsAsString,c1AsString,c2AsStrings=Text1.Text:c1=Text2.Text:c2=Text3.Text:ss=""i=1DoWhil

5、ei<=Len(s)If　　①Thenss=ss+c2i=i+　　②Elsess=ss+　③i=i+1EndIfLoopText4.Text=ssEndSub思考并写出相应语句，然后完成上面的填空：（1）如何取子串？（2）如何判断？（是否需要替换）（3）如何连接字符串？替换未替换4（２）（方法二）任务描述：将字符串中的特定字符串替换成另一个任意长度特定字符串，如图所示：将Text1中的”中学”（由Text2输入）替换成”middleschool”（由Text3输入），将替换后的字符串由Text4输出。Text1Text2Text3PrivateSubCommand1_

6、Click()DimsAsString,c1AsString,c2AsStrings=Text1.Text:c1=Text2.Text:c2=Text3.Texti=1DoWhilei<=Len(s)If　　①Thens=　　②i=i+　③Elsei=i+1EndIfLoopText4.Text=sEndSub思考并写出相应语句，然后完成上面的填空：（1）如何取子串？（2）如何判断？（是否需要替换）（3）如何连接字符串？程序中被赋值的变量是什么？和方法一比较有什么变化？课后思考：（1）循环条件i<=Len(s)能不能优化（让循环次数减少）（2）如果变成字符的删除、插入

7、，程序将要怎样修改？4