我正在尝试将从richeditDocument生成的内存流转换为字节数组。代码如下:
Public Sub saveAsTemplate_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Dim ms As MemoryStream = New MemoryStream()
richEditControl1.SaveDocument(ms, DocumentFormat.Rtf)
GetStreamAsByteArray(ms)
MessageBox.Show("save")
End Sub
Private Function GetStreamAsByteArray(ByVal stream As MemoryStream) As Byte()
Dim streamLength As Integer = Convert.ToInt32(stream.Length)
Dim fileData As Byte() = New Byte(streamLength) {}
' Read the file into a byte array
stream.Read(fileData, 0, streamLength)
stream.Flush()
stream.Close()
Return fileData
End Function
生成流,因为我可以获得流长度,但最终的咬合数组只包含0,使其无效。我怎样才能获得正确的字节数组?
答案 0 :(得分:7)
如果要从内存流中读取,则需要确保流的当前位置在开头。
此外,您使用的Read
方法错误。它返回读取的字节数,可能小于请求的字节数。要正确使用它,您需要循环,直到获得流中的所有字节。
但是,您应该使用ToArray
方法将流中的所有内容作为字节数组获取:
Private Function GetStreamAsByteArray(ByVal stream As MemoryStream) As Byte()
Return stream.ToArray()
End Function
答案 1 :(得分:0)
'这适用于100mb .txt文件
Public Function read()
Dim tmpdb(0) As String
Try
tmpdb = IO.File.ReadAllLines("C:\Users\Admin01\Desktop\TmpTxt.txt")
FileOpen(1, "C:\Users\Admin01\Desktop\IRSH_TEST_DB.jrdb", OpenMode.Binary, OpenAccess.Write)
FilePut(1, tmpdb)
FileClose(1)
MessageBox.Show("SUCCES!")
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Function