VBNet - Форум - Ну что? Никто не знает как разделить файл попол...

Вопрос: Ну что? Никто не знает как разделить файл попол... Добавлено: 03.12.03 18:06

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

Ну что? Никто не знает как разделить файл пополам???
Ответить

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

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

Александр

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

ICQ: 204034

Вопросов: 106
Ответов: 1919

Профиль | | #1

Добавлено: 03.12.03 18:33

Я знаю, а что???

Ответить

Номер ответа: 2 Автор ответа: Votmax Вопросов: 72 Ответов: 28	Web-сайт: basiccenter.narod.ru Профиль \| \| #2	Добавлено: 03.12.03 19:57
	Ну так скажи что ли! Ответить

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

boevik

Хранитель чата

ICQ: 137392264

Вопросов: 8
Ответов: 557

Web-сайт: www.hypertech.ru
Профиль | | #3

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

Вот код как разделить файл на половину средствами VB

Dim aHalfFile1() As Byte
Dim aHalfFile2() As Byte
Dim bByte As Byte
Dim HalfPosition As Long
Dim lPosition As Long

Open "c:\log.txt" For Binary As #1
' Read the sample file using the Get statement.
HalfPosition = LOF(1) / 2   ' Define record number.
ReDim aHalfFile1(HalfPosition - 1)
ReDim aHalfFile2(LOF(1) - HalfPosition - 1)
While lPosition < LOF(1)
    Get #1, lPosition + 1, bByte
    If lPosition <= HalfPosition - 1 Then
        aHalfFile1(lPosition) = bByte
    Else
        aHalfFile2(lPosition - HalfPosition) = bByte
    End If
    lPosition = lPosition + 1
Wend
Close #1   ' Close file.

Ответить

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

Cooller

Вопросов: 10
Ответов: 28

Профиль | | #4

Добавлено: 04.12.03 00:23

А можно подругому...

Open "c:\cooller" For Input As #1

Input #1, b$

a$ = a$ + b$

Loop Until EOF(1)

Close #1

b$ = Mid$(a$, 1, Round(Len(a$) / 2))

c$ = Mid$(a$, Round(Len(a$) / 2), Len(a$))

'a$ - предисловие

'b$ - 1 часть

'c$ - 2 часть

' извини эпилога не будет

Ответить

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

Fallout

Вопросов: 10
Ответов: 387

Web-сайт: mudator.by.ru
Профиль | | #5

Добавлено: 04.12.03 02:16

без коментариев...

Ответить

Номер ответа: 6 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362	Профиль \| \| #6	Добавлено: 04.12.03 02:23
	А может человеку надо пополам exe разрезать?! а потом склеять! Ответить

Номер ответа: 7 Автор ответа: *CyRax* Разработчик Offline Client ICQ: 204447456 Вопросов: 180 Ответов: 4229	Web-сайт: basicproduction.nm.ru Профиль \| \| #7	Добавлено: 04.12.03 06:29
	Принцип такой. 1.Открываешь файл для двоичного доступа. Open FileName For Binary as FileNumber 2.Получаешь длину файла с помошью LOF(НомерФайла) 3.Делишь длину полполам 4.Считываешь первую половину файла в буфер Переменная=SPACE(LOF(НомерФайла)/2) GET НомерФайла,1,Переменная 5.Создаёшь файл первого куска. Можно той же Open или CreateFile или FSO - кому как нравится. Скидываешь кусок в новый файл с помошью PUT 6.Аналогично для второго куска, только GET НомерФайла,LOF(НомерФайла)/2,Переменная Ответить

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

Александр

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

ICQ: 204034

Вопросов: 106
Ответов: 1919

Профиль | | #8

Добавлено: 04.12.03 08:38

Зыркай другой топик - я там тебе ответил...

Ответить

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

Fallout

Вопросов: 10
Ответов: 387

Web-сайт: mudator.by.ru
Профиль | | #9

Добавлено: 05.12.03 08:34

мне больше всего нрвится что люди забывают начисто про поиск... и делают кучу ДАЖЕ НА ОДНОМ ЛИСТЕ,... одинаковых топиков.... на которые уже отвечали ..... а иногда и не раз...

Ответить

Страница: 1 |