2016-09-26 95 views
-5

我有以下代码以从现有文件创建另一个文件;生成的文件与原始文件相同。但是,我需要生成的文件database.test只有原始文件(database.1)的1024个字节。有人可以给我一些快速的解决方案来做到这一点是代码。以下是我的代码。将文件截断为字节大小

Imports System.IO 

Public Class Form1 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
     Dim data() As Byte = File.ReadAllBytes("C:\PROGRAMS\DATABASE.1") 
     File.WriteAllBytes("c:\programs\database.test", data) 
    End Sub 
End Class 
+1

怎么样,而不是写所有字节,你只写他们的128?必须有一些方法来查看如何做到这一点...然后你会发现如何只读128字节。 –

+0

如果截断它,数据库将不可用。除非它不是纯文本文件。在这种情况下,我不会称之为“数据库”。 –

回答

0

感谢您的建议: -

我终于得到它的工作是这样的: -

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
     Dim data() As Byte = File.ReadAllBytes("C:\PROGRAMS\DATABASE.1") 
     'File.WriteAllBytes("c:\programs\database.test", data) 

     Using writer As BinaryWriter = New BinaryWriter(File.Open("c:\programs\database.test", FileMode.Create)) 

      Dim x As Single = data.Length - 1 

      Dim l As Single = 0 

      For l = 0 To 1023 

       writer.Write(data(l)) 

      Next 



     End Using 



    End Sub 
+1

这是写1024 *字节* - 你的问题表明1024 *位*。 –

+0

抱歉,必须是字节! ! –