Sub SplitFile
Dim Doc As Object
Dim Sheet As Object
Dim RowCount As Long
Dim FileNum As Integer
Dim FileName As String
Dim i As Long
Dim j As Long
Dim ChunkSize As Long
' Укажите путь к вашему файлу
Doc = ThisComponent
Sheet = Doc.Sheets(0)
RowCount = Sheet.Rows.Count
ChunkSize = 1000 ' Размер куска
' Цикл для разделения на куски
For i = 0 To RowCount Step ChunkSize
FileNum = FreeFile()
' Укажите путь и имя файла для сохранения
FileName = "Новый файл " & Int(i / ChunkSize) + 1 & ".ods"
Open FileName For Output As #FileNum
' Копирование данных в новый файл
For j = i To i + ChunkSize - 1
If j > RowCount Then Exit For
For k = 0 To Sheet.Columns.Count - 1
Print #FileNum, Sheet.getCellByPosition(k, j).String
Next k
Print #FileNum, ""
Next j
Close #FileNum
Next i
End Subconfigure . -background black#!/usr/bin/env tclsh
package require Tcl
package require Tk
set version 1.3
set FORWARDS {
10170 10220
}
wm title . "Text v$version"
wm resizable . 0 0
wm withdraw .
wm geometry . "700x350"
# Установка черного фона
configure . -background black
wm deiconify .!/vendor/.../.../"открытая папка"
/vendor/*#!/bin/bash
start= 593 #номер поста с которого начинаем брутфорсить
end=22593 #номер поста на котором заканчиваем
for (( i=start; i<=end; i++ ))
do
uri=https://somename.livejournal.com/$i.html
#скачиваем только со статусом 200
wget --server-response $uri -O $i.html 2>&1| grep -c 'HTTP/1.1 200 OK'
doneУстал жить в стране, в которой родился, хочу уехать. Я гуманитарий. какое направление в сфере IT быстро освоить
Имеется опыт работы с Ansible, nginx, разверткой различных инструментов
git init
git add -A
git commit -m "init"
git remote add origin git@github.com:UserName/project.git // заменить на свой
git push -u origin master // master или на нужную ветку<?php echo '<p>Привет, мир!</p>'; ?>
lua_shared_dict, это hashmap которая работает атомарно независимо от количества воркеров в nginx. location /163e065a629a40fbb1e4d6aafc29bdce/ping {
let current_date = $date_gmt
cache:set('date', current_date, 3600)
return 200 current_date;
}
location /163e065a629a40fbb1e4d6aafc29bdce/check {
add_header Content-Type text/plain;
local last_ping = cache:get('date')
return 200 last_ping;
}