Question

用VB实现文本查找和替换

用户先在某一文本框中输入一篇短文的内容，然后单击某一命令按钮时，将显示另一窗口，让用户输入“要查找的内容”和“要替换成的内容”，程序能根据用户输入的“要查找的内容”和“要替换成的内容”从已输入的短文内容中进行查找，当找到时，被找到的内容以反相显示（即呈选中状态），然后出现提示对话框，询问用户是否替换，如果回答“是”，则对其进行替换；如果回答“否”，则不替换。重复以上过程，直到全部内容查找完毕。
查找和替换工作完成时，将已找到的次数和替换的次数显示出来。
（4）向窗体中添加两个命令按钮（名称分别为cmdFind和cmdExit）；一个文件框（名称为txtPaper）；两个标签（名称分别为lblFinded和lblReplaced）。并设置其他必要的有关属性和适当调整它们的布局和大小，注意程序界面的美观性。
（5）编写程序代码：使其能实现以下功能：
①当程序运行时，能自动在文本框txtPaper中显示文章的内容。
②当单击命令按钮cmdFind时，可实现以下功能：
程序第一次出现输入对话框，要求用户输入“要查找的内容”，输入完毕后，再次出现输入对话框，要求用户输入“要替换成的内容”。输入完毕后，程序进行查找并替换的功能。即：
能根据用户输入的“要查找的内容”和“要替换成的内容”从文本框txtPaper的文本内容中进行查找，当找到时，被找到的内容以反相显示（即呈选中状态），然后出现提示对话框，询问用户是否替换，如果回答“是”，则对其进行替换；如果回答“否”，则不替换。重复以上过程，直到全部内容查找完毕。
在以上查找替换过程中，统计有关查找到的次数和已替换的次数，并结果分别显示到标签lblFinded和lblReplaced。
③单击命令按钮cmdExit时，程序运行结束，退出程序。

Answer 1

Private Sub cmdExit_Click()
End
End Sub

Private Sub cmdFind_Click()
Dim StrCz As String, StrTh As String, I As Integer, J As Integer, K As Integer
StrCz = InputBox("你要查找什么？", "查找", "上海市")
StrTh = InputBox("你要将查找到的字符替换成什么？", "替换", "南京市")
On Error Resume Next
I = 0
Do

DoEvents
Txtpape.SetFocus
Txtpaper.SelStart = InStr(IntKs + 1, Txtpaper, StrCz) - 1
If Err = 380 Then
MsgBox "查找完毕！", vbOKOnly, "查找完毕"
Exit Sub
End If
IntKs = Txtpaper.SelStart + Len(StrCz)
Txtpaper.SelLength = Len(StrCz)
I = I + 1
lblFinded = "已经找到" & I & "处"
K = MsgBox("找到第" & I & "处“" & StrCz & "”，是否替换？", vbYesNo, "找到第" & I & "处“" & StrCz & "”")
If K = 6 Then
Clipboard.Clear
Clipboard.SetText StrTh
Txtpaper.SelText = Clipboard.GetText
J=j+1
lblReplaced="您替换了" & J & "次！"
End If
Loop
End Sub

Private Sub Form_Load()
cmdExit.Caption = "退 出"
cmdFind.Caption = "查找替换"
Txtpaper = "上海市青少年计算机应用操作竞赛是一项经上海市教委批准，由上海市青少年科技教育中心主办的加分竞赛活动?旨在培养青少年的软件操作和应用能力，适应当今社会科技、信息的飞速发展，激发青少年学生学习计算机的兴趣，早日成为二十一世纪的全能人才。"
End Sub
更多VB代码请关注我的博客：http://hi.baidu.com/zgmg/blog/item/1384db03008e9884d53f7c35.html

Answer 2

这个必须用RichTextBox控件。工程-部件，调出部件窗口，然后在下面找到Microsoft Rich Textbox Control 6.0，然后打对勾，确定，在工具栏选中RichTextBox控件，放到窗体上。
添加两个命令按钮，Caption分别为“查找”和“查找下一个”。将RichTextBox的HideSelection属性设置为False。
下面是“查找”按钮的单击事件过程：
Private Sub Command1_Click()
strfind = InputBox("输入查找内容", "查找")
If strfind = "" Then Exit Sub
If RichTextBox1.Find(strfind) = -1 Then
MsgBox "未找到“" & strfind & "”。", vbInformation, "提示"
strfind = ""
End If
End Sub
下面是“查找下一个”按钮的单击事件过程：
Private Sub Command2_Click()
Dim a As Long
If strfind = "" Then
Call Command1_Click
Else
With RichTextBox1
a = .SelLength
.SelStart = .SelStart + a
If .Find(strfind, , Len(.TextRTF)) = -1 Then
.SelStart = .SelStart - a
.SelLength = a
MsgBox "查找结果。", vbInformation, "提示"
End If
End With
End If
End Sub

Answer 3

yes

Answer 4

很简单啊！！！！

你得把需求说清楚！

Answer 5

你先要确定你是要哪个版本的哈