VB如何在“好【样】的”中判断是否存在“【样】“，并且去掉他

显示全部楼层 · 2012-3-23 18:51:16

Private Sub Command1_Click()
Dim S As String, P As Integer
S = "好【样】的"
P = InStr(S, "样")
If P > 0 Then
MsgBox "样字存在。"
MsgBox "去除样字后为：" & Left(S, P - 1) & Right(S, Len(S) - P)
Else
MsgBox "样字不存在。"
End IfEnd Sub INSTR函数用来找出样字在字符串中的位置，该例中返回值为3...

千问 · 2012-3-23 18:51:16

'是这意思？ Private Sub Command1_Click()
Dim s As String, mark As String
s = "好【样】的": mark = "【样】"
If InStr(s, mark) > 0 Then s = Replace(s, mark, "")End Sub...