请教——如何读取指定文件的内容

Question

这个问题不是很简单吗？
添加一个CommandDialog1(即Dlg)就行了。
Private Sub Command1_Click()
         Dlg.Filter = "文本文件(*.TXT)|*.TXT"
         Dlg.ShowSave
         Open Dlg.FileName For Output As #1
               Print #1, Text1.Text
               Close #1
               Dlg.Filter = "文本文件(*.TXT)|*.TXT"
               Dlg.FilterIndex = 2
               Dlg.Flags = &H10                          '对话框含有“帮助”按钮
End Sub

Answer 1

不同的文件有不同的格式，多数文件都可以二进制的格式读出。如果是文本文件，*.txt  ，可以这样读出到文本框(Textbox)中：
FileName 是你要打开的文件的路径：dim str as string 
Open FileName For Input As #1
Text1.Text = ""
Do While Not EOF(1)
Line Input #1, str
Text1.Text = Text1.Text & str & vbcrlf
LoopClose 1
杳找、比较字符串，可以用 instr  函数，代码我就不再贴了，还是不太复杂的。