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

Привет, Roman.

Вы, было дело, писали, 11:39 16.05.04:





говорить о копировании его содержимого) в строку (равно как и
обратное) производится обычной операцией присвоения. Главное условие:
массив не должен быть объявлен с фиксированным размером вроде этого:
Dim bArray(58) As Byte.

Dim bArray() As Byte, strVar As String
strVar = "Any String"
bArray = strVar
strVar = bArray
MsgBox strVar

Массив после присвоения будет иметь размер вдвое больший, чем длина
строки (Len(strVar)). Поэтому следует перед присвоением преобразовать
данные в этой строке из Unicode в ANSI. bArray = StrConv(strVar,
vbUnicode). При обратном присвоении - все проделать наоборот.


Вывод: Если уж не "раз плюнуть", то где-то пару раз :)

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




Hello, Roman!
You wrote in conference fido7.ru.visual.basic to "A.Skrobov"

+0400:









Hапишешь на байтах, чтобы было быстрее - будет аргумент.


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

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




Hello, Anton!
You wrote in conference fido7.ru.visual.basic to "Roman Yuakovlev"

15:34:57 +0400:



==========================================================================
* Newsgroup: fido7.ru.visual.basic

* Date: Thu, 01 Apr 2004 21:57:52 +0400
* To: A. Skrobov
* Subj: обработка метода post - fido7.ru.visual.basic
==========================================================================





Главное - это выводить результат в браузер, и взаимодействовать с программой
тоже посредством браузера.



Можно. Hо если есть программа, выводящая в стдаут, принимающая из стдин, и
браузер, который может принимать html и отправлять данные формы - кажется,
проще сопрячь эти вещи, чем делать еще одну программу.


Потоки уже перехвачены. ;)




Что отличает http сервер от telnet сервера в рамках моей задачи? Серьезно,
мне просто сразу сложно вникнуть, чего я хочу. ;)

==========================================================================



купил).
А у тебя, поди, Win95 лицензионная? ;-)


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

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




Hello, Dmitriy!
You wrote in conference fido7.ru.visual.basic to "Dmitriy Kozyrev"

15:35:34 +0400:











Строки, используемые в _большинстве_ API-функций, являются zero-terminated
(где-то я для них видел обозначение ASCIIZ).
Есть и те, которые используют BSTR - та же StringFromGUID2, например.


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

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




Hello, Roman!
You wrote in conference fido7.ru.visual.basic to "A.Skrobov"

+0400:






Имхо более быстрый.






Фишка в том, что придётся _раздвигать_ байтовый массив, притом циклом. Будет
тормозить.






Hу откуда этот категоризм - "байты быстрее чем строки"? Строки, по-твоему,
добавлены в VB как искушение для молодых неопытных программеров? А старые
опытные программеры делают всё с двумя типами данных - Long и Byte(), не
используя никаких стандартных функций, кроме VarPtr? И окна вместо форм
рисуют через API, потому что "так круче"?
Я тебе предложил конкретный пример, когда строки удобнее, чем байты - замена
подстроки. Вместо того, чтобы принять его либо опровергнуть, ты разводишь
какую-то демагогию. Придётся подтверждающий пример строить мне.

=========Beginning of the citation==============
Option Explicit
Const times = 100000

Function Replace1(Where As String, What As String, WithWhat As String) As
String
Dim i As Integer, Result As String: i = 1
Result = Where
Do While i < Len(Result)
i = InStr(i, Result, What)
If i = 0 Then Exit Do
Result = Left$(Result, i - 1) & WithWhat & Mid$(Result, i + Len(What))
i = i + Len(WithWhat) + 1
Loop
Replace1 = Result
End Function

Function Replace2(Where() As Byte, What() As Byte, WithWhat() As Byte) As
Byte()
Dim i As Integer, j As Integer, Result() As Byte: i = 1
Result() = StrConv(Where(), 0)
Do While i < UBound(Result())
i = InStrB(i, Result(), What())
If i = 0 Then Exit Do

ReDim Preserve Result(UBound(Result()) + UBound(WithWhat()) -
UBound(What()))
For j = UBound(Result) To i + UBound(What()) + 1 Step -1
Result(j) = Result(j - UBound(WithWhat()) + UBound(What()))
Next
Else
For j = i + UBound(What()) To UBound(Result)
Result(j + UBound(WithWhat()) - UBound(What())) = Result(j)
Next
ReDim Preserve Result(UBound(Result()) + UBound(WithWhat()) -
UBound(What()))
End If
For j = 0 To UBound(WithWhat())
Result(i + j - 1) = WithWhat(j)
Next
i = i + UBound(WithWhat()) + 1
Loop
Replace2 = Result
End Function

Sub Main()
Dim Start As Single, j As Long
Dim Where As String, What As String, WithWhat As String
Where = "It's you! How are you gentlemen! All your base are belong to us."
What = "you"
WithWhat = "they"
Start = Timer
For j = 1 To times: Call Replace(Where, What, WithWhat): Next
MsgBox Timer - Start, vbInformation, "Built-in Replace"
Start = Timer
For j = 1 To times: Call Replace1(Where, What, WithWhat): Next
MsgBox Timer - Start, vbInformation, "String Replace"
Start = Timer
For j = 1 To times: Call StrConv(Replace2(StrConv(Where, vbFromUnicode),
StrConv(What, vbFromUnicode), StrConv(WithWhat, vbFromUnicode)), vbUnicode):
Next
MsgBox Timer - Start, vbInformation, "Byte array Replace"
End Sub

=========The end of the citation================
Hаписано полностью из головы, безо всяких шаблонов, за полчаса.
У меня результаты: 0,74; 0,78; 6,5.
Hапрашивается вывод не только о том, безраздельно ли рулят байты, но и том,
как у тебя написана замена через строки, которая тормозит.


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

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




Hello, A.!
You wrote in conference fido7.ru.visual.basic to "Roman Yuakovlev"

15:09:30 +0000 (UTC):





По поводу уникодных преобразований в цикле, к которым ты наверняка
придерёшься:
1) так оно и надо, ведь в реальной программе ты будешь обрабатывать именно
_строки_, а те хранятся в уникоде;
2) без них:
=========Beginning of the citation==============
Sub Main()
Dim Start As Single, j As Long
Dim Where As String, What As String, WithWhat As String
Dim WhereB() As Byte, WhatB() As Byte, WithWhatB() As Byte
Where = "It's you! How are you gentlemen! All your base are belong to us."
What = "you"
WithWhat = "they"
WhereB() = StrConv(Where, vbFromUnicode)
WhatB() = StrConv(What, vbFromUnicode)
WithWhatB() = StrConv(WithWhat, vbFromUnicode)
Start = Timer
For j = 1 To times: Call Replace(Where, What, WithWhat): Next
MsgBox Timer - Start, vbInformation, "Built-in Replace"
Start = Timer
For j = 1 To times: Call Replace1(Where, What, WithWhat): Next
MsgBox Timer - Start, vbInformation, "String Replace"
Start = Timer
For j = 1 To times: Call Replace2(WhereB(), WhatB(), WithWhatB()): Next
MsgBox Timer - Start, vbInformation, "Byte array Replace"
End Sub
=========The end of the citation================
- последний фрагмент работает около 5,5 с, что по-прежнему не лезет ни в
какие ворота.


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

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


Hi Igor !

12 Мая 2004 года ты писал(а) к All:





Идея хорошая, только вот какой проект создавать... вот в чем вопрос! :-)


bye Igor
*np: 04 - Леший Обиделся [paused]*
* Origin: Everebody In The Place!! (2:5020/1734.88)


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



Можно я встряну?








Роман, ты не прав. Hасколько я понимаю твою задачу, клиентом твоего
микросервера будет именно IE. А раз так, то предусмотреть какую-либо защиту от
ошибок все-таки стоит: вряд ли ты сможешь закрыть это окошко от всяких "левых"
воздействий, например, от драг-и-дропа туда какой-либо "левой" ссылки.

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

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


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









Hет. В них обычно только текст хранится. :)



Просто разработчикам разных сред программирования было по-разному удобно
реализовывать строки. :)

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

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


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







Hу это ты уже придираешься. :)

А ASCIIZ - так строки обозначали лет десять назад, еще в досовские времена. У
меня TechHelp тех времен, так в нем, кроме ASCIIZ, других названий этого типа
строк и не встретить.

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

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