VB专题字符处理之字符替换

1、字符处理之字符替换学案一、知识储备 1. 字符串函数的使用（1）Len(s): 应用：s=Text1.Text 求字符串s长度的表达式： 。 。 （2）Mid(s,i,n) 或 Mid(s,i): 应用： s=“I very like the story book.”所截子串表达式like the storythe story book.2. 字符串连接： 应用：s=“student”： ss=“”For i= 1 to len(s)c=mid(s,i,1)ss=ss+cnext iLabel1.caption=sss=“student”： ss=“”For i= 1 to len(s)c=m

2、id(s,i,1)ss=c+ssnext iLabel1.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输出。Text

3、1Text2Text3Private Sub Command1_Click()Dim s As String, ss As String，c1 As String, c2 As Strings = Text1.Text: c1 = Text2.Text: c2 = Text3.Text: ss = ""For i = 1 To Len(s) If Then 取子串，判断是否需要替换 ss = ss + 有替换的连接 Else ss = ss + 无替换的连接 End IfNext iText4.Text = ssEnd Sub思考并写出相应语句，然后完成上面的填空：（1）如

4、何取子串？ （2）如何判断？（是否需要替换） （3）如何连接字符串？替换 未替换 小结：字符替换三步走：取子串->判断->重新连接2.任意长度字符串替换（）（方法一）任务描述：将字符串中的特定字符串替换成另一个任意长度特定字符串，如图所示：将Text1中的”中学”（由Text2输入）替换成” middle school”（由Text3输入），将替换后的字符串由Text4输出。Text1Text2Text3Private Sub Command1_Click()Dim s As String, c1 As String, c2 As Strings = Text1.Text: c1

5、= Text2.Text: c2 = Text3.Text: ss = ""i = 1Do While i <= Len(s) If Then ss = ss + c2 i = i + Else ss = ss + i = i + 1 End IfLoopText4.Text = ssEnd Sub思考并写出相应语句，然后完成上面的填空：（1）如何取子串？ （2）如何判断？（是否需要替换） （3）如何连接字符串？替换 未替换 （）（方法二）任务描述：将字符串中的特定字符串替换成另一个任意长度特定字符串，如图所示：将Text1中的”中学”（由Text2输入）替换成” m

6、iddle school”（由Text3输入），将替换后的字符串由Text4输出。Text1Text2Text3Private Sub Command1_Click()Dim s As String, c1 As String, c2 As Strings = Text1.Text: c1 = Text2.Text: c2 = Text3.Texti = 1Do While i <= Len(s) If Then s = i = i + Else i = i + 1 End IfLoopText4.Text = sEnd Sub思考并写出相应语句，然后完成上面的填空：（1）如何取子串？ （2）如何判断？（是否需要替换） （3）如何连接