Мисс Рарити и её восхитительная Шляпа
Не приглашайте в дом чужих
На волне постов не пейте с незнакомыми.
Жила-была в нашем небольшом поселке при большом городе женщина. С детьми, но без мужа. Долго ли, коротко ли, познакомилась она по переписке с невинноосужденным, отбывающим то ли третий, то ли пятый срок. Откинулся милый друг, приехал к ней, стал пить-гулять, ну и она вместе с ним по пивным да рюмочным таскалась, пить не пила, так, за компанию. В одной из рюмочных познакомились они с дедулей лет 70-ти, и пригласил он их в гости, продолжить банкет. Банкет продолжался трое суток, спиртное приобреталось на деньги дедули. Дед хранил наличность под матрасом, несколько раз при гостях нырял в заветный тайник за очередной порцией денежных билетов. В конце концов дедуля впал в спячку, а когда проснулся- ни гостей, ни наличных денежных средств (около 70 тыр) дома уже не было. Дедуля обратился в полицию. Личность невинноосужденного гостя и его ....женщины установили. На допросе женщина заявила, что деньги взяла она, рассказала, откуда взяла, на что потратили (на спиртное). При этом у нее трое детей, ранее судима не была, не алкашка, нормальная такая тетка. Невинноосужденный показал, что видел, как та тетка деньги брала, но был слишком пьян, чтобы ее остановить. Сидеть бы тётке, но вышла амнистия, избежали наказания оба. Не приглашайте домой чужих, ну их нафиг всех!!!
Неделя 4. Четыре стены и один табурет
Всем приветики. Наступило время очередного поста. И пусть никому нет до этого дела, я все равно постану свой кусочек бесполезной информации. А что бесполезного сегодня сделал ты?! Шучу, шучу.
Итак. На этой неделе я наконец услышала, что говорят лисицы, несмотря на то, что песню "What does the fox say?" слышала несколько лет назад. https://www.youtube.com/watch?v=fQVhppRP4Wo - это довольно милое видео с очень радостной девушкой. Впрочем, я бы тоже с была весела, предложи мне кто-нибудь потискать ручную лисичку.
На той неделе частенько шёл град, который напомнил мне о том, как я как-то в детстве прошлась под болконами пятиэтажки, потому что так короче. До этого момента я упорно думала, что снег лёгкий, и страшны только сосульки. Увы, но тот сугроб с крыши оглушил меня на добрые полминуты. С тех пор я избегаю походов под балконами и верю в массу и ускорение.
К сожалению, большую часть недели я разбиралась, как написать "Змейку" на С++, поэтому творчество прошлой недели - это бегающий по консоли нолик, который я не имею желания кому-либо показывать.
Именно поэтому это понедельничный пост, а не воскресный. Ну и еще потому, что я хотела дорисовать траву на рисунке, который Вы видите ниже. ТРАВА.
Этот таинственный зверь привлек моё внимание рыжим цветом. Я люблю рыженьких. И цветных в целом. Когда-нибудь, я, может, и нарисую просто кошку или просто собаку, но пока что не выходит. И выхухоль я бы тоже нарисовала, будь у нее хотя бы цветной ирокез. Или хоть что-нибудь цветное.
Вот так вот. 4 недели - 4 рисунка, и это уже неплохо, потому что до этого момента я брала в руки планшет раз в полгода. Это первые шаги к чему-то великому! Уж лучше валять дурака, залипая в Фотошоп, чем в негативные комменты на просторах интернетов.
Надеюсь, Ваша неделя тоже прошла успешно, мой дорогой читатель. Но я в любом случае надеюсь, что эта будет лучше.
Отличник или двоечник? Узнайте свой уровень подготовки к Евро-2024
Для всех поклонников футбола Hisense подготовил крутой конкурс в соцсетях. Попытайте удачу, чтобы получить классный мерч и технику от глобального партнера чемпионата.
А если не любите полагаться на случай и сразу отправляетесь за техникой Hisense, не прячьте далеко чек. Загрузите на сайт и получите подписку на Wink на 3 месяца в подарок.
Реклама ООО «Горенье БТ», ИНН: 7704722037
Макрос получения курсов доллара за период с сайта Банка России
Excel (Эксель) прекрасен, а мир огромен. И готов предложить для анализа много разной информации из сети под названием Интернет. Часто видел, как аналитики мужеского и женского рода просто перебивают ручками данные со страниц разных сайтов для своей работы.
Иногда целесообразнее написать небольшой макрос, который будет получать данные из интернета автоматически. Для этого уже давно придуман Microsoft XML parser (MSXML).
Для примера, я и покажу, как с его помощью, получить курсы доллара за период с сайта ЦБ.
1) Организуйте столбец с датами на одной из «Sheets» экселя. У меня это столбец «A»
2) Подключите ссылку на Microsoft XML
3) Собственно пишем процедуру
Sub GetUSDRates4Period()
Объявляем переменные и открываем окно в мир интернета:
Dim strCCY As String, strRateCCY As String, strRateSource As String
Dim xmlDoc As MSXML2.DOMDocument
Set xmlDoc = New MSXML2.DOMDocument
xmlDoc.async = False
MSXML2 – это и есть упомянутый выше Microsoft XML parser, который нужно направить на сайт Банка России
strRateSource = "http://www.cbr.ru/scripts/XML_daily.asp?date_req="
Запрос будет неполным без указания даты, которую для каждой строчки мы возьмем из столбца, который предварительно датами заполнили.
Dim i As Long
i = 1
Dim strDate As String
Do While Not Range("a" & i) = ""
strDate = Format(Range("a" & i), "dd\/mm\/yyyy")
Всякое бывает с сайтами или вашим интернетом, поэтому нужно проверить результаты попытка загрузки xml файла.
If xmlDoc.Load(strRateSource & strDate) <> True Then
MsgBox "Сайт ЦБ сейчас не в духе, попробуйте обратиться к нему позже..."
Exit Sub
End If
Если же загрузка прошла успешно, то начинается магия xPath. Сначала получим дату, к которой на самом деле привязан курс доллара. Она не всегда совпадает с той датой, на которую вы курс запросили. И поместим дату ЦБ в столбец «B»
Range("b" & i) = xmlDoc.selectNodes("//ValCurs")(0).Attributes(0).Text
"//ValCurs" – это и есть выражение XPath, которое может быть очень интересным и витиеватым, и которое позволяет добраться практически до любой точки xml файла. В вышеприведенном примере я взял дату валютирования из тега ValCurs.
А ниже выражение посложнее. С его помощью я нахожу валюту «доллар» среди множества других (у этой валюты ID=R01235) и прошу показать мне только курс этой валюты (там есть и другая информация: буквенный и цифровой коды валюты в соответствии с ISO 4217 и/или ОКВ, номинал, описание, - но нам нужен только курс).
strRateCCY = xmlDoc.selectNodes("//Valute[@ID='R01235']/Value")(0).Text
Далее я привожу текст с курсом к числу с учетом настроек символа разделителя разрядов.
Range("c" & i).Value = CdblLocaleIndependent(strRateCCY)
Функцию CdblLocaleIndependent в этом посте показывать не буду, пока желающих на нее посмотреть не будет достаточно.
Закругляемся с циклом и заканчиваем работу:
i = i + 1
Loop
MsgBox "Курсы сняты с сайта Банка России."
End Sub