Visual Basic 6.0 - Закодировать текстовый файл

Hello A.!

17 May 04 19:07, A. Skrobov wrote to Roman Yuakovlev:

[покусано]



Если подстрока ищется с учетом регистра и меняется на равную ей по длине - то будет в разы быстрее ;)

P.S. Естественно, в качестве параметра в функцию передается массив или используется string mapping.

Bye! Max Egorov

* Origin: Please believe me, the river told me... (2:5030/846.26)


Здорова Ivan! Пишет тебе Igor












/++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++/
Hе ну ладно нехочешь так зачем подкалывать и ... я писал это с нормальный
побуждений ... _ЧТО Я МОГУ ПОДЕЛАТЬ ЕСЛИ ХОЧЕТСЯ ???_ ...
/++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++/

С уважением, Igor

* Origin: NORA (2:5062/24.8)


Здорова Alexander! Пишет тебе Igor










/+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++/
А если серьёзно ??? ... ;)
/+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++/

С уважением, Igor

* Origin: NORA (2:5062/24.8)


Здорова Dmitriy! Пишет тебе Igor












/+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++/
Интересно а зачем сразу подкалывать и грубить ??? ...
Может мне так захотелось написать !!!
И откуда ты знаешь писал я програмки мощнее "Калькулятора" или нет ???
_И ты неответил на вопрос !!!_
/+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++/

С уважением, Igor

* Origin: NORA (2:5062/24.8)


Здорова Sergey! Пишет тебе Igor









/++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++/
Hу это надо обсуждать ... совещаться ... делать предложения ...
Hу я думаю можно для начала написать какую нибуть игрушку "Танчики" к примеру
ну чтобы типо притереться друг к другу ... вот ...
_Так ты точно непротив этого ??? ... И даже за ???_
/++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++/

С уважением, Igor

* Origin: NORA (2:5062/24.8)




Вот так, например, это рекомендует использовать сама
Майкрософт:Sub QueryTimer (strQueryName As String)
Dim sngStart As Single, sngEnd As Single
Dim sngElapsed As Single

sngStart = Timer ' Get start time.
DoCmd.OpenQuery strQueryName, acNormal ' Run query.
sngEnd = Timer ' Get end time.
sngElapsed = Format(sngEnd - sngStart, "Fixed")
' Elapsed time.
MsgBox ("The query " & strQueryName & " took " & sngElapsed _
& " seconds to run.")
End Sub
Получается, что через VB, что через API - результат по точности один и тот
же.Впрочем для прогресс бара, в принципе, точность не очень нужна.Макс


* Origin: VoronezhSvyazInform ISP News Server (2:5020/400)




Добрых дней, приятных ночей, All!

Hужно добавить расписание планировщику средствами VB.
Куда копать?

P.S. explorer.exe ::{20D04FE0-3AEA-1069-A2D8-08002B30309D}\::
{D6277990-4C6A-11CF-8D87-00AA0060F5BF}[ещё что то?]

______________________________________________
Terekhin Alexandr. E-mail: didinst [@] rol.ru
* Origin: Алт (2:5020/400)




Доброго времени суток, Ivan!
Sat, 15 May 2004 21:51:36 +0400 Вы писали to Terekhin Alexandr:





Ладно, уговорили ;)
Hу раз делать, то уж только HTTP сервер ;)
___________________________________________________________


* Origin: Алт (2:5020/400)


Мы где-то виделись, Stanislav?








GetTickCount:

============================== Смотри ниже ===============================
Declare Function GetTickCount Lib "kernel32" () As Long

Sub Main()
Dim StartTime As Long, EndTime As Long

StartTime = GetTickCount()

MsgBox "Срочно нажмите ОК!!!"

EndTime = GetTickCount()

MsgBox "Ваша реакция: " & (EndTime - StartTime) / 1000 & " сек. " & _
"Хм, могло быть и лучше."
End Sub
============================== Смотри выше ===============================


============================== Смотри ниже ===============================
Declare Function QueryPerformanceCounter Lib "kernel32" _
(lpPerformanceCount As Currency) As Long
Declare Function QueryPerformanceFrequency Lib "kernel32" _
(lpFrequency As Currency) As Long

Sub Main()
Dim StartTime As Currency, EndTime As Currency
Dim Freq As Currency

QueryPerformanceFrequency Freq
QueryPerformanceCounter StartTime

MsgBox "Срочно нажмите ОК!!!"

QueryPerformanceCounter EndTime

MsgBox "Ваша реакция: " & Format$((EndTime - StartTime) / Freq, "0.0000") & _
" сек. Хм, могло быть и лучше."
End Sub
============================== Смотри выше ===============================

Всего хорошего!
Дмитрий Козырев aka Master

* Origin: Дорогу осилит идущий. (2:5023/11.148)




Добрых дней, приятных ночей, All!

Hужно отловить нажатие клавиш за пределами проекта
Сделал так:

Private Declare Function GetKeyboardState Lib "user32" (pbKeyState As Byte)
As Long
Dim KeyState(0 To 255) As Byte, KeyOnse(0 To 255) As Byte
Private Sub Timer1_Timer()
GetKeyboardState KeyState(Index)
For Key = 1 To 255

Text1 = Text1 + vbCrLf + Str(Key) + "=" + Str(KeyState(Key))
End If
Next Key
KeyState(Index) = KeyOnse(Index)
End Sub

Работает только внутри пректа. Как быть?

______________________________________________
Я - теppоpист, и постоянно работаю с людьми.
Вот почему "тик-так" всегда со мной!
Terekhin Alexandr. E-mail: didinst [@] rol.ru


* Origin: Алт (2:5020/400)