Открыть csv файл и сохранить в xlsx с помощью vb6

Convert CSV into xlsx via VB6

Public Function ConvertToXlsx(filename As String, to_filename As String)
    Dim objExcel As Object
    Dim objWorkBook As Object
    
    'Instantiate Excel
    Set objExcel = CreateObject("Excel.Application")
    'open the CSV file
    Set objWorkBook = objExcel.Workbooks.Open(filename, , True, 4, , , , , , , , , , True) '= objExcel.Workbooks.Open(filename, , True, 4)
    'Save the file as excel workbook
    objWorkBook.SaveAs to_filename, 51
    
    'close workbook
    objWorkBook.Close False
    'quit excel
    objExcel.Quit
    
    'clean up
    Set objWorkBook = Nothing
    Set objExcel = Nothing
End Function
Рубрика Программы, скрипты | Метки | Комментариев нет

Ubuntu отключается мышь при работе от батареи

При установленном Samsung tools мышь при не использовании отключается секунд через 5 без активности и обратно у меня не включается, пока ноут к сети не подключишь.
Решение найдено тут.

sudo gedit /etc/pm/power.d/samsung-tools_usb-autosuspend

у меня файла такого не было совсем там. Я записал в него:

false

и все заработало как хотелось 😉 и без перезагрузки даже.

Рубрика Обо всем | Комментариев нет

Сортировка файлов в папки по датам (CMD)

Простенький BAT-скрипт который все найденные в папке файлы раскладывает по папкам-датам. Директории в которых производится поиск берутся из файла paths.txt(на каждой строчке по пути).

@echo off
setlocal enabledelayedexpansion

@for /f "tokens=*" %%b in (%cd%\paths.txt) do (
rem echo b=%%b
cls
echo ‘®авЁа㥬 д ©«л ў Ї ЇЄЁ Ї® ¤ в ¬ ў ¤ЁаҐЄв®аЁЁ "%%b"
pushd %%b
for /f "tokens=*" %%a in ('dir /O D /b /a:-d "%%b"') do (
set dat=%%~ta
if /i "!dat!" neq "" (
if /i "%%~xa" neq ".bat" (
if /i "%%a" neq "paths.txt" (
set dat1=!dat:~6,4!!dat:~3,2!!dat:~0,2!
cls
echo ‘®авЁа㥬 д ©«л ў Ї ЇЄЁ Ї® ¤ в ¬ ў ¤ЁаҐЄв®аЁЁ "%%b"
echo "%%a" -^> "%%b\!dat1!\"
md "%%b\!dat1!" 2>nul& move /y "%%a" "%%b\!dat1!\" >nul
)))))

Скачать

Рубрика Программы, скрипты | Комментариев нет

Ростелеком как всегда

Постоянно с ним одни проблемы. Сегодня вот в счете обнаружил вот такую строчку:

ОАО «РОСТЕЛЕКОМ» /упущенная выгода/

О её введении естественно никто не предупредил. Просто берут деньги и все.

Сначала укладывался в 200 руб. потом только в 250. Теперь вот только в 300 еле-еле укладываюсь. При этом телефоном никто практически не пользуется. Ростелеком, он такой.

а ещё у них замечательная строчка есть в счете:

О несогласии с расчетами просьба сообщить в течение 10 календарных дней с даты выставления счета, иначе задолженность считается подтвержденной.

А отключится не получается потому, что нужен именно владелец линии, а я работаю ровно потому же графику, что и они 🙂

Правда смотрю обеда у них нету. Попробую в обед успеть отключится…

обновлено

Прождал в очереди полчаса + почти столько же у них в кабинете просидел. Интернет отключил, но на обед времени уже не осталось…

Узнал что можно и не ездить отключаться. Через полгода они сами в одностороннем порядке расторгнут договор 🙂 Так и сделаю, когда телефон станет совсем не нужен.

Рубрика Провайдер | Комментариев нет

mount, umount от имени root без пароля (Ubuntu)

У меня на ноуте имеются сетевые диски, смонтированные через fstab. Когда эти диски не доступны — файловый менеджер виснет, причем конкретно и надолго. Лечится отмонтированием недоступных дисков. Но лазить за этим в консоль надоело. Сделал через значок запуска.

Для этого разрешил запускать пользователю команды umount и mount без пароля. Сделал так:

sudo visudo

Откроется для редактирования файл /etc/sudoers

В нем в самый низ добавил строку:

user ALL=(ALL) NOPASSWD: /bin/mount,/bin/umount

где user — имя пользователя, которому разрешаем запуск.

Перезагружать не надо. Все и так сразу заработает.

Теперь бы сделать чтоб диски сами отмонтировались когда не доступны) Но пока пусть так будет.

Рубрика Программы, скрипты | Комментариев нет

Пропадает wifi после спящего/ждущего режима в Ubuntu

На Xubuntu 13.04 столкнулся с проблемой: wifi не включается после ждущего режима (да и вообще сеть в целом — «Управление сетью отключено»). Помогала команда:

sudo service network-manager restart

Так же появилась проблема что wifi не находил мою сеть с роутера. Помогало отключение-включение wifi, либо команда приведенная выше.

Каждый раз после ждущего и включения нетбука проводить такую операцию удовольствия не доставляло. Решение нашел здесь:

Для автоматизации этих рутинных операций нужно в текстовом редакторе создать файл 99fixwifi.sh, сделать его исполняемым chmod +x 99fixwifi.sh, поместить в него текст скрипта (приводиться ниже) и сохранить в /etc/pm/sleep.d.

Только скрипт поместил другой:

#!/bin/sh

service network-manager restart

Так же чтоб перезагружался network-manager при запуске компьютера, этот же файл скопировал в /etc/pm/power.d/

Теперь все работает.

Рубрика Программы, скрипты | Комментариев нет

Иркнет «Телеантенна» в тарифе «Первый»

Обычно платил 695 руб/месяц. В этом месяце накинули 50 руб за «Абонентская плата по следующему тарифу КТВ «Телеантенна» »

irknet50Оказалось это ошибка. И ничего доплачивать не надо, кабельное телевидение уже входит в тариф «Первый. Просто у них программисты вводят в личный кабинет информацию по кабельному тв, и немного где-то накосячили)

Рубрика Провайдер | Комментариев нет