Skip to content

Instantly share code, notes, and snippets.

View kinuasa's full-sized avatar

@kinuasa kinuasa

6 followers · 0 following
View GitHub Profile
@kinuasa
kinuasa / AutomateMSPaintUsingWinAppDriver.robin
Last active April 9, 2024 07:12
SET WindowsApplicationDriverPath TO $'''\"C:\\Program Files (x86)\\Windows Application Driver\\WinAppDriver.exe\"'''
SET AppId TO $'''mspaint.exe'''
SET WindowsApplicationDriverUrl TO $'''http://127.0.0.1:4723'''
SET ImageFilePath TO $'''\"C:\\Test\\Image\\TEST.png\"'''
System.RunApplication.RunApplication ApplicationPath: $'''cmd''' CommandLineArguments: $'''/k %WindowsApplicationDriverPath%''' WorkingDirectory: $'''C:\\''' WindowStyle: System.ProcessWindowStyle.Normal ProcessId=> AppProcessId
Web.InvokeWebService.InvokeWebService Url: $'''%WindowsApplicationDriverUrl%/session''' Method: Web.Method.Post Accept: $'''application/json''' ContentType: $'''application/json''' RequestBody: $'''{\"desiredCapabilities\":{\"app\":\"%AppId%\",\"deviceName\":\"WindowsPC\",\"platformName\":\"Windows\"}}''' ConnectionTimeout: 30 FollowRedirection: True ClearCookies: False FailOnErrorStatus: False EncodeRequestBody: False UserAgent: $'''Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.1.21) Gecko/20100312 Firefox/3.
@kinuasa
kinuasa / WinAppDriverで電卓アプリを操作するPower Automate for desktopフロー.robin
Last active April 9, 2024 06:50
SET WindowsApplicationDriverPath TO $'''\"C:\\Program Files (x86)\\Windows Application Driver\\WinAppDriver.exe\"'''
SET AppId TO $'''Microsoft.WindowsCalculator_8wekyb3d8bbwe!App'''
SET WindowsApplicationDriverUrl TO $'''http://127.0.0.1:4723'''
System.RunApplication.RunApplication ApplicationPath: $'''cmd''' CommandLineArguments: $'''/k %WindowsApplicationDriverPath%''' WorkingDirectory: $'''C:\\''' WindowStyle: System.ProcessWindowStyle.Normal ProcessId=> AppProcessId
Web.InvokeWebService.InvokeWebService Url: $'''%WindowsApplicationDriverUrl%/session''' Method: Web.Method.Post Accept: $'''application/json''' ContentType: $'''application/json''' RequestBody: $'''{\"desiredCapabilities\":{\"app\":\"%AppId%\",\"deviceName\":\"WindowsPC\",\"platformName\":\"Windows\"}}''' ConnectionTimeout: 30 FollowRedirection: True ClearCookies: False FailOnErrorStatus: False EncodeRequestBody: False UserAgent: $'''Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.1.21) Gecko/20100312 Firefox/3.6''' Encoding: Web.Encod
@kinuasa
kinuasa / 指定した日時から直近の平日を求めるPower Automate for desktopフロー.robin
Created February 29, 2024 06:56
指定した日時から直近の平日を求めるPower Automate for desktopフロー(動作確認：バージョン 2.41 ) 関連Webサイト：https://powerusers.microsoft.com/t5/Power-Automate-Desktop/Determining-the-date-of-the-most-recent-weekday/td-p/2630429
/# ☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★
祝日一覧をデータテーブルに格納
※Google Calendar APIのような祝日を取得するAPIを利用しても可
☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★#/
SET HolidayTable TO { ^['Date', 'Summary'], ['2024-01-01', '元日'], ['2024-01-08', '成人の日'], ['2024-02-11', '建国記念の日'], ['2024-02-12', '建国記念の日 振替休日'], ['2024-02-23', '天皇誕生日'], ['2024-03-20', '春分の日'], ['2024-04-29', '昭和の日'], ['2024-05-03', '憲法記念日'], ['2024-05-04', 'みどりの日'], ['2024-05-05', 'こどもの日'], ['2024-05-06', 'こどもの日 振替休日'], ['2024-07-15', '海の日'], ['2024-08-11', '山の日'], ['2024-08-12', '休日 山の日'], ['2024-09-16', '敬老の日'], ['2024-09-22', '秋分の日'], ['2024-09-23', '秋分の日 振替休日'], ['2024-10-14', 'スポーツの日'], ['2024-11-03', '文化の日'], ['2024-11-04', '文化の日 振替休日'], ['2024-11-23', '勤労感謝の日'] }
DateTime.GetCurrentDateTime.Local DateTimeFormat: DateTime.DateTimeFormat.DateAndTime CurrentDateTime=> CurrentDateTime
# テスト用に日時設定
Text.ConvertTextToDateTime.ToDateTime Text: $'''2024/5/8''' DateTime=> CurrentDateTime
/# ☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★
指定日の2日前から14日間さかのぼって祝休日かどうかの判定を行う
@kinuasa
kinuasa / kintoneにアップロードした添付ファイルを一括でダウンロードすフロー.robin
Created January 31, 2024 06:00
kintoneにアップロードした添付ファイルを一括でダウンロードするPower Automate for desktopフロー(動作確認：バージョン 2.40 )
/# ☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★
APIトークンなどの変数設定
☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★#/
SET APIToken TO $'''(APIトークン)'''
SET SubDomain TO $'''(サブドメイン)'''
Text.FromNumber Number: 6 DecimalPlaces: 0 UseThousandsSeparator: False FormattedNumber=> AppID
SET SaveFolderPath TO $'''C:\\Test\\kintone\\Files'''
/# ☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★
添付ファイルフィールドのフィールドコードをリストに設定
☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★#/
@kinuasa
kinuasa / PDFフォームへのデータ入力を自動化するPower Automate for desktopフロー.robin
Last active December 20, 2023 04:20
PDFtkを使ってPDFフォームへのデータ入力を自動化するPower Automate for desktopフロー(動作確認：バージョン 2.39 ) 関連Webサイト：https://note.com/kinuasa/n/nc93aefd55e87
SET PdfFolderPath TO $'''C:\\Test\\受領書'''
/# ☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
リストファイル読み込み
☆★☆★☆★☆★☆★☆★☆★☆★☆★☆#/
Excel.LaunchExcel.LaunchAndOpenUnderExistingProcess Path: $'''%PdfFolderPath%\\受領書発行リスト.xlsx''' Visible: True ReadOnly: True Instance=> ExcelInstance
Excel.SetActiveWorksheet.ActivateWorksheetByName Instance: ExcelInstance Name: $'''受領書発行リスト'''
Excel.GetFirstFreeColumnRow Instance: ExcelInstance FirstFreeColumn=> FirstFreeColumn FirstFreeRow=> FirstFreeRow
Excel.ReadFromExcel.ReadCells Instance: ExcelInstance StartColumn: $'''A''' StartRow: 1 EndColumn: FirstFreeColumn - 1 EndRow: FirstFreeRow - 1 ReadAsText: True FirstLineIsHeader: True RangeValue=> ExcelData
Excel.CloseExcel.Close Instance: ExcelInstance
/# ☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
@kinuasa
kinuasa / Excelファイル転記後にPDF変換するフロー.robin
Created November 28, 2023 08:35
Excelファイル転記後にPDF変換するPower Automate for desktopフロー(動作確認：バージョン 2.38 ) 関連Webサイト：https://rpacommunity.connpass.com/event/302505/
SET TemplateFilePath TO $'''C:\\Test\\Excel\\Template\\invoice.xlsx'''
SET ListFilePath TO $'''C:\\Test\\Excel\\顧客リスト.xlsx'''
SET PdfFolderPath TO $'''C:\\Test\\PDF\\請求書'''
Workstation.GetDefaultPrinter PrinterName=> DefaultPrinterName
Workstation.SetDefaultPrinter PrinterName: $'''Microsoft Print to PDF'''
/# ☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★
PDF保存先フォルダーに作成するPDFと同名のファイルがあると処理が停止するため事前に削除
☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★#/
Folder.GetFiles Folder: PdfFolderPath FileFilter: $'''*.pdf''' IncludeSubfolders: False FailOnAccessDenied: True SortBy1: Folder.SortBy.NoSort SortDescending1: False SortBy2: Folder.SortBy.NoSort SortDescending2: False SortBy3: Folder.SortBy.NoSort SortDescending3: False Files=> PdfFiles
IF PdfFiles.Count > 0 THEN
@kinuasa
kinuasa / [kintone]フィールドコード一覧取得.url
Created November 1, 2023 04:31
[InternetShortcut]
URL=javascript:(function(){s=[];if(typeof(cybozu.data.page.FORM_DATA.layout)==="string"){o=JSON.parse(cybozu.data.page.FORM_DATA.layout)}else{o=cybozu.data.page.FORM_DATA.layout};o.map(v=>{v.controlList.map(c=>{s.push(c.var)})});prompt(unescape('%u30D5%u30A3%u30FC%u30EB%u30C9%u30B3%u30FC%u30C9%u306F%u4E0B%u8A18%u306E%u901A%u308A%u3067%u3059%u3002'),s.join(';'))})();
@kinuasa
kinuasa / PowerAutomateDesktopActions_English.md
Last active April 4, 2024 01:49
List of actions for Power Automate for desktop - Japanese version: https://www.ka-net.org/blog/?p=13749 , English version: https://www.ka-net.org/blog/?p=15986

List of actions for Power Automate for desktop

Version: 2.43.00161.24092 (Store app)

Group1 Group2 Group3 Actions Description
Variables Data table Create new data table Creates a new data table variable
Variables Data table Insert row into data table Inserts a row at the end or before a specific index value
Variables Data table Find or replace in data table Finds and/or replaces data table values
Variables Data table Update data table item Update a data table row item on a defined column
Variables Data table Delete row from data table Delete a data table row at the corresponding row index
@kinuasa
kinuasa / JapaneseCalendarToWesternCalendar.robin
Created October 19, 2023 07:16
和暦を西暦に変換するPower Automate for desktopフロー(全角対応)
/# ☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★
和暦を西暦に変換するフロー(全角対応)
Power Automate for desktop バージョン 2.37.00181.23279 で動作確認
☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★#/
SET NewVar TO $'''令和５年１０月１９日　０１：２３：４５'''
/# ☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★
全角文字と半角文字の対応表を用意してループで置換
※必要に応じて文字は追加
☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★#/
SET StringTable TO { ^['FullWidth', 'HalfWidth'], ['０', 0], ['１', 1], ['２', 2], ['３', 3], ['４', 4], ['５', 5], ['６', 6], ['７', 7], ['８', 8], ['９', 9], ['　', ' '], ['／', '/'], ['：', ':'], ['．', '.'] }
@kinuasa
kinuasa / FullWidthToHalfWidth.ps1
Created October 19, 2023 07:03
全角文字を半角に変換するPowerShellスクリプト
Add-Type -AssemblyName 'Microsoft.VisualBasic'
$str = [Microsoft.VisualBasic.Strings]::StrConv('令和５年１０月１９日　０１：２３：４５', [Microsoft.VisualBasic.VbStrConv]::Narrow, 1041)
Write-Output $str