|
■SHO さん) に返信
> ちなみに、どういうふうに直したんですか？
>
> 分割した後再生する時には、元に戻したんですか？
>
直しましたのは、上書きされている部分だけなのですが、以下のように直しました。
分割した後は元には戻さずに再生しました。
※が直した箇所です。
Class BinarySplit
Shared Sub Main()
' バイナリ・ファイルの読み込み
Dim src() As Byte = File.ReadAllBytes("D:\Test.avi")
Dim FILESIZE As Integer = 1024 * 10000 ' 分割サイズ
Dim num As Integer = 0
Dim remain As Integer = src.Length
While remain > 0
' 作成する分割ファイルの実際のサイズ
Dim length As Integer =Math.Min(FILESIZE, remain) ※
' 分割ファイルへ書き出すbyte配列の作成
Dim dest(length - 1) As Byte
'Array.Copy(src, num * FILESIZE, dest, 0, length)
' 出力ファイル名（out0001.bin、out0002.bin、……）
Dim name As String = String.Format("D:\out" & num & ".avi")※
' byte配列のファイルへの書き込み
File.WriteAllBytes(name, dest)
num += 1
remain -= FILESIZE
End While
End Sub
|