Лингрин :: Резиденция Линды Кайе

вторник, 03 июля 2007

04:53

Тотальная неудачница и убийца жёстких дисков.

Цитата #374008

На военных сборах учили отдавать честь:

Выходит чел из строя и говорит:

-Старший сержант Артамонов по вашему приказу прибыл!

Сержант: епт%мать! Сержант тут я а ты бля новобранец!

И тут чел сказал: Так точно сэр!

Сержант охуел и спросил нас как нада выражать согласие.

Голос из строя: Йа воль, мой фюрер!

Мы плакали и отжимались

Neumann(с)

Цитата #373865

Liqid: Слесарюга рассказал: Курил травку с двумя мало известными ему мужиками у них на хате. Курнули и один говорит, здоровенная такая детина накаченная, "Ну че? Мож подеремся?" Слесарь в ахуе но виду не подает, думает:

Мошь ебнутые какие внатуре драться начнут, а мошь на тухлого проверяют(типа разводка сышь не сышь).

Ну и слесарь говорит, стуча кулаком об ладонь:" Ну давайте, токо где? На кухне тесно, в большой комнате мошь? Или на улице за домом можно, что б беспалева." А эти двое смотрят на него, глаза выпучив, как на психа и объясняют: В мортал комбат по сеге.......

@темы: Башорг

URL

03:37

Тотальная неудачница и убийца жёстких дисков.

Кстати, новая угроза в Магенте ^_^

Стучится ко мне какой-то Вася и хочет интересных фотографий. Я уже думаю, что ща как обломаю, заявляю о том, что я юристка... Но тут события начинают разворачиваться по непредвиденному сценарию. Мне сообщают, что под именем Вася сидит вовсе не Вася, а, скорее, Василиса ^^' При первом же сомнении на меня начинают сыпаться фотки, которые чуть не хоронят меня заживо. А когда я наконец признаюсь, что на работе, и фоток в принципе не раздаю, на меня обижаются. Обзывают и отключаются...

Что это было? O_o

URL

01:52

Тотальная неудачница и убийца жёстких дисков.

Ответ в вопросах по ВИЧ:

"Нет никакого риска в подобной ситуации не было. ВИЧ не живет в салатах."

http://www.aids.ru/faq/

URL

01:46

Тотальная неудачница и убийца жёстких дисков.

Ноу-хау от спамера, однако. Уже второе письмо с PDF'кой приходит...

URL

01:42

Тотальная неудачница и убийца жёстких дисков.

#post-id: 2533-01-04

#original-date: 3.07.2007 Tue

#original-time: 1:04 AM

#original-day: 2533

Кстати, наконец поняла почему пример парсера-трансформатара XML с помощью XSL не работал. Теперь я могу валидировать даже такие документы ^_^ Нужно только прогнать парсером и получить готовый документ ^_^

Кстати, вы в курсе, что в XML Народ рекламу не вставляет? Правда загрузка XML идёт страшнее, и пока грузится XSL можно запаниковать от того что броузер "не хочет идти по ссылке"...

А вот код. Использую библиотеку MSXML4.

Option Explicit



'====================================================================

Public Sub Main()

  Dim Source As MSXML2.DOMDocument40

  Set Source = New MSXML2.DOMDocument40

  

  ' Загружаем данные.

  Source.async = False

  ' Вот эта бяка позволяет загрузить документ с неправильной DTD.

  ' Для ручной валидации есть метод validate().

  ' IE, надо полагать, так и грузит...

  Source.validateOnParse = False

  Source.Load "X:\links\links_my.xml"

  

  If (Source.parseError.errorCode <> 0) Then

    MsgBox "Loading source XML. You have error: " & _

           CRLF & Source.parseError.reason, vbCritical

  Else

    Dim StyleSheet As MSXML2.DOMDocument40

    Set StyleSheet = New MSXML2.DOMDocument40

    

    ' Load style sheet.

    StyleSheet.async = False

    StyleSheet.validateOnParse = False

    StyleSheet.Load "X:\links\links.xsl"

    

    If (StyleSheet.parseError.errorCode <> 0) Then

      MsgBox "Loading stylesheet XML. You have error: " & _

             CRLF & Source.parseError.reason, vbCritical

    Else

      ' Не работает, так что закомментирую...

      '' Set up the resulting document.

      'result.async = False

      'result.validateOnParse = False

      

      '' Parse results into a result DOM Document.

      'Source.transformNodeToObject stylesheet, result

      'MsgBox result.xml

      

      Dim TXT As BStr

      

      ' Трансформация напрямую.

      TXT = Source.transformNode(StyleSheet)

      MsgBox "Transformation done. Result document: " & _

             CRLFCRLF & TXT, vbInformation

    End If

    

    Set StyleSheet = Nothing

  End If

  

  Set Source = Nothing

End Sub

#music: Najica Blitz Tactics OST\Funky Stoppin'

@темы: Программизм

URL