一道VB程序题 急

来源：百度知道 编辑：UC知道 时间：2024/09/23 17:19:13
编程统计C盘Mydir文件夹中文本文件data.txt中字符'$'出现的次数。并将统计结果写入到文本文件C:\Mydir\res.txt中。
以上是原题 谁知道能不能帮我把代码写下
跪求

Private Sub Form_Load()
On Error Resume Next
Dim Handle As Integer, Filetext As String
Handle = FreeFile
Open "C:\MYDIR\DATA.TXT" For Binary As #Handle
Filetext = Space(LOF(Handle))
Get #Handle, , Filetext
Close #Handle
'读取文件

Dim A As Long, B As Long
A = FileLen("C:\MYDIR\DATA.TXT")
B = Len(Replace(Filetext, "$", ""))
'计算差值

Handle = FreeFile
Open "C:\Mydir\res.txt" For Output As #Handle
Print #Handle, A - B
Close #Handle
'保存
End Sub

留个位置先!

我来迟了~~
200分阿~~~

qianwenxiang

的回答就可以~