Модераторы: Akina

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Реально ли? никогда не пытался.... 
:(
    Опции темы
Akina
Дата 11.7.2007, 14:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Цитата(WildSpy @  11.7.2007,  15:32 Найти цитируемый пост)
откуда они берутся не могу найти.

Так изначально же буфер заполняется пробелами...


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
WildSpy
Дата 11.7.2007, 14:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 41
Регистрация: 5.11.2005

Репутация: нет
Всего: нет
Цитата(Akina @ 11.7.2007,  14:40)
Цитата(WildSpy @  11.7.2007,  15:32 Найти цитируемый пост)
откуда они берутся не могу найти.

Так изначально же буфер заполняется пробелами...

а, понятно и как от них избавится, чтобы на выходе получился сплошной текст, и чтобы скорость приличная была....?
PM MAIL   Вверх
Akina
Дата 11.7.2007, 17:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Цитата(WildSpy @  11.7.2007,  15:57 Найти цитируемый пост)
как от них избавится, чтобы на выходе получился сплошной текст, и чтобы скорость приличная была....? 

Откорректировать расчет размера буфера и смещений, чтобы данные ложились "впритирку"...


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
WildSpy
Дата 11.7.2007, 17:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 41
Регистрация: 5.11.2005

Репутация: нет
Всего: нет
Блин, непонимаю как это...
можно пример?
PM MAIL   Вверх
Akina
Дата 11.7.2007, 17:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Код

Option Explicit

Dim Bytes() As Byte
Dim sDump As String
Dim szDump As String
Dim i As Long

Private Sub Form_Load()
    Bytes = LoadFile("E:\Filename.Ext")
    sDump = Space(szDump * 2)
    For i = 1 To szDump
        Mid(sDump, 2 * i - 1, 2) = Right("0" & Hex(Bytes(i)), 2)
    Next i
    Text1.Text = sDump
End Sub

Function LoadFile(ByVal sName As String) As Byte()
    Dim arrFile() As Byte
    Dim nFile As Integer

    nFile = FreeFile
    Open sName For Binary As #nFile
    ReDim arrFile(1 To (LOF(nFile)))
    szDump = UBound(arrFile)
    Get #nFile, , arrFile
    Close #nFile
    LoadFile = arrFile
End Function



--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
WildSpy
Дата 11.7.2007, 18:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 41
Регистрация: 5.11.2005

Репутация: нет
Всего: нет
Спасибо, но почему то то код с "пробелами" работал быстрее, чем этот, "без пробелов"...почему так?
причем разница в скорости серьезно ощутима

т.е. новый код, по скорости примерно так же, как старый с применением Replace'а...

Это сообщение отредактировал(а) WildSpy - 11.7.2007, 18:22
PM MAIL   Вверх
W4FhLF
Дата 11.7.2007, 19:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


found myself
****


Профиль
Группа: Участник Клуба
Сообщений: 2831
Регистрация: 2.12.2006

Репутация: 3
Всего: 121
Цитата(WildSpy @  11.7.2007,  18:07 Найти цитируемый пост)
т.е. новый код, по скорости примерно так же, как старый с применением Replace'а...


У меня новый быстрее в среднем на 11%, оно и следовало предполагать. Чему там быть медленнее?


--------------------
"Бог умер" © Ницше
"Ницше умер" © Бог
PM ICQ   Вверх
WildSpy
Дата 11.7.2007, 20:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 41
Регистрация: 5.11.2005

Репутация: нет
Всего: нет
Незнаю, у меня старый код, где без убранных пробелов намного быстрее остального.
PM MAIL   Вверх
bom
Дата 12.7.2007, 00:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 329
Регистрация: 22.2.2004
Где: Казахстан, Алматы

Репутация: 4
Всего: 6
Первый код "загружает" в Textbox кусок файла размером 21 КВ, второй - 32 КВ, отсюда и разница в скорости, так как Texbox довольно тормозной контрол. 
PM MAIL   Вверх
WildSpy
Дата 12.7.2007, 07:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 41
Регистрация: 5.11.2005

Репутация: нет
Всего: нет
Ага, я уже разобрался, всем спасибо.

Если можно, то последний вопрос, как загрузить файл с определенного байта (offset'а) ?

Это сообщение отредактировал(а) WildSpy - 12.7.2007, 07:41
PM MAIL   Вверх
Akina
Дата 12.7.2007, 12:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
seek


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
__Sergey__
Дата 12.7.2007, 15:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 67
Регистрация: 21.1.2005

Репутация: 4
Всего: 4
надо использовать ф-ции, работающие с файловым отображением.

Добавлено через 2 минуты и 5 секунд
CreateFileMapping, MapViewOfFile ...
PM MAIL   Вверх
WildSpy
Дата 12.7.2007, 16:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 41
Регистрация: 5.11.2005

Репутация: нет
Всего: нет
Цитата(__Sergey__ @ 12.7.2007,  15:55)
надо использовать ф-ции, работающие с файловым отображением.

Добавлено @ 15:57
CreateFileMapping, MapViewOfFile ...

Спасибо, а не подскажешь, где про это почитать?
PM MAIL   Вверх
Akina
Дата 12.7.2007, 17:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Цитата(MSDN @  как ни странно)

Seek Statement

Sets the position for the next read/write operation within a file opened using the Open statement.

Syntax

Seek [#]filenumber, position

The Seek statement syntax has these parts:


filenumber Required. Any valid file number. 
position Required. Number in the range 1 – 2,147,483,647, inclusive, that indicates where the next read/write operation should occur. 

Remarks

Record numbers specified in Get and Put statements override file positioning performed by Seek.

Performing a file-write operation after a Seek operation beyond the end of a file extends the file. If you attempt a Seek operation to a negative or zero position, an error occurs.





--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
W4FhLF
Дата 12.7.2007, 18:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


found myself
****


Профиль
Группа: Участник Клуба
Сообщений: 2831
Регистрация: 2.12.2006

Репутация: 3
Всего: 121
Код

Get #nFile, POS_IN_FILE, arrFile



--------------------
"Бог умер" © Ницше
"Ницше умер" © Бог
PM ICQ   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0895 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.