[备份]VB6读写文本文件和二进制文件

Tesla.Angela

1. 
   
2. Public Function ReadText(ByVal szFileName As String) As String
   
3.     Dim szTextCodes As String
   
4.     Open szFileName For Binary As #1
   
5.         szTextCodes = StrConv(InputB(LOF(1), 1), vbUnicode)
   
6.     Close #1
   
7.     ReadText= szTextCodes
   
8. End Function
   
9. 
   
10. Public Sub SaveText(ByVal szFileName As String, ByVal sz As String)
    
11.     On Error Resume Next
    
12.     Open szFileName For Output As #1
    
13.         Print #1, sz
    
14.     Close #1
    
15. End Sub
    
16. 
    
17. Public Function ReadBin(ByVal strFileName As String, Optional ByVal lngStartPos As Long = 1, Optional ByVal lngFileSize As Long = -1) As Byte()
    
18.     On Error Resume Next
    
19.     Dim FilNum As Integer
    
20.     FilNum = FreeFile
    
21.     Open strFileName For Binary As #FilNum
    
22.     If lngFileSize = -1 Then
    
23.         ReDim ReadBin(LOF(FilNum) - lngStartPos)
    
24.     Else
    
25.         ReDim ReadBin(lngFileSize - 1)
    
26.     End If
    
27.     Get #FilNum, lngStartPos, ReadBin
    
28.     Close #FilNum
    
29. End Function
    
30. 
    
31. Public Function SaveBin(ByVal strFileName As String, bytData() As Byte, Optional ByVal lngStartPos As Long = -1, Optional ByVal OverWrite As Boolean = True)
    
32.     On Error Resume Next
    
33.     Dim FilNum As Integer
    
34.     FilNum = FreeFile
    
35.     If OverWrite = True And Dir(strFileName) <> "" Then
    
36.         Kill strFileName
    
37.     End If
    
38.     Open strFileName For Binary As #FilNum
    
39.     If lngStartPos = -1 Then
    
40.         Put #FilNum, LOF(FilNum) + 1, bytData
    
41.     Else
    
42.         Put #FilNum, lngStartPos, bytData
    
43.     End If
    
44.     Close #FilNum
    
45. End Function
    

复制代码