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