11
Временный пост блог-клиента @Diary.Client. Если через несколько минут тот пост не изменится, его можно удалить.
Временный пост блог-клиента @Diary.Client. Если через несколько минут тот пост не изменится, его можно удалить.
пятница, 03 апреля 2009
Тотальная неудачница и убийца жёстких дисков.
J - Линда Кайе
L - Линда Кайе
А сей дневник разве не платный уже?
L - Линда Кайе
А сей дневник разве не платный уже?
Private Function ParseJs(ByVal TXT As BStr) As BStr
Dim RE As New RegExp
Dim MC As MatchCollection
Dim TMP As Long
Dim NewTXT As BStr
Dim Ptr As Long
' Вопрос в конце ограничивает поиск наименьшим значением. Тоесть
' если в одной строке будут два соввпадения, выберутся оба, а не
' один их включающий. L.P.M., я тебя не забуду ^_^
RE.Pattern = "\[J\](.*?)\[/J\]"
RE.MultiLine = False
RE.Global = True
RE.IgnoreCase = True
' $1 - это ссылка на первый submatch ^^
Const RPL = "" & _
"" & _
"$1"
ParseJs = RE.Replace(TXT, RPL)
End Function
воскресенье, 29 марта 2009
all you have to decide is what to do with the time that is given to you
'
all you have to decide is what to do with the time that is given to you
all you have to decide is what to do with the time that is given to you
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dt...">
That Sounds Clever. - Bob Dylan - The Times They Are A-Changin’
I don’t...
"www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dt...">
That Sounds Clever. - Bob Dylan - The Times They Are A-Changin’
I don’t...
среда, 25 марта 2009
ghtreghrety etry
rety
retye
rty
rety
retye
rty