Skip to content

Instantly share code, notes, and snippets.

@ddxb-jp
ddxb-jp / メールファイルから添付を抽出.vbs
Last active Feb 3, 2021
メールファイルから添付を抽出
View メールファイルから添付を抽出.vbs
Option Explicit
Dim FSO : Set FSO = CreateObject("Scripting.FileSystemObject")
Dim WSH : Set WSH = WScript.CreateObject("WScript.Shell")
Dim CDO : Set CDO = CreateObject("CDO.Message")
Dim ADO : Set ADO = CreateObject("ADODB.Stream")
Dim fn,Attachment,BaseDir,RootDir,tmpDir
Dim Extracted_eml : Set Extracted_eml = CreateObject("System.Collections.ArrayList")
Dim Extracted_File : Set Extracted_File = CreateObject("System.Collections.ArrayList")
Dim i
Dim var : Set var = CreateObject("System.Collections.ArrayList")
@ddxb-jp
ddxb-jp / SpVoice.bas
Last active Feb 3, 2021
SAPI.SpVoice の自己紹介
View SpVoice.bas
With CreateObject("SAPI.SpVoice")
.Rate = 1 '速さ Long
.Volume = 50 'ボリューム Long
For i = 0 To .GetVoices.Count - 1
Set .Voice = .GetVoices.Item(i)
.Speak .GetVoices.Item(i).GetDescription
Next
End With
@ddxb-jp
ddxb-jp / Office2010Theme.bas
Last active Feb 3, 2021
ExcelでOffice2010互換のテーマを強制的に適用する(VBA用)
View Office2010Theme.bas
Function Office2010Theme(ByRef WKB As Workbook) As Integer
Dim FSO As Object: Set FSO = CreateObject("Scripting.FileSystemObject")
'Microsoft 365 における Office2010互換Themeへの変更用のマクロ
'EXCEL.EXEのパスからSchemeファイルを探しているので、32bit/64bitも対応済み
'Excelバージョンは2010以降のみTheme適用します。
'Office 2013 2016では動作確認はしていません。
'戻り値
'0 正常適用(ColorScheme と FontScheme が両方正常に適用できた)
'1 ColorScheme が適用できなかった
'2 FontScheme が適用できなかった
@ddxb-jp
ddxb-jp / Excel-UserStyle-rename.vbs
Last active Feb 3, 2021
Excelファイルのユーザースタイルの名前を強制的に番号(xfid)に変更する
View Excel-UserStyle-rename.vbs
Option Explicit
Dim WSH : Set WSH = CreateObject("WScript.Shell")
Dim FSO : Set FSO = CreateObject("Scripting.FileSystemObject")
Dim REX : Set REX = CreateObject("VBScript.RegExp")
With REX
.IgnoreCase = True
.Global = True
.Pattern = "^$"
End With
@ddxb-jp
ddxb-jp / Japanese.ini
Created Feb 16, 2018
FileGovernor の日本語化ファイル
View Japanese.ini
[Author]
Language=Japanese
TranslatedBy=
TranslatorContact=
TranslatorURL=
LastUpdated=16 Feb 2018
[Language]
Form1.btnScanFiles.Caption=ファイルをスキャン
Form1.btnScanFolders.Caption=フォルダをスキャン
@ddxb-jp
ddxb-jp / which.vbs
Created Jan 31, 2018
なんちゃって which コマンド
View which.vbs
Option Explicit
Dim WSH,FSO
Dim s,fn,fp,f
Dim ret,result,ext
Set WSH = WScript.CreateObject("WScript.Shell")
Set FSO = WScript.CreateObject("Scripting.FileSystemObject")
Set result = CreateObject("System.Collections.ArrayList")
If WScript.Arguments.Count = 0 Then
With CreateObject("System.Collections.ArrayList")
.Add "USAGE:"
@ddxb-jp
ddxb-jp / RndNumber.vbs
Created Jan 4, 2018
VBscript で指定桁数の乱数を返す。
View RndNumber.vbs
Function RndNumber(byVal i) '引数には桁数を入力
Dim lngHigh
Dim lngLow
If i > 9 Then
i = 9
ElseIf i < 1 Then
i = 1
Else
i = Int(i)
End If
@ddxb-jp
ddxb-jp / changeScriptengine.vbs
Last active Feb 3, 2021
VBscriptのホストエンジンのトグル切り替え
View changeScriptengine.vbs
Option Explicit
Dim Shell : Set Shell = CreateObject("Shell.Application")
Dim FSO : Set FSO = CreateObject("Scripting.FileSystemObject")
'ShellExcuteで管理者実行
If LCase(FSO.GetFileName(WScript.Fullname)) = "wscript.exe" Then
Shell.ShellExecute "wscript.exe","//NoLogo //h:cscript","","runas"
Else
Shell.ShellExecute "wscript.exe","//NoLogo //h:wscript","","runas"
End If
Set Shell = Nothing
@ddxb-jp
ddxb-jp / eval.bat
Created Dec 20, 2017
バッチファイルで計算結果を求める(vbscript利用)
View eval.bat
@ECHO OFF
IF "%1" EQU "" (
ECHO 引数が不足しています。
ECHO.
ECHO 例1^)eval.bat [計算式] [環境変数名]
ECHO 例2^)eval.bat [計算式]
ECHO.
ECHO 環境変数名を省略した場合は実行結果を標準出力する。
ECHO 四則演算のみ可能です。(括弧使用可、乗算不可)
ECHO 10の15乗を超える数値は指数表記(10E+15等)になります。
@ddxb-jp
ddxb-jp / rename_deploy.bat
Created Dec 13, 2017
実行配下の 拡張子「deploy」を全部リネームして消す
View rename_deploy.bat
@echo off
dir /b /s *.deploy>_deploy_
FOR /F "delims=" %%F IN (_deploy_) DO (
ren "%%F" "%%~nF"
)
IF EXIST _deploy_ DEL _deploy_