bookmark_borderОткрыть 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

bookmark_borderСортировка файлов в папки по датам (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
)))))

Скачать

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

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

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

sudo visudo

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

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

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

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

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

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

bookmark_borderПропадает 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/

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

bookmark_borderДополнение к VB6 — CodeHelp Add-In 2.2

Добавляет вкладки, и чинит скролл в visual basic 6, отчего становится немного удобнее)

Страница дополнения.

Установочный файл (после установки компьютер перезагрузить).

bookmark_bordervb6 использование параметров в sql-запросе

Пример использования связанных переменных в sql-запросе

Dim rs_s As New ADODB.Recordset
Dim cn_s As New ADODB.Connection
Dim cm_s As New ADODB.Command

cm_s.CommandText = "select * from test where id=?"
cm_s.Prepared = True
cm_s.Parameters.Append cm_s.CreateParameter("id", adInteger, adParamInput, 8, Null)
cm_s.ActiveConnection = cn_s

cm_s("id") = n_id
rs_s.Open cm_s
'..
rs_s.Close

bookmark_borderObject library not registered

Так получилось, что я стал связан с программированием на Visual Basic 6 🙂 Буду иногда выкладывать заметки по нему для себя.

Visual Basic 6 (vb6) на Windows7 (32) выдает ошибку при использовании Common Controls.

решение найдено тут: http://clubs.ya.ru/4611686018427472918/45

Для 32-разрядных систем, берём файл отсюда c:\Windows\Microsoft.NET\Framework\v4.0.30319\regtlibv12.exe и копируем его в папку C:\Windows\System32\.

Затем через командную строку вводим:

cd C:\Windows\System32
regtlibv12 C:\Windows\System32\msdatsrc.tlb
regtlibv12 C:\Windows\System32\mscomctl.ocx

И все должно заработать.