DBF壓縮
記得在 dBase 裡有內建指令吧? 應該是 pack

是這個鬼東西嗎？

mports System.Data.OleDb
Imports Lion.IO.SharpZIP.Zip
Imports Lion.IO.SharpZIP.Checksums
Imports System.IO
Module Module1
Sub Main()
'Try
Dim cn1 As New OleDbConnection( _
"Provider=VFPOLEDB.1;Data Source=C:\Temp\;")
cn1.Open()
'-- Make some VFP data to play with
Dim cmd1 As New OleDbCommand( _
"Create Table TestDBF (Field1 I, Field2 C(10))", cn1)
Dim cmd2 As New OleDbCommand( _
"Insert Into TestDBF Values (1, '行贿)", cn1)
Dim cmd3 As New OleDbCommand( _
"Insert Into TestDBF Values (2, '受贿')", cn1)
cmd1.ExecuteNonQuery()
cmd2.ExecuteNonQuery()
cmd3.ExecuteNonQuery()
cn1.Close()
Dim cn2 As New OleDbConnection( _
"Provider=VFPOLEDB.1;Data Source=C:\Temp\;")
cn2.Open()
Dim cmd4 As New OleDbCommand( _
"Select * From TestDBF", cn2)
Dim da1 As New OleDbDataAdapter(cmd4)
Dim ds1 As New DataSet
Dim dr1 As DataRow
da1.Fill(ds1)
For Each dr1 In ds1.Tables(0).Rows
Console.WriteLine(dr1.Item(1).ToString())
Next
cn2.Close()
Dim crc As New Crc32
Dim s As New ZipOutputStream(System.IO.File.Create("c:\temp\dbf.zip"))
s.SetLevel(6)
Dim fs As FileStream = File.OpenRead("c:\temp\testdbf.dbf")
Dim b(fs.Length - 1) As Byte'c#中的语句为byte[] b = byte[fs.Length ];要注意这点
fs.Read(b, 0, b.Length)
Dim entry As ZipEntry = New ZipEntry("c:\temp\testdbf.dbf")
entry.DateTime = DateTime.Now
entry.Size = fs.Length
fs.Close()
crc.Reset()
crc.Update(b)
entry.Crc = crc.Value
s.PutNextEntry(entry)
s.Write(b, 0, b.Length)
s.Finish()
s.Close()
Console.ReadLine()
'Catch e As Exception
'MsgBox(e.ToString())
'End Try
End Sub
End Module