vb 大写替换大写 小写替换小写

来源：百度知道 编辑：UC知道 时间：2024/05/04 07:44:51
str="djDJdJDj"

替换成 "@dj@ @DJ@ @dJ@ @Dj@"

如 str=replace(str,"dj","@dj@") 只能替换小写的dj 大写的不能被替换

就像百度搜索 搜索dj, 可以把大写的DJ和小写的dj 字体成红色

Private Sub Command1_Click()
Dim s As String
s = "djDJdJDj"
s = myReplace(s, "dj", "@dj@")
MsgBox s
End Sub

Public Function myReplace(ByVal s1 As String, ByVal s2 As String, ByVal s3 As String)
n = InStr(1, s1, s2, vbTextCompare)
Do While n <> 0
s4 = Replace(s3, s2, Mid(s1, n, Len(s2)))
s1 = Left(s1, n - 1) & s4 & Right(s1, Len(s1) - Len(s2) - n + 1)
n = InStr(n + Len(s3), s1, s2, vbTextCompare)
Loop
myReplace = s1
End Function

什么乱七八糟的...

真是不好意思,在下即看不懂,也不知你说的是些啥玩意.

Private Sub Command1_Click()
Dim str, nstr, hstr As String
Dim i As Integer
str = "djDJdJDj"
For i = 1 To Len(str) - 1
hstr = Mid(str, i, 2)
If UCase(hstr) = "DJ" Then
nstr = nstr & "@" & hstr & "@"
i = i + 1
Else
MsgBox "no&q