コピー&ペーストでご利用ください。

フローの終了を音で知らせる

WAIT 3 
/# 任意のWAVEファイル(*.wav)を指定できます
Windowsの場合は C:\Windows\Media フォルダ内に標準のWAVE音源ファイルが保存されています#/
System.PlaySound WavFile: $'''C:\Windows\Media\Windows Notify Calendar.wav'''

月末日の取得

DateTime.Local DateTimeFormat: DateTime.DateTimeFormat.DateAndTime CurrentDateTime=> CurrentDateTime
/# 翌月の1日を出す
 (2021/6/30 → Year/Month/1 → 2021/06/01/ → 2021/07/01)#/
DateTime.Add DateTime: $'''%CurrentDateTime.Year%/%CurrentDateTime.Month%/1''' TimeToAdd: 1 TimeUnit: DateTime.TimeUnit.Months ResultedDate=> ResultedDate
/# 1日引く
(2021/6/30 → Year/Month/1 → 2021/06/01/ → 2021/07/01)#/
DateTime.Add DateTime: ResultedDate TimeToAdd: -1 TimeUnit: DateTime.TimeUnit.Days ResultedDate=> ResultedDate
Display.ShowMessage Message: $'''今日:%CurrentDateTime%
 月末:%ResultedDate%''' Icon: Display.Icon.None Buttons: Display.Buttons.OK DefaultButton: Display.DefaultButton.Button1 IsTopMost: False ButtonPressed=> ButtonPressed

曜日の判定

Display.SelectDate DateDialogFormat: Display.DateDialogFormat.DateOnly IsTopMost: False SelectedDate=> SelectedDate
SWITCH SelectedDate.DayOfWeek
    CASE = $'''Sunday'''
        SET DayOfWeek TO $'''日曜日'''
    CASE = $'''Monday'''
        SET DayOfWeek TO $'''月曜日'''
    CASE = $'''Tuesday'''
        SET DayOfWeek TO $'''火曜日'''
    CASE = $'''Wednesday'''
        SET DayOfWeek TO $'''水曜日'''
    CASE = $'''Thursday'''
        SET DayOfWeek TO $'''木曜日'''
    CASE = $'''Friday'''
        SET DayOfWeek TO $'''金曜日'''
    CASE = $'''Saturday'''
        SET DayOfWeek TO $'''土曜日'''
END
Display.ShowMessage Message: DayOfWeek Icon: Display.Icon.None Buttons: Display.Buttons.OK DefaultButton: Display.DefaultButton.Button1 IsTopMost: False

PDFを全ページ分割する

複数ページのPDFを1ページずつに分割します

Folder.GetSpecialFolder SpecialFolder: Folder.SpecialFolder.DesktopDirectory SpecialFolderPath=> SpecialFolderPath
Web.DownloadToFolder Url: $'''https://support.asahi-robo.jp/data/PDF-Sample-MultiPage.pdf''' DestinationFolder: SpecialFolderPath ConnectionTimeout: 30 FollowRedirection: True ClearCookies: 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.Encoding.AutoDetect AcceptUntrustedCertificates: False DownloadedFile=> DownloadedFile
LOOP LoopIndex FROM 1 TO 1000 STEP 1
    Pdf.ExtractPages PDFFile: DownloadedFile PageSelection: LoopIndex ExtractedPDFPath: $'''%SpecialFolderPath%\\%DownloadedFile.NameWithoutExtension%_%LoopIndex%.pdf''' IfFileExists: Pdf.IfFileExists.Overwrite
    ON ERROR
        GOTO PDF_Extract
    END
END
LABEL PDF_Extract

PDFからテキストを抽出しExcelに貼り付ける

※ 仕様上全てのデータを正しく処理できません。

/# デスクトップにPDFをダウンロードします#/
Folder.GetSpecialFolder SpecialFolder: Folder.SpecialFolder.DesktopDirectory SpecialFolderPath=> SpecialFolderPath
Web.DownloadToFolder Url: $'''https://support.asahi-robo.jp/data/PDF-Sample.pdf''' DestinationFolder: SpecialFolderPath ConnectionTimeout: 30 FollowRedirection: True ClearCookies: 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.Encoding.AutoDetect AcceptUntrustedCertificates: False DownloadedFile=> DownloadedFile
/# PDFのテキストを抽出します#/
Pdf.ExtractText PDFFile: DownloadedFile ExtractedText=> ExtractedPDFText
/# スペースをタブに変換します
※ 文字中のスペースも変換されるため注意してください ※#/
Text.Replace Text: ExtractedPDFText TextToFind: $'''%' '%''' IsRegEx: True IgnoreCase: False ReplaceWith: $'''\t''' ActivateEscapeSequences: True Result=> Replaced
/# クリップボードにコピーしてから、Excelに貼り付けます
※ 書き込みの場合は、1つのセルに書き込まれます#/
Clipboard.SetText Text: Replaced
Excel.Launch Visible: True LoadAddInsAndMacros: False Instance=> ExcelInstance
Excel.Advanced.PasteAt Instance: ExcelInstance Column: $'''A''' Row: 1