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

1、字符处理之字符替换学案7、知识储备1.字符串函数的使用(1) Len(s):应用：s：求字符串s长度的表达式：(2) Mid(s, i, n) 或 Mid(s, i)：应用：s= “I very like the story book.所截子串表达式like the storythe story book.2 .字符串连接:应用：“ _L _L”a s= stude nt : ss=For i= 1 to len(s) c=mid(s, i, 1) ss=ss+c n ext i二 sss= stude nt: ss=For i= 1 to len(s) c=mid(s, i, 1) ss=c

2、+ss n ext i =ssLabell中显示的内容：Labell中显示的内容:（1）顺序连接（表达式或赋值语句）（2）倒序连接（表达式或赋值语句）3 .大小写转换转换类型字符表达式大写转小写C=Mid(s, i, 1)=“ H'Chr(Asc(C)+32)小写转大写C=Mid(s, i, 1)=“ b”Chr(Asc(C)-32)二、字符替换L单个字符替换任务描述：将字符串中的特定单个字符替换成另一个特定字符，如图所示：将textl中的“偶"（由Text2输入）替换成“我"（由Text3输入），将替换后的字符串由Text4输出。字符替换工偶是泰顺中学的一名学圭，

3、偶爱泰顺中学rTextlText2替换成0 Text3我是泰服中学的一名学生我善恭顺中学?Private Sub Comma ndl_Click() Dim s AsStri ng, ss As String s = : cl = : c2,cl As String,c2 As Stringss =For i = 1 To Len(s) The n'取子串，判断是否需要替换ss = ss +有替换的连接Elsess = ss +'无替换的连接End IfNext i=ssEnd SubJ思考并写出相应语句，然后完成上面的填空:（1）如何取子串（2）如何判断（是否需要替换）（3）

4、如何连接字符串替换未替换小结：字符替换三步走：取子串判断重新连接（1）（方法一）任务描述:2.任意长度字符串替换如图所示：将Textl中的”中学”（由Text2输入）替换成”middle school ” (由 Text3输入），将替换后的字符串由Text4 输出 o将字符串中的特定字符串替换成另一个任意长度特定字符串,a呼希尹皆寻*窠;我们恳聚顺中学的一名学生，我们爱泰顺中学FTextlmiddle Echofl1替换成M Text3我们 ddl« school的一名学生 * KfHjrniidlla ichvol!Private Sub Comma ndl_Click()Dim

5、s As Stri ng, cl As Stri ng, c2 As Stri ng s = : cl = : c2 = : ss ="Do While i <= Len(s)If © Then ss = ss + c2Else ss = ss + i = i + 1 End IfLoop =ss End SubJ 思考并写出相应语句，然后完成上面的填空：(1)如何取子串(2)如何判断(是否需要替换)如何连接字符串替换未替换我们县寒顺中学的一名学生，我们爱慕顺中学,Textl中学middle school替换成Text 2替换Text3拘性是惠顺mid die suh

6、od的一二名学主我们爱泰顺middLs schcolf（2）（方法二）任务描述：将字符串中的特定字符串替换成另一个任意长度特定字符串,如图所示：将Text】中的”中学”（由Text2输入）替换成”输入），将替换后的字符串由Text4输出。Private Sub Comma ndl_Click()Dim s As Stri ng, cl As Stri ng, c2 As Stri ng s=：cl = : c2 =i = 1Do While i <= Len(s)If nElseEnd IfEnd SubJ思考并写出相应语句，然后完成上面的填空：（1）如何取子串（2 ）如何判断（是否需要替换）（3