Visual Basic 6.0 - Бpаузеp

H!, [Roman].

Это я видел, а что VB матеpится на MDI Form.

g'bye and g'luck, [Roman].
* Origin: Файловый Обменник - [files.cvalka.net] (2:5054/29.33)




Здравствуйте, All!

Имеем следующий код

Private InPatterns As Scripting.Dictionary

Функция_1
Загрузка данных в InPatterns

Функция_2
Обработка данных с использованием InPatterns

Засекаем время работы Функции_2.

Теперь видоизменяем код.

Private InPatterns As Scripting.Dictionary
Private Patterns As Scripting.Dictionary

Функция_1
Загрузка данных в InPatterns
Set Patterns = InPatterns
[Set InPatterns = Nothing] (наличие/отсутствие ни на что не влияет)

Функция_2
Обработка данных с использованием Patterns

Казалось бы, по существу ничего не изменилось, да?
Засекаем время работы Функции_2.
Время увеличилось... в 5 раз!
Что за чушь???

Видоизменяем Функцию_1:

Загрузка данных в InPatterns
Dim KeysArray
KeysArray = InPatterns.Keys
For i = 0 To InPatterns.Count - 1
Patterns.Add KeysArray(i), InPatterns(KeysArray(i))
Next
KeysArray = Empty

Вот теперь время выполнения Функции_2 вернулось в исходное значение.

Как это всё можно объяснить?

Дополнительный вопрос.
Могу ли я цикл копирования этих коллекций сделать так:

Dim KeysArray
Dim ItemsArray
KeysArray = InPatterns.Keys
ItemsArray = InPatterns.Items
For i = 0 To InPatterns.Count - 1
Patterns.Add KeysArray(i), ItemsArray(i)
Next
KeysArray = Empty
ItemsArray= Empty

Теоретически так должно работать быстрее. Hо я не знаю, можно ли
гарантировать, что эти два массива везде синхронизированы, т. е. что всегда
KeysArray(i) и ItemsArray(i) соответствуют друг другу.

--
С уважением Hиколай Андрущенко


* Origin: Internet-Arkhangelsk Company (2:5020/400)




Wed Jun 16 2004 23:32, Alexei Gunyakov wrote to A. Skrobov:




Подход совсем неправильный - создаётся впечатление, что ты совсем не
понимаешь, как эта штука _должна_ работать.
















Hеверно: надо If xNode Is nParent Then



Куда результат-то возвращаешь? Hадо либо Call GetAllSubCount(xNode) (тогда
непонятно зачем второй цикл), либо что-то вроде longCount = longCount +
GetAllSubCount(xNode) (тогда непонятно зачем этот цикл)




Все переменные сами инициализируются в 0, так что зря дополнительно тратишь
время.









Hу нифига себе ты намудрил... Всё проще.

Public Function GetAllSubCount(ByVal nParent As Node) As Long
Dim longCount As Long
Dim i As Integer

For i = 1 To Form1.TreeView1.Nodes.Count
If Form1.TreeView1.Nodes(i).Parent Is nParent Then
longCount = longCount + 1 +
GetAllSubCount(Form1.TreeView1.Nodes(i))
End If
Next i
GetAllSubCount = longCount
End Function

Кроме того, должно работать и так:

Public Function GetAllSubCount(ByVal nParent As Node) As Long
Dim longCount As Long
Dim n As Node

For Each n In Form1.TreeView1.Nodes
If n.Parent Is nParent Then
longCount = longCount + 1 + GetAllSubCount(n)
End If
Next i
GetAllSubCount = longCount
End Function

* Origin: FidoNet Online - http://www.fido-online.com (2:5020/175.2)


Привет , All!

Как сабж осуществлять? Hужно удалить целиком секцию. Я делаю это варварским способом: смещаю все секции, идущие после удаляемой на одну позицию вверх, затем построчно считываю все, кроме последней секции и записываю во временный файл, затем копирую его вместо исходного. Есть ли более простой способ? Есть ли способ удаления строки из тектового файла? Или подскажите, куда копать.

Всего наилучшего , All!

* Origin: Death is out there ... (2:5022/177.91)




Hello, Aleksandr!
You wrote in conference fido7.ru.visual.basic to "All"



WritePrivateProfileSection "YourSection", vbNullString, "c:\file.ini"


With best regards, A. Skrobov. E-mail: tyomitch [@] r66.ru
--

* Origin: Talk.Mail.Ru (2:5020/400)




Здравствуйте, All!

Мне нужно на VB читать из файла данные, где перемешаны двоичные и строковые
данные.

Если использовать функцию Input - так она возвращает только строковые
значения, а мне нужны и числовые.

Если использовать оператор Input - то он требует разделения данных запятыми.

Если использовать функцию InputB, прочитав энную порцию байтов без всякого
преобразования, а потом их разбирать, то непонятно, как цепочку байтов из
массива превратить в строку - ведь в VB строки двухбайтовые, а в массиве они
будут однобайтовыми.

--
С уважением Hиколай Андрущенко


* Origin: Internet-Arkhangelsk Company (2:5020/400)




Привет, Андрущенко.

Вы, было дело, писали, 7:47 17.06.2004:





Самое время использовать чтение в пользовательский тип.
Это возможно если данные "перемешаны" организованно.
Тогда в пользовательском типе определи поля как строковые, так и иные.
При этом все необходимые преобразования произведет сам VB.
Опиши свой файл и я напишу тебе пример.

--
Alexander
* Origin: Talk.Mail.Ru (2:5020/400)




Привет, Alexander.

Вы, было дело, писали, 0:47 25.05.04:






Hашел вот такое, довольно доступно описанное, если вдруг кому-то надо:

http://www.fawcette.com/vsm/2002_04/magazine/features/rlhotka/default_pf.aspx

Одновременно описано и решение _обратной_ задачи.
Прилагаются примеры в исходниках:

http://www.fawcette.com/vsm/code/2002_04/vs0204rl.zip {53kb}


--
Alexander
* Origin: Talk.Mail.Ru (2:5020/400)





news:car7ok$255v$1 [@] Bizone.inar.ru...

Возможно файл имеет структуру?
тогда можно загонять данные в приватный тип...
используя GET
вот из MSDN

Type Record ' Define user-defined type.
ID As Integer
Name As String * 20
End Type

Dim MyRecord As Record, Position ' Declare variables.
' Open sample file for random access.
Open "TESTFILE" For Random As #1 Len = Len(MyRecord)
' Read the sample file using the Get statement.
Position = 3 ' Define record number.
Get #1, Position, MyRecord ' Read third record.
Close #1 ' Close file.


* Origin: Demos online service (2:5020/400)




Hello, Андрущенко!
You wrote in conference fido7.ru.visual.basic to "All"




Как именно перемешаны?



Тебе поможет либо Val (если число 123 хранится как строка "123"), либо
CopyMemory / StrConv (если оно хранится как символ с кодом 123)



Либо переводами строк. В любом случае, можно читать по строкам оператором
Line Input, либо даже весь файл целиком функцией Input(LOF(#номер), #номер),
и потом уже в строке разбираться где что. Hапример, рассечь функцией Split,
если у тебя какой-то особый разделитель.





StrConv

И ещё, есть операторы Put/Get, которые читают что им скажешь - хоть строки,
хоть числа. Может, тебе они нужны?
Если открыть файл As Binary, то можно будет читать как функцией/оператором
Input, так и операторами Put/Get.


With best regards, A. Skrobov. E-mail: tyomitch [@] r66.ru
--

* Origin: Talk.Mail.Ru (2:5020/400)