This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
# Snes9X、ひらがな、挿入モードにしてツクール2運用想定。 | |
# 自分用のスクリプトなので凝った改良予定はなし。 | |
import pyautogui | |
import pygetwindow as gw | |
import time | |
KEY_A = 'x' | |
KEY_X = 's' | |
KEY_R = 'd' |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
import pyautogui | |
import pygetwindow as gw | |
import time | |
# --- | |
# タイプ利用に必要なキーをここでマッピングしておく | |
KEY_X = 's' | |
KEY_A = 'x' | |
KEY_R = 'd' | |
KEY_UP = 'up' |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
# scoop install image-magickでインストールしていることが前提 | |
# shift + 右クリックでターミナルを開く | |
Get-ChildItem *.HEIC | % { magick convert $_.Name ($_.Name.split('.')[0] + ".jpg") } |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
SELECT | |
T1.FIELD_01, | |
T1.FIELD_02 || T2.FIELD_05, | |
T1.FIELD_04 | |
FROM | |
TBL1 T1 | |
JOIN | |
TBL2 T2 | |
ON | |
T1.FIELD_01 = T2.FIELD_01 |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Option Explicit | |
' 指定した文字を置換する | |
Sub ReplaceWord(book As Workbook, searchWord As String, replacedWord As String) As Boolean | |
Dim s As Worksheet | |
For Each s In book.Sheets | |
s.UsedRange.Replace what:=searchWord, replacement:=replaceWord | |
Next | |
End Sub | |
Sub callReplaceWord() |