vb读取和写入文本文件

Dim flName As String
Dim Ofilenum As Long
Dim sline As String

Dim Ifilenum As Long

flName = "C:\DXFELEMENT.DAT"
    If Dir(flName) <> "" Then
        Kill flName
    End If
    Ofilenum = FreeFile
    Open flName For Output As Ofilenum‘打开输出文档

Open DXFFileName For Input As Ifilenum
    
        ' Get the first code/value pair
        codes = ReadCodes

Print #Ofilenum, sline‘写入文本文档

Function ReadCodes() As Variant’读取文本文档
    Dim codeStr, valStr As String
    Line Input #Ifilenum, codeStr
    Line Input #Ifilenum, valStr
    ' Trim the leading and trailing space from the code
    ReadCodes = Array(Trim(codeStr), valStr)
End Function