Обучение в Канадском колледже на IT.

[AlexAA]

То что опять сейчас пойдут истории из 90 и Израиля - это не релевантно вообще. Я пишу про свой личный опыт в Москве в крупной разработке, и я про это прямо указал

Так я и не писал в данном посте про Израиль и 90-ые, а про конкретный опыт нахождения работы в Канаде ровно 1/2 года назад, когда я и искал свою последнюю работу и прошёл с 15-20-30 интервью в различных компаниях в течении 3-ёх месяцев - все на Сениор Джава Программиста. Во всех компаниях, начиная с Гугла и заканчивая индусским sweatshop-ом.

[vlil]

Пробовал. Это никоим образом не превращает его в файл закладок, просто сохраняет в текстовую ХТМЛ страничку. Которую ни Хром ни Мозилла импортировать в закладки не могуть... А надо к каждому имени приклеить гиперссылку с айпи адресом.
Вот пример строчки из екселя:
PEACE RIVER | 10.11.80.42 | TX Main - Nautel VS300
Первая ячейка - опционально, хотя было бы круто сразу и по папкам разложить по имени сайта.

[AlexAA]

Пробовал

Это сработает - точно, такая штука работала в одной из японских компаний где я работал и были ексел файлы с трансляцией.
Там есть библиотеки в С++, которые очень легко читают колонки в екселе, читаешь колонку и записываешь её в html файл на диске в любом формате...
Я бы предположил, что и VB под ексел - может довольно легко это сделать - прочитать колонку, всадить её в эррей, затем другую колонку и тоже в эррей а затем обе в оутпут файл в любом формате...

оказывается - Джава вообще их легко по колонкам считает - вот и потренеруйтесь:
https://www.baeldung.com/java-microsoft-excel

[vlil]

VB навеняка может... только вот кто бы его изучал. Не было нужды никогда.

[akick]

Так я и не писал в данном посте про Израиль и 90-ые, а про конкретный опыт нахождения работы в Канаде ровно 1/2 года назад, когда я и искал свою последнюю работу и прошёл с 15-20-30 интервью в различных компаниях в течении 3-ёх месяцев - все на Сениор Джава Программиста. Во всех компаниях, начиная с Гугла и заканчивая индусским sweatshop-ом.

А я писал свой опыт в Москве. Если внимательно почитать мой пост, там k8s указан для сеньора, а не джуна, если что
У меня на джунском интервью был вопрос по @Transactional, например
Как это работает, как разруливается, чем jdkproxy от cglib отличается, как вызвать транзакцию из транзакции, как будет меняться lifecycle и как обращаться к объекту напрямую, а не к проксированному экземпляру. На джуна!
И так во всех мелочах базовых, какая битовая операция происходит при сравнении хешкодов в процессе добавления нового элемента в hashmap, хранят ли что-нибудь внутри себя стримы и так далее

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

[cls]

питона много либ под математику, и он сам прост к использованию, я бы его посоветовал

а может еще и пару ссылок подкинете с чего начать?

[TomCat]

Пробовал. Это никоим образом не превращает его в файл закладок, просто сохраняет в текстовую ХТМЛ страничку. Которую ни Хром ни Мозилла импортировать в закладки не могуть... А надо к каждому имени приклеить гиперссылку с айпи адресом.
Вот пример строчки из екселя:
PEACE RIVER | 10.11.80.42 | TX Main - Nautel VS300
Первая ячейка - опционально, хотя было бы круто сразу и по папкам разложить по имени сайта.

Не знаю, если вам ещё нужно. Я написал небольшой скриптик на ВБА. Расскладывает всё по папочкам в зависимости от имени.

Просто скопируйте в вашу рабочую книгу и запустите. Скрипт создаст файл в той же папке, что и рабочая книга. Этот файл вы сможете импортировать в Хром (я тестировал на Хроме).

Пару замечаний: (1) Ваши данные должы быть в колонке А начиная с А1 (2) Ваши данные должны быть на первой вкладке.

Sub forVLil()

Dim Source, Target As Worksheet
Dim vArray() As String
Dim val As String
Dim Path As String
Dim Rng As Range
Dim FSO As Object
Dim oFile As Object
Dim groupList() As String
Dim C As Collection

Path = ThisWorkbook.Path & "\New Bookmarks.html"

Set Target = ActiveWorkbook.Sheets.Add(After:=ActiveWorkbook.Worksheets(1))
Set Source = ThisWorkbook.Sheets(1)
lastrow = Source.Range("A65535").End(xlUp).Row

Source.Activate
For nRows = 1 To lastrow:
val = Cells(nRows, 1).Value
vArray = Split(val, "|")
Range("B" & nRows).Value = vArray(0)
Next nRows

Range("A1:B" & lastrow).Sort key1:=Range("B1:B" & lastrow), _
order1:=xlAscending, Header:=xlNo

Target.Activate

Target.Range("A1").Value = "<!DOCTYPE NETSCAPE-Bookmark-file-1>"
Target.Range("A3").Value = "<META HTTP-EQUIV=""Content-Type"" CONTENT=""text/html; charset=UTF-8"">"
Target.Range("A4").Value = "<TITLE>New Bookmarks</TITLE>"
Target.Range("A5").Value = "<H1>Bookmarks</H1>"
Target.Range("A6").Value = "<DL>"


For numRow = lastrow To 1 Step -1:

additional_rows = 6
'Source.Activate

val = Source.Cells(numRow, 1).Value
vArray = Split(val, "|")
Target.Activate
currentRow = numRow + additional_rows

If numRow = 1 Then

If Source.Range("B1").Value <> Source.Range("B2").Value Then

Range("A" & currentRow).EntireRow.Insert
Range("A" & currentRow).Value = "<DT><H3 LAST_MODIFIED=""0"">" & vArray(0) & "</H3>"
Range("A" & currentRow + 1).EntireRow.Insert
Range("A" & currentRow + 1).Value = "<DL>"
Range("A" & currentRow + 2).Value = "<DT><A HREF=" & """http://" & Trim(vArray(1)) & """>" & vArray(2) & "</A>"
Range("A" & currentRow + 3).EntireRow.Insert
Range("A" & currentRow + 3).Value = "</DL>"
Else:
Range("A" & currentRow).EntireRow.Insert
Range("A" & currentRow).Value = "<DT><H3 LAST_MODIFIED=""0"">" & vArray(0) & "</H3>"
Range("A" & currentRow + 1).EntireRow.Insert
Range("A" & currentRow + 1).Value = "<DL>"
Range("A" & currentRow + 2).Value = "<DT><A HREF=" & """http://" & Trim(vArray(1)) & """>" & vArray(2) & "</A>"

End If

ElseIf Source.Range("B" & numRow).Value <> Source.Range("B" & numRow - 1).Value Then

Range("A" & currentRow).EntireRow.Insert
Range("A" & currentRow).Value = "<DT><H3 LAST_MODIFIED=""0"">" & vArray(0) & "</H3>"
Range("A" & currentRow + 1).EntireRow.Insert
Range("A" & currentRow + 1).Value = "<DL>"
Range("A" & currentRow + 2).Value = "<DT><A HREF=" & """http://" & Trim(vArray(1)) & """>" & vArray(2) & "</A>"

ElseIf Source.Range("B" & numRow).Value = Source.Range("B" & numRow - 1).Value Then

Range("A" & currentRow).Value = "<DT><A HREF=" & """http://" & Trim(vArray(1)) & """>" & vArray(2) & "</A>"

If Source.Range("B" & numRow).Value <> Source.Range("B" & numRow + 1).Value And Source.Range("B" & numRow).Value <> "" Then

Range("A" & currentRow).Value = Range("A" & currentRow).Value
Range("A" & currentRow + 1).EntireRow.Insert
Range("A" & currentRow + 1).Value = "</DL>"
End If



Else

Range("A" & currentRow).Value = "<DT><A HREF=" & """http://" & Trim(vArray(1)) & """>" & vArray(2) & "</A></DL>"

End If

Next numRow


maxRow = Target.Range("A65535").End(xlUp).Row
Range("A" & maxRow + 1).Value = "</DL>"


Set FSO = CreateObject("Scripting.FileSystemObject")
Set oFile = FSO.CreateTextFile(Path)

For numRow = 1 To maxRow + 1:

oFile.Write Range("A" & numRow).Value & vbCrLf

Next numRow

oFile.Close

End Sub

[akick]

а может еще и пару ссылок подкинете с чего начать?

Не подскажу, я с питоном к сожалению почти не работал, просто знаю что его широко используют в работе с математикой, тут гугл и те у кого опыт с питоном был подскажут лучше

[vlil]

Я написал небольшой скриптик на ВБА

Спасибо, буду пробовать. Хотя вроде нашел способ стандартными средствами.

[TomCat]

vlil,

Одно маленькое уточнение. Копируйте скрипт в "ThisWorkbook" после того как нажали Alt + F11.

[vlil]

Runtime error '9"
Subscript out of range
Дебаг отправляет сюда:
Range("A" & currentRow).Value = "<DT><A HREF=" & """http://" & Trim(vArray(1)) & """>" & vArray(2) & "</A>"
Может я чего делаю не так конечно... Alt+F11 - Insert - Module - Копипаст - вернулся в книгу - Macros - выбрал - Run
А содержимое экселевкого файла усохло до:
<!DOCTYPE NETSCAPE-Bookmark-file-1>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=UTF-8">
<TITLE>New Bookmarks</TITLE>
<H1>Bookmarks</H1>
<DL>
Однако .html нигде не наблюдаю.
Но сильно не грузитесь, попробую по рабоче-крестьянски. То есть стандартными средствами.

[TomCat]

vlil, Аaa вы так делаете. За что я не люблю ВБА, так это за то что одну программу можно запустить из 3-4 мест. Я немножко подредактировал скрипт.

Ваши действия должны быть следующими:

Alt+F11 - Insert - Module - Копипаст - F5

После этого файлик должен появиться

Попробуйте так:

Sub forVLil()

Dim Source, Target As Worksheet
Dim vArray() As String
Dim val As String
Dim Path As String
Dim Rng As Range
Dim FSO As Object
Dim oFile As Object
Dim groupList() As String
Dim C As Collection

Path = ThisWorkbook.Path & "\New Bookmarks.html"

Set Source = ThisWorkbook.Sheets(1)
Set Target = ThisWorkbook.Sheets.Add(After:=ActiveWorkbook.Worksheets(1))

lastrow = Source.Range("A65535").End(xlUp).Row

Source.Activate
For nRows = 1 To lastrow:
val = Cells(nRows, 1).Value
vArray = Split(val, "|")
Range("B" & nRows).Value = vArray(0)
Next nRows

Range("A1:B" & lastrow).Sort key1:=Range("B1:B" & lastrow), _
order1:=xlAscending, Header:=xlNo

Target.Activate

Target.Range("A1").Value = "<!DOCTYPE NETSCAPE-Bookmark-file-1>"
Target.Range("A3").Value = "<META HTTP-EQUIV=""Content-Type"" CONTENT=""text/html; charset=UTF-8"">"
Target.Range("A4").Value = "<TITLE>New Bookmarks</TITLE>"
Target.Range("A5").Value = "<H1>Bookmarks</H1>"
Target.Range("A6").Value = "<DL>"


For numRow = lastrow To 1 Step -1:

additional_rows = 6
'Source.Activate

val = Source.Cells(numRow, 1).Value
vArray = Split(val, "|")
Target.Activate
currentRow = numRow + additional_rows

If numRow = 1 Then

If Source.Range("B1").Value <> Source.Range("B2").Value Then

Range("A" & currentRow).EntireRow.Insert
Range("A" & currentRow).Value = "<DT><H3 LAST_MODIFIED=""0"">" & vArray(0) & "</H3>"
Range("A" & currentRow + 1).EntireRow.Insert
Range("A" & currentRow + 1).Value = "<DL>"
Range("A" & currentRow + 2).Value = "<DT><A HREF=" & """http://" & Trim(vArray(1)) & """>" & vArray(2) & "</A>"
Range("A" & currentRow + 3).EntireRow.Insert
Range("A" & currentRow + 3).Value = "</DL>"
Else:
Range("A" & currentRow).EntireRow.Insert
Range("A" & currentRow).Value = "<DT><H3 LAST_MODIFIED=""0"">" & vArray(0) & "</H3>"
Range("A" & currentRow + 1).EntireRow.Insert
Range("A" & currentRow + 1).Value = "<DL>"
Range("A" & currentRow + 2).Value = "<DT><A HREF=" & """http://" & Trim(vArray(1)) & """>" & vArray(2) & "</A>"

End If

ElseIf Source.Range("B" & numRow).Value <> Source.Range("B" & numRow - 1).Value Then

Range("A" & currentRow).EntireRow.Insert
Range("A" & currentRow).Value = "<DT><H3 LAST_MODIFIED=""0"">" & vArray(0) & "</H3>"
Range("A" & currentRow + 1).EntireRow.Insert
Range("A" & currentRow + 1).Value = "<DL>"
Range("A" & currentRow + 2).Value = "<DT><A HREF=" & """http://" & Trim(vArray(1)) & """>" & vArray(2) & "</A>"

ElseIf Source.Range("B" & numRow).Value = Source.Range("B" & numRow - 1).Value Then

Range("A" & currentRow).Value = "<DT><A HREF=" & """http://" & Trim(vArray(1)) & """>" & vArray(2) & "</A>"

If Source.Range("B" & numRow).Value <> Source.Range("B" & numRow + 1).Value And Source.Range("B" & numRow).Value <> "" Then

Range("A" & currentRow).Value = Range("A" & currentRow).Value
Range("A" & currentRow + 1).EntireRow.Insert
Range("A" & currentRow + 1).Value = "</DL>"
End If



Else

Range("A" & currentRow).Value = "<DT><A HREF=" & """http://" & Trim(vArray(1)) & """>" & vArray(2) & "</A></DL>"

End If

Next numRow


maxRow = Target.Range("A65535").End(xlUp).Row
Range("A" & maxRow + 1).Value = "</DL>"


Set FSO = CreateObject("Scripting.FileSystemObject")
Set oFile = FSO.CreateTextFile(Path)

For numRow = 1 To maxRow + 1:

oFile.Write Range("A" & numRow).Value & vbCrLf

Next numRow

oFile.Close

End Sub

[rabbit]

Вот к вопросу о том, что должен уметь джун для разных организаций: в России в прошлой компании этого уже было бы достаточно для того, чтобы взять томкэта на джуна, и похрен, на чем он там умеет писать. Чел взял и адаптировал свои знания под решения практической задачи, и наплевать, как, на чем, насколько качественно.

Другой вопрос, что в реальной жизни хрен бы мы когда-то где-то увидели это, когда искали человека

[TomCat]

Wohoo! Ещё бы теперь это заработало у vlil. Мне просто стало интересно

В этом для меня и есть крутость програмирования - решать прикладные задачи, которые реально помогают людям.

[rabbit]

Это тогда в маленькие конторки)