Ознакомьтесь с нашей политикой обработки персональных данных
  • ↓
  • ↑
  • ⇑
 
Записи с темой: кодинг (список заголовков)
18:01 

Люблю гугл

Мимикрокодил - ходит и мимимикает ^_^
Пишу: "Chromium без иксов"
Он мне первую ссылку: "Can Chromium run without an XServer? - Google Groups"
С полуслова понимаем друг друга ^__^

@темы: всякое, кодинг

03:21 

Копирайтиг

Мимикрокодил - ходит и мимимикает ^_^
Внезапно зарегалась на бирже статей и занялась копирайтингом. Продала 2 статьи, правда написанию их ужасно мешает доча, кодинг, дьябла и вовка :gigi: Но я все равно очень стараюсь выделить на это немного времени :write2: Уже вывела свой первый бакс :alles: Да, я очень соскучилась по местным смайликам )) И вообще по смайликам, т.к. в коде и в статье же их не натыкаешь, так что буду отрываться тут :D А еще мой малыш-нетбук в сервис-центре, вместе с кучей фоток дочи, почти доделанным ботом на шарпе и тремя сезонами Гриффинов. Так что буду смотреть Гинтаму, писать статьи дальше и играть на аукционах.

@темы: C#, Diablo, Games, WoW, Гинтама, Гриффины, доча, кодинг, копирайтинг

22:46 

Пусть лежит тут.

Мимикрокодил - ходит и мимимикает ^_^
' Ascii Percent encoding
' Проверено:
Public Function URLEncode(ByVal StringToEncode As String, Optional ByVal UsePlusRatherThanHexForSpace As Boolean = False) As String
Dim TempAns As String = ""
Dim CurChr As Integer
CurChr = 1
Do Until CurChr - 1 = Len(StringToEncode)
Select Case Asc(Mid(StringToEncode, CurChr, 1))
Case 48 To 57, 65 To 90, 97 To 122
TempAns = TempAns & Mid(StringToEncode, CurChr, 1)
Case 32
If UsePlusRatherThanHexForSpace = True Then
TempAns = TempAns & "+"
Else
TempAns = TempAns & "%" & Hex(32)
End If
Case Else
TempAns = TempAns & "%" & Hex(Asc(Mid(StringToEncode, CurChr, 1)))
End Select

CurChr = CurChr + 1
Loop

URLEncode = TempAns
End Function

' Не проверено:
Public Function URLDecode(StringToDecode As String) As String

Dim TempAns As String
Dim CurChr As Integer

CurChr = 1

Do Until CurChr - 1 = Len(StringToDecode)
Select Case Mid(StringToDecode, CurChr, 1)
Case "+"
TempAns = TempAns & " "
Case "%"
TempAns = TempAns & Chr(Val("&h" & _
Mid(StringToDecode, CurChr + 1, 2)))
CurChr = CurChr + 2
Case Else
TempAns = TempAns & Mid(StringToDecode, CurChr, 1)
End Select

CurChr = CurChr + 1
Loop

URLDecode = TempAns
End Function

@темы: кодинг, VB.net

Мысли вслух

главная