Vb.net 按Excel文件中的行数获取字节

大家好

我试图找出一种方法来确定CSV文件中1000行的字节大小，其中可能有10-20K行。一旦我得到bytesize块，我就可以将文件拆分为每1000行更小的文件。 有人知道一种方法可以让我得到我所需要的字节大小块吗

下面是我使用chunksize变量中的字节切碎csv文件的代码：

Dim FileMemCnt As Integer = File.ReadAllBytes(filePath).Length

---

上面我已经发布了一个我使用的代码片段，可以读取每个文件的完整字节数，那么有没有类似于读取每1000条记录的字节数的方法呢

您想通过将

.XLSX

文件按固定字节数切片，从较大的工作簿中生成较小的工作簿吗？听起来是销毁工作簿的好方法！工作簿是一系列XML文件，它们被压缩（压缩）成

.XLSX

格式，随机剪切这些文件会留下垃圾。如果您要查找较小的工作簿，则必须打开工作簿，然后每次将1000行移到新工作簿中，然后保存它。要么是这样，要么是我完全误解了你的问题。对不起，忘了提一下，这些文件是CSV格式的。

Function ChopItUp(ByVal inputFile As String, ByVal chunkSize As Integer) As Integer '1000000 = 1MB (1x6) chunkSize in bytes

    Dim reader As New FileStream(inputFile, FileMode.Open)
    Dim fileIndex As Integer = 1
    Dim buffer(chunkSize) As Byte
    Dim writer As FileStream
    Dim bytesRead As Integer

    inputFile = Replace(inputFile, ".csv", "P")

    Do
        bytesRead = reader.Read(buffer, 0, chunkSize)


        If bytesRead > 0 Then
            writer = New FileStream(inputFile & fileIndex & ".csv", FileMode.Create)
            writer.Write(buffer, 0, bytesRead)
            writer.Close()
            fileIndex = fileIndex + 1
        End If
    Loop While bytesRead > 0

    reader.Close()

    ChopItUp = fileIndex - 1

End Function
.