Лингрин :: Резиденция Линды Кайе — @дневники: асоциальная сеть

четверг, 21 декабря 2017

23:47

Программы

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

#post-id: 6350-11-46
#original-date: 14.12.2017 Thu
#original-time: 11:46 AM
#original-day: 6350
#original-host: Win7 Prof SP1 (Build 7601)

Заметила в разделе загрузок на сайте PuTTYTray.

As Europe is descending into chaos and/or a police-state, I am obliged to ask you please, please not to download, or use, this software if you are a terrorist.

https://puttytray.goeswhere.com

URL

23:47

Программы / Microsoft

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

#post-id: 6350-00-19
#original-date: 14.12.2017 Thu
#original-time: 12:19 AM
#original-day: 6350
#original-host: WinXP Home SP3 (Build 2600)

В кои-то веки MS сделала нечто реально полезное, не перегруженное ненужным функционалом и просто работающее (в броузере – почти). TODO list, где просто список дел, которые можно пометить галочками и скрыть. И ВСЁ!

https://todo.microsoft.com

Есть кое-что сверху вроде крайних сроков, заметок к задачам и тому подобного, но оно не мешается. Есть программы на ондройд и WP! Хочет майкрософтовский паспорт.

URL

23:47

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

#post-id: 6349-09-16
#original-date: 13.12.2017 Wed
#original-time: 9:16 AM
#original-day: 6349
#original-host: Win7 Prof SP1 (Build 7601)

По пути на работу сломался автобус. Ладно хоть не взорвался =_=

URL

23:47

Япония / машинки / йумор

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

#post-id: 6349-20-10
#original-date: 13.12.2017 Wed
#original-time: 8:10 PM
#original-day: 6349
#original-host: WinXP Home SP3 (Build 2600)

Перевод страны на индустриальный вектор развития привел к промышленному росту и появлению в стране новых технологий. В 1872 году под управлением европейских инженеров была открыта первая железная дорога, соединившая Токио с Иокогамой. Паровозы доставили из Европы, а здание вокзала было спроектировано в США. Первым пассажиром стал сам император. Тогда же для передвижения по улицам, на основе английского образца, было принято левостороннее движение.

https://ru.wikipedia.org/wiki/Реставрация_Мэйдзи

1872 год – год зарождения российского рулесрача.

URL

среда, 13 декабря 2017

01:21

Программизм / VB

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

#post-id: 6348-16-45
#original-date: 12.12.2017 Tue
#original-time: 4:45 PM
#original-day: 6348
#original-host: Win7 Prof SP1 (Build 7601)

Век живи, век учись.

Есть некая функция, которая принимает массив параметров (энное количество необязательных). Делается это так:

Private Sub Byaka(ParamArray Items() As Variant)

Вызывается это так:

Byaka 1, 2, 3

Или так:

Byaka

В самой функции эти параметры – массив вариантов, который обрабатывается как обычный массив. А если не будет передано никаких параметров, то будет пустой массив – Items(0 To -1).

И вот тут возник вопрос, как ручками создать такой пустой массив. Ну тоесть у меня задача сконвертировать массив вариантов в массив стрингов. Когда прилетает пустой массив, этот код:

ReDim Arr(0 To -1)

...выдаёт ошибку «Subscript out of range». Нельзя так делать, верхняя граница должна быть больше или равна нижней, но не меньше.

Если же мы просто объявляем массив:

Dim Arr() As String

...и оставляем как есть, то это будет не пустой массив, а неинициализированный. Тоесть у него вообще не будет границ, а UBound() и LBound() выдадут ошибку.

Что делать?

Покопавшись в памяти, я вспомнила, что для массивов байтов использовала костыль такого вида:

Dim A() As Byte
A = ""

Массив байтов может содержать строку, и простое присвоение заполняет массив данными в UTF-16. Ну а поскольку строка пуста, то и массив получается такой же.

Но тут у нас массив строк, так что этот код бесполезен. А что возвращает массив строк? Split()! Она ищет разделители в строке и возвращает массив элементов, которые находятся между этими элементами. Если в строке на найдётся ни одного разделителя, то вернётся массив из одного элемента – исходной строки. А если строка пустая?

Оказалось, что в этом случае возвращается пустой массив. Поэтому делать нужно так:

Dim A() As String
A = Split("", "Huh")

---------- ~ ----------

Пока писала этот обзор, нашла кучу ошибок в своём руби модуле vb.rb, в функции split2() =_= Будем исправлять =_=

URL