怎样把.htm的文件用vb读出来，并在回写到.htm中------求救！！

Question

dim fnum as integer
fnum=freefile()
Open "c:\aaaa.htm" For Input As #fnum

Answer 1

snowboy1980(雪古)　可不可以详细点手头现在一点资料也没有  所以才请教的  多谢

Answer 2

可以去看看MSDN吗，两张盘，光盘市场到处都是

Answer 3

可以参考下面的例子：Private Sub Command1_Click()         If SaveTextFile("c:\abc.html", Replace(LoadTextFile("c:\abc.html"), "这是旧的字符串","哈哈，我是新的！"))=True Then
            debug.print "修改成功"
         Else
             debug.print "修改失败"
         End IfEnd Sub
Public Function LoadTextFile(tFile As String) As String
        
        Dim sContent As String, One_Line As String
        Dim iFileNum As Integer
        
        sContent = ""
        iFileNum = FreeFile
        Open tFile For Input As #iFileNum
        Do While Not EOF(iFileNum)
            Line Input #iFileNum, One_Line
            sContent = sContent & One_Line & vbCrLf
        Loop
        Close #iFileNum
        LoadTextFile = sContentEnd Function
Public Function SaveTextFile(sFile As String, sText As String) As Boolean
        
On Error GoTo handleSaveTextFileError
        
        Dim iFileNum As Integer
        
        iFileNum = FreeFile
        Open sFile For Output As #iFileNum
        Print #iFileNum, sText
        Close #iFileNum
        SaveTextFile = TruehandleSaveTextFileError:
    SaveTextFile = False
    
End Function