VB专题：字符处理之字符替换
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
1. 字符串函数的使用
（1）Len(s):
应用：s=Text1.Text 求字符串s长度的表达式：①。
②。
（2）Mid(s,i,n) 或 Mid(s,i):
应用：
2. 字符串连接：
应用：
（1）顺序连接（表达式或赋值语句）：。
（2）倒序连接（表达式或赋值语句）：。
1.单个字符替换
任务描述：将字符串中的特定单个字符替换成另一个特定字符，如图所示：将text1中的”偶”（由Text2输入）替换成”我”（由Text3输入），将替换后的字符串由Text4输出。
Text1
Text2 Text3
Private Sub Command1_Click()
Dim s As String, ss As String，c1 As String, c2 As String
s = Text1.Text: c1 = Text2.Text: c2 = Text3.Text: ss = ""
For i = 1 To Len(s)
If ①Then‘取子串，判断是否需要替换
ss = ss + ②‘有替换的连接
Else
ss = ss + ③‘无替换的连接
End If
Next i
Text4.Text = ss
End Sub
思考并写出相应语句，然后完成上面的填空：
（1）如何取子串？
（2）如何判断？（是否需要替换）
（3）如何连接字符串？替换
未替换
2.任意长度字符串替换
（１）（方法一）任务描述：将字符串中的特定字符串替换成另一个任意长度特定字符串，如图所示：将Text1中的”中学”（由Text2输入）替换成”middle school”（由Text3输入），将替换后的字符串由Text4输出。
Private Sub Command1_Click()
Dim s As String, c1 As String, c2 As String
s = Text1.Text: c1 = Text2.Text: c2 = Text3.Text: ss = ""
i = 1
Do While i<= Len(s)
If ①Then
ss = ss + c2
i = i + ②
Else
ss = ss + ③
i = i + 1
End If
Loop
Text4.Text = ss
End Sub
思考并写出相应语句，然后完成上面的填空：（1）如何取子串？
（2）如何判断？（是否需要替换）
（3）如何连接字符串？替换
未替换Text1
Text2 Text3
Text1
Text2Text3
（２）（方法二）任务描述：将字符串中的特定字符串替换成另一个任意长度特定字符串，如图所示：将Text1中的”中学”（由Text2输入）替换成”middle school”（由Text3输入），将替换后的字符串由Text4输出。
Private Sub Command1_Click()
Dim s As String, c1 As String, c2 As String
s = Text1.Text: c1 = Text2.Text: c2 = Text3.Text
i = 1
Do While i<= Len(s)
If ①Then
s = ②
i = i + ③
Else
i = i + 1
End If
Loop
Text4.Text = s
End Sub
思考并写出相应语句，然后完成上面的填空：
（1）如何取子串？
（2）如何判断？（是否需要替换）
（3）如何连接字符串？程序中被赋值的变量是什么？和方法一比较有什么变化？
课后思考：（1）循环条件i<= Len(s) 能不能优化（让循环次数减少）
（2）如果变成字符的删除、插入，程序将要怎样修改？