VB删除字符串指定字符

来源：百度知道 编辑：UC知道 时间：2024/05/02 20:16:53
Private Sub Command1_Click()
k = ""
For i = 1 To Len(Text1.Text)
If m <> 90 And m <> 122 Then
m = Asc(Mid(Text1.Text, i, 1)) + 3
Else
m = m - 25
End If
k = k & Chr(m) & "yoyo"
Next i
Text2.Text = k
End Sub

Private Sub Command2_Click()
k = ""
f = Replace(Text1.Text, "yoyo", "")
For i = 1 To Len(f)
If m <> 90 And m <> 122 Then
m = Asc(Mid(Text1.Text, i, 1)) - 3
Else
m = m - 25
End If
k = k & Chr(m)
Next i
Text2.Text = k
End Sub
第一个按钮算出来的数值
让第二个按钮反运算出错了
数值多了 LVLV
谁给出正确代码？

m = Asc(Mid(Text1.Text, i, 1)) - 3
改为
m = Asc(Mid(f, i, 1)) - 3

原因:经过replace之后,f的值变化了,但text1.text没变化,
还是用text1.text来做循环.

有两个错误：
1、m = Asc(Mid(Text1.Text, i, 1)) - 3 改为：
m = Asc(Mid(f, i, 1)) - 3
2、f = Replace(Text1.Text, "yoyo", "") 改为：
f = Replace(Text2.Text, "yoyo", "")

这样就行了！

Private Sub Command1_Click()
k = ""
For i = 1 To Len(Text1.Text)
If m <> 90 And m <> 122 Then
m = Asc(Mid(Text1.Text, i, 1)) + 3
Else
m = m - 25
End If
k = k & Chr(m) & "yoyo"
Next i
Text2.Text = k
End Sub

Private Sub Command2_Click()
k = ""
f = Replace(Text2.Text, "yoyo", "")
i = Len(f)
For i = 1 To Len(f)
m = Asc(Mid(f, i, 1)) - 3
k = k & Chr(m)
Next i
Text2.Text = k
End Sub

就错了一个地方：在Command2_Click() 中的m = Asc(Mi