Несколько вопросов о... короче вопросы новичка в vb

[Андрей@]

Хакер


Код в студию, это в смысле сюда?

Ну, ладно, скину.... Только попозже, а то у меня сейчас в винде почему то буфер обмена полетел.... не работает..... надо перезагружаться.....

[Андрей@]

Ну, не буду скидывать коды с динамическими массивами и циклами, потому что окончательно убедился, что дел не в Реплэйсе..... Вот самый последний код...

Код: Выделить всё

Private Sub Command4_Click()
Dim b As String
MsgBox Len(Text1.Text) ' Выдаёт длину теста в текстбоксе...
b = Replace(Text1.Text, Chr(10), Chr(13))
b = Replace(b, Chr(13), Chr(13) + Chr(10))' Не знаю, зачем надо сразу две строки, просто на радостях - ведь Реплэйс мгновенно работает

MsgBox Len(b) ' Выдаёт нормальную длину - миллион с копейками...
MsgBox (Len(b) - Len(Text1.Text)) 'Ну это просто так, длина b больше длины Text1.text
Text1.Text = b  И вот когда проверяю, какова длина текста в текстбоксе - выдаётся 65535
msgbox len(text1.text)


End Sub



вот код такой........ Готов к справедливой критике........

И вот всё-таки насчёт перебора всех файлов на диске - как это сделать? Через рекурсию что ли? То есть пишу функцию: смотрим аттрибуты всех файлов по адресу "C://" и если у файла аттрибут Directory, тогда пишу в функции, чтобы она для этой папки сама себя вызвала... Так? Не это ведь памяти съест навалом.........
Как ещё такое реализуется?

И про FileListBox - сортировку.... что почитать посоветуете?
P.S. Искал в разделе алгоритмы - ничего не нашёл.......
Наверно, плохо искал...

[burik]

Перебор всех файлов на диске я делал двумя способами. Первый - рекурсивно, как ты и описал. А второй - с помощью очереди. Короче создаю очередь, помещаю туда первый элемент (начальный путь, например "C:\"), потом цикл типа этого:

Код: Выделить всё


While fCount > 0 'fCount - количество элементов в очереди
    ' тут сканируешь верхний в очереди путь (сначала это начальный) и все найденные папки
    ' добавляешь в очередь (не забывай увеличивать fCount)
    ' делаешь fCount на единицу меньше и удаляешь верхний элемент очереди
Wend


[Андрей@]

burik

Спасибо, с очередями примерно понял.... (На уровне логики, но не на уровне кода).. вот только
' делаешь fCount на единицу меньше и удаляешь верхний элемент очереди '
.... Верхний элемент очереди удалять...... Не дошло... (каким образом) Просто никогда такой конструкции while .....wend ещё не видел....
И ещё добавлять в очередь..... Ладно, поищу что нибудь почитать....



Много ли они памяти экономят?
Так кажктся, много......

[Jaha]

Подскажите пожалуйста как реализовать на VB6 функцию Acos
и где можно найти примеры программ которые выплняют простейшие действия с комплексными числами (сложение, вычитание, умножение, деление) заранее благодарю.

[alibek]

Есть арктангенс, арккосинус выражается через него.
В MSDN была страничка с формулами, поищи там.

[Jaha]

Сильно не ругайтесь но я не знаю что такое MSDN

[alibek]

http://msdn2.microsoft.com/en-us/librar ... 08(MSDN.10).aspx

[ANMAT]

Вопрос может и не по чистому VB, но к нему имеет отношение:
Попробовал удалить(прочитать) ключ из раздела HKEY_CURRENT_USER\Software\Microsoft\Windows\ShellNoRoam\MUICache\ при помощи WSH и не смог найти правильный синтаксис.
Дело в том, что там имена параметров выглядят, примерно, как c:\folder\app.exe
Пытался и в кавычки взять, но ничего не выходит - возвращает ошибку "Неверная ссылка на корень в реестре".
Подскажите, пожалуйста...

[Konst_One]

\\ задваивать надо

[alibek]

Все же не надо кучу разнотипных вопросов в одной теме задавать.