Конференция VBStreets

**DDK** » 13.11.2004 (Сб) 14:47

Какой процедурой мона стринг-переменную преобразовывать, содержащую русские символы в формат типа "%D8%EE%EA%EE%EB%E0%E4%ED%E0%FF" ???

**tyomitch** » 13.11.2004 (Сб) 15:57

Код: Выделить всё: Function Encode(ByVal s As String) As String While Len(s) Encode = Encode & "%" & Right("00" & Hex(Asc(s)), 2) s = Mid(s, 2) Wend End Function

**GSerg** » 13.11.2004 (Сб) 17:07

Во-первых, 0 может быть и один

Во-вторых, почему не string-версии функций?

В-третьих, в данном конкретном случае сработает функция Format$ вместо right$

**tyomitch** » 13.11.2004 (Сб) 17:14

GSerg писал(а):Во-первых, 0 может быть и один

Ага, сэкономил два байта оперативки ;-)

GSerg писал(а):Во-вторых, почему не string-версии функций?

А от лени

Согласен, что с ними будет быстрее.

GSerg писал(а):В-третьих, в данном конкретном случае сработает функция Format$ вместо right$

Дык это я ещё по старой QBasic-ной памяти Right юзаю...
Да и быстрее это, поди?

**GSerg** » 13.11.2004 (Сб) 17:20

В принципе да

Но один mid на каждом шаге чего стоит - это ж redim каждый раз

Мож лучше-таки asc(mid$)?
Или - о! - перед началом всего этого strconv в byte(), после чего элементарно без всяких mid и asc?

**DDK** » 13.11.2004 (Сб) 18:04

Э... а вы про меня то забыли

). Так чё мне лучше использовать то ?

**tyomitch** » 13.11.2004 (Сб) 21:46

GSerg писал(а):Но один mid на каждом шаге чего стоит - это ж redim каждый раз Мож лучше-таки asc(mid$)?

А смысл? Всё равно, на каждом шаге создаётся новая строка.

GSerg писал(а):Или - о! - перед началом всего этого strconv в byte(), после чего элементарно без всяких mid и asc?

Ага... Но я старался показать наиболее понятный новичку способ ;-)

Я не сомневаюсь, что Крутые Парни для такого дела ассемблерную вставку заюзают :-D

**DDK** » 13.11.2004 (Сб) 22:23

Спасибо, спасибо всем !

Мне и этого хватит

Преобразовать кирилицу в "%D8%EE..." (+)