hejsan.. Exempel: Detta kanske kan vara något? Programmet kan nog inte sammanfoga, men konvertera bl.a. real audio till andra format.Program för sammanfogning...
någon som vet ett program som kann slåihopp flera .ram filer till en stor??
MVH
//StefanSv: Program för sammanfogning...
SplitFile "c:\windows\desktop\test.bmp", "c:\windows\desktop\splitter\test"
Och detta för att återförena filerna:
JoinFile "c:\windows\desktop\splitter\test","c:\windows\desktop\splitter\newfile"
Kod:
<code>
Private Const MAX_CHUNK = 1048576
Private Bytes() As Byte
Private fNumIn As Long
Private fNumOut As Long
Private Extension As Long
Private fSize As Long
Private fOffset As Long
Private tFile As String
Sub JoinFile(InFile As String, OutFile As String)
Extension = 1
fNumOut = FreeFile
Open OutFile For Binary Access Write As fNumOut
Do
tFile = InFile & Format(Extension, "0000")
If Dir(tFile) = "" Then Exit Do
Extension = Extension + 1
fNumIn = FreeFile
Open tFile For Binary Access Read As fNumIn
fOffset = LOF(fNumIn) - 1
ReDim Bytes(fOffset) As Byte
Get #fNumIn, , Bytes
Put #fNumOut, , Bytes
Close fNumIn
Loop
Close fNumOut
End Sub
Sub SplitFile(InFile As String, OutFile As String)
Extension = 1
fNumIn = FreeFile
Open InFile For Binary Access Read As fNumIn
fSize = LOF(fNumIn)
Do While Not fSize = 0
If fSize < MAX_CHUNK Then
ReDim Bytes(fSize) As Byte
fSize = 0
Else
ReDim Bytes(MAX_CHUNK - 1) As Byte
fSize = fSize - MAX_CHUNK
End If
tFile = OutFile & Format(Extension, "0000")
Extension = Extension + 1
fNumOut = FreeFile
Open tFile For Binary Access Write As fNumOut
Get #fNumIn, , Bytes
Put #fNumOut, , Bytes
Close fNumOut
Loop
Close fNumIn
End Sub
</code>Sv: Program för sammanfogning...
<URL:http://www.cdpage.com/Compact_Disc_Consulting/Reviews/totalrecorder.html>