VB专题：字符处理之字符替换复习过程

V B专题：字符处理之

字符替换

1. 字符串函数的使用

（1）Len(s):

应用：s=Text1.Text 求字符串s长度的表达式：①。

②。

（2）Mid(s,i,n) 或 Mid(s,i):

应用：s=“I very lik e the story book.”

2. 字符串连接：

应用：

（1）顺序连接（表达式或赋值语句）：。

（2）倒序连接（表达式或赋值语句）：。

3.大小写转换

小写转大写C=Mid(s,i,1)=“b”Chr(Asc(C)-32)

二、字符替换

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输出。

Text1

Text2 Text3

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

思考并写出相应语句，然后完成上面的填空：

（1）如何取子串？

（2）如何判断？（是否需要替换）

（3）如何连接字符串？替换

未替换

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

思考并写出相应语句，然后完成上面的填空：

（1）如何取子串？

（2）如何判断？（是否需要替换）

（3）如何连接字符串？程序中被赋值的变量是什么？和方法一比较有什么变化？

课后思考：（1）循环条件i <= Len(s) 能不能优化（让循环次数减少）（2）如果变成字符的删除、插入，程序将要怎样修改？