VBNet - Форум - AE SOFT'у

Вопрос: AE SOFT'у Добавлено: 03.12.03 20:01

Автор вопроса: Votmax | Web-сайт: basiccenter.narod.ru

Скажи как разделить файл пополам.(прогой, а не rarами, zipами)!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Ответить

Ответы Всего ответов: 5

Номер ответа: 1
Автор ответа:

HACKER

Разработчик Offline Client

Вопросов: 236
Ответов: 8362

Профиль | | #1

Добавлено: 03.12.03 20:17

НУ если нехочешь не ZIP не RAR попробуй FAR (Шутка)

А вообще чисто программно врядли, нуже какойто OCX

Ответить

Номер ответа: 2
Автор ответа:

NeForm@t

ICQ: 252999255

Вопросов: 36
Ответов: 247

Web-сайт: g--k.newmail.ru
Профиль | | #2

Добавлено: 03.12.03 21:32

http://vbnet.ru/sample/zip/FileSplitter.rar

Govnuk - это мой nick!

Ответить

Номер ответа: 3
Автор ответа:

NeForm@t

ICQ: 252999255

Вопросов: 36
Ответов: 247

Web-сайт: g--k.newmail.ru
Профиль | | #3

Добавлено: 03.12.03 22:05

Sub FileRazb(path As String)
ras1 = 0
For i = Len(path) To 1 Step -1
If Mid$(path, i, 1) = "." Then
If res1 = 0 Then
ras$ = Mid$(path, i)
ras1 = 1
End If
ElseIf Mid$(path, i, 1) = "\" Then
'Nam$ = Mid$(path, i + 1, Len(ras$) - 1)
path1 = Mid$(path, 1, Len(path) - i - 1)
Exit For
End If
Next i
On Error Resume Next
Open path For Binary As #1
Open path1 & ".part1" & ras$ For Binary As #2
Open path1 & ".part2" & ras$ For Binary As #3
l = FileLen(path)
z = l \ 2
Dim byt As Long
ReDim arr1(1 To z)
ReDim arr2(1 To l - z)
Get #1, , arr1
Put #2, 1, arr1
Get #1, l - z, arr2
Put #3, , arr2
Close
MsgBox "Razbienie zavercheno! Etot kod napisan Govnukom!"
End Sub
Sub FileSobr(NewFilePath As String, Part1Path, Part2Path)
On Error Resume Next
Open NewFilePath For Binary As #1
Open Part1Path For Binary As #2
Open Part2Path For Binary As #3
ReDim arr1(1 To FileLen(Part1Path))
ReDim arr2(1 To FileLen(Part2Path))
Get #2, , arr1
Get #3, , arr2
Put #1, 1, arr1
Put #1, FileLen(Part1Path) + 1, arr2
Close
MsgBox "Faily sobrany. Kod napisan Govnukom"
End Sub