kujirahand kujirahand

## fruits.jsonc
/**
 * 果物の商品データをJSONCで記述したもの
 * JSONCのサンプル
 */
[
    // マンゴー
    {"名称": "沖縄マンゴー", "値段": 3240, "産地": "沖縄"},
    // ミカン
    {"名称": "愛媛ミカン", "値段": 3200, "産地": "愛媛"},
    // 梨

## memo.md

      
              1 file
            
          
              0 forks
            
          
              0 comments
            
          
              1 star
            
          
                kujirahand
                / memo.md
            
            
              Last active Aug 9, 2022
            
              
                セキュリティキャンプ2022 - プログラミング言語の開発 - 演習資料
              
          
      View memo.md
  
      
    演習リスト [N4,N12] プログラミング言語を自作しよう

2022年8月9日（火）13:30～15:30
2022年8月11日（木）13:30～15:30

演習の準備

Node.jsが動く環境を用意しておく
リポジトリがダウンロードできるよう、Gitをインストールしておく


## アンケート集計.txt
Display.SelectFolder Description: $'''アンケートの入ったフォルダを選択してください''' IsTopMost: False SelectedFolder=> SelectedFolder ButtonPressed=> ButtonPressed
Folder.GetFiles Folder: SelectedFolder FileFilter: $'''*.xlsx''' IncludeSubfolders: False FailOnAccessDenied: True SortBy1: Folder.SortBy.NoSort SortDescending1: False SortBy2: Folder.SortBy.NoSort SortDescending2: False SortBy3: Folder.SortBy.NoSort SortDescending3: False Files=> Files
Variables.CreateNewList List=> CountList
LOOP FOREACH CurrentItem IN Files
    Excel.LaunchExcel.LaunchAndOpenUnderExistingProcess Path: CurrentItem Visible: True ReadOnly: True Instance=> ExcelInstance
    Excel.ReadFromExcel.ReadCell Instance: ExcelInstance StartColumn: $'''B''' StartRow: 3 ReadAsText: False CellValue=> ExcelData
    Variables.AddItemToList Item: ExcelData List: CountList
    Excel.CloseExcel.Close Instance: ExcelInstance
END
Text.JoinText.JoinWithDelimiter List: CountList StandardDelimiter: Text.StandardDelimiter.Tab DelimiterTimes: 1 Result=> JoinedText

## hayamihyou.txt
DateTime.GetCurrentDateTime.Local DateTimeFormat: DateTime.DateTimeFormat.DateAndTime CurrentDateTime=> CurrentDateTime
Text.ConvertDateTimeToText.FromCustomDateTime DateTime: CurrentDateTime CustomFormat: $'''yyyy''' Result=> yyyy
Excel.LaunchExcel.LaunchUnderExistingProcess Visible: True Instance=> ExcelInstance
LOOP LoopIndex FROM 1 TO 50 STEP 1
    Excel.WriteToExcel.WriteCell Instance: ExcelInstance Value: $'''%yyyy - LoopIndex + 1%年''' Column: 1 Row: LoopIndex
    Excel.WriteToExcel.WriteCell Instance: ExcelInstance Value: $'''満 %LoopIndex - 1% 歳''' Column: 2 Row: LoopIndex
END
Folder.GetSpecialFolder SpecialFolder: Folder.SpecialFolder.DesktopDirectory SpecialFolderPath=> SpecialFolderPath
Excel.CloseExcel.CloseAndSaveAs Instance: ExcelInstance DocumentFormat: Excel.ExcelFormat.FromExtension DocumentPath: $'''%SpecialFolderPath%\\年齢早見表.xlsx'''

## maze.py
import pygame
from pygame.locals import *
import sys, random

# 変数の初期化
maze_w = 31 # 迷路の列数
maze_h = 23 # 迷路の行数
maze = [] # 迷路データ
tile_w = 16
px = 1 # プレイヤーの座標

## ImageRotate.txt
Display.SelectFolder IsTopMost: False SelectedFolder=> SelectedFolder ButtonPressed=> ButtonPressed
Folder.GetFiles Folder: SelectedFolder FileFilter: $'''*.jpg''' IncludeSubfolders: False FailOnAccessDenied: True SortBy1: Folder.SortBy.NoSort SortDescending1: False SortBy2: Folder.SortBy.NoSort SortDescending2: False SortBy3: Folder.SortBy.NoSort SortDescending3: False Files=> Files
LOOP FOREACH CurrentItem IN Files
    Scripting.RunPowershellScript Script: $'''[void][Reflection.Assembly]::LoadWithPartialName(\"System.Drawing\")
$im = New-Object System.Drawing.Bitmap(\"%CurrentItem%\")
$im.RotateFlip(\"Rotate270FlipNone\")
$im.Save(\"%CurrentItem%\", [System.Drawing.Imaging.ImageFormat]::Jpeg)
$im.Dispose()
''' ScriptOutput=> PowershellOutput ScriptError=> ScriptError
END

## 1to100.txt
1
2
3
4
5
6
7
8
9
10

## Power Automateでクリップボードの監視
LOOP WHILE (1) = (1)
    Clipboard.GetText Text=> ClipboardText
    IF ClipboardText = $'''＠＠今日''' THEN
        DateTime.GetCurrentDateTime.Local DateTimeFormat: DateTime.DateTimeFormat.DateAndTime CurrentDateTime=> CurrentDateTime
        Clipboard.SetText Text: CurrentDateTime
        Workstation.PlaySound.PlaySystemSound SystemSound: System.SystemSound.Asterisk
    END
    WAIT 1
END

## Cypher-FizzBuzz1to100.cypher
// Fizz, Buzzのノードを作る --- (*1)
CREATE (:FizzBuzzGroup { name: "Fizz" }), (:FizzBuzzGroup { name: "Buzz" });
// 1から100までの値を追加 --- (*2)
FOREACH (i IN RANGE(1,100) | CREATE (a:FizzBuzz{v:i}));
// isFizz, isBuzzの関係を追加 --- (*3)
MATCH (i:FizzBuzz),(g:FizzBuzzGroup{name:"Fizz"})
  WHERE i.v % 3 = 0
  CREATE (g)-[:isFizz]->(i);
MATCH (i:FizzBuzz),(g:FizzBuzzGroup{name:"Buzz"})
  WHERE i.v % 5 = 0

## idea2.html
<!DOCTYPE html><meta charset="utf-8"><html><body>
  <!-- UIを作成 -->
  <div id="g"></div>
  <p style="clear:both"></p>
  <p><a id="save" download="idea.txt" href="#">保存</a></p>
  <!-- JavaScript -->
  <script>
    // 3×3のグリッドを作成
    const g = document.querySelector('#g')
    const items = []
	/**
	* 果物の商品データをJSONCで記述したもの
	* JSONCのサンプル
	*/
	[
	// マンゴー
	{"名称": "沖縄マンゴー", "値段": 3240, "産地": "沖縄"},
	// ミカン
	{"名称": "愛媛ミカン", "値段": 3200, "産地": "愛媛"},
	// 梨
	Display.SelectFolder Description: $'''アンケートの入ったフォルダを選択してください''' IsTopMost: False SelectedFolder=> SelectedFolder ButtonPressed=> ButtonPressed
	Folder.GetFiles Folder: SelectedFolder FileFilter: $'''*.xlsx''' IncludeSubfolders: False FailOnAccessDenied: True SortBy1: Folder.SortBy.NoSort SortDescending1: False SortBy2: Folder.SortBy.NoSort SortDescending2: False SortBy3: Folder.SortBy.NoSort SortDescending3: False Files=> Files
	Variables.CreateNewList List=> CountList
	LOOP FOREACH CurrentItem IN Files
	Excel.LaunchExcel.LaunchAndOpenUnderExistingProcess Path: CurrentItem Visible: True ReadOnly: True Instance=> ExcelInstance
	Excel.ReadFromExcel.ReadCell Instance: ExcelInstance StartColumn: $'''B''' StartRow: 3 ReadAsText: False CellValue=> ExcelData
	Variables.AddItemToList Item: ExcelData List: CountList
	Excel.CloseExcel.Close Instance: ExcelInstance
	END
	Text.JoinText.JoinWithDelimiter List: CountList StandardDelimiter: Text.StandardDelimiter.Tab DelimiterTimes: 1 Result=> JoinedText
	DateTime.GetCurrentDateTime.Local DateTimeFormat: DateTime.DateTimeFormat.DateAndTime CurrentDateTime=> CurrentDateTime
	Text.ConvertDateTimeToText.FromCustomDateTime DateTime: CurrentDateTime CustomFormat: $'''yyyy''' Result=> yyyy
	Excel.LaunchExcel.LaunchUnderExistingProcess Visible: True Instance=> ExcelInstance
	LOOP LoopIndex FROM 1 TO 50 STEP 1
	Excel.WriteToExcel.WriteCell Instance: ExcelInstance Value: $'''%yyyy - LoopIndex + 1%年''' Column: 1 Row: LoopIndex
	Excel.WriteToExcel.WriteCell Instance: ExcelInstance Value: $'''満 %LoopIndex - 1% 歳''' Column: 2 Row: LoopIndex
	END
	Folder.GetSpecialFolder SpecialFolder: Folder.SpecialFolder.DesktopDirectory SpecialFolderPath=> SpecialFolderPath
	Excel.CloseExcel.CloseAndSaveAs Instance: ExcelInstance DocumentFormat: Excel.ExcelFormat.FromExtension DocumentPath: $'''%SpecialFolderPath%\\年齢早見表.xlsx'''
	import pygame
	from pygame.locals import *
	import sys, random

	# 変数の初期化
	maze_w = 31 # 迷路の列数
	maze_h = 23 # 迷路の行数
	maze = [] # 迷路データ
	tile_w = 16
	px = 1 # プレイヤーの座標
	Display.SelectFolder IsTopMost: False SelectedFolder=> SelectedFolder ButtonPressed=> ButtonPressed
	Folder.GetFiles Folder: SelectedFolder FileFilter: $'''*.jpg''' IncludeSubfolders: False FailOnAccessDenied: True SortBy1: Folder.SortBy.NoSort SortDescending1: False SortBy2: Folder.SortBy.NoSort SortDescending2: False SortBy3: Folder.SortBy.NoSort SortDescending3: False Files=> Files
	LOOP FOREACH CurrentItem IN Files
	Scripting.RunPowershellScript Script: $'''[void][Reflection.Assembly]::LoadWithPartialName(\"System.Drawing\")
	$im = New-Object System.Drawing.Bitmap(\"%CurrentItem%\")
	$im.RotateFlip(\"Rotate270FlipNone\")
	$im.Save(\"%CurrentItem%\", [System.Drawing.Imaging.ImageFormat]::Jpeg)
	$im.Dispose()
	''' ScriptOutput=> PowershellOutput ScriptError=> ScriptError
	END
	LOOP WHILE (1) = (1)
	Clipboard.GetText Text=> ClipboardText
	IF ClipboardText = $'''＠＠今日''' THEN
	DateTime.GetCurrentDateTime.Local DateTimeFormat: DateTime.DateTimeFormat.DateAndTime CurrentDateTime=> CurrentDateTime
	Clipboard.SetText Text: CurrentDateTime
	Workstation.PlaySound.PlaySystemSound SystemSound: System.SystemSound.Asterisk
	END
	WAIT 1
	END
	// Fizz, Buzzのノードを作る --- (*1)
	CREATE (:FizzBuzzGroup { name: "Fizz" }), (:FizzBuzzGroup { name: "Buzz" });
	// 1から100までの値を追加 --- (*2)
	FOREACH (i IN RANGE(1,100) \| CREATE (a:FizzBuzz{v:i}));
	// isFizz, isBuzzの関係を追加 --- (*3)
	MATCH (i:FizzBuzz),(g:FizzBuzzGroup{name:"Fizz"})
	WHERE i.v % 3 = 0
	CREATE (g)-[:isFizz]->(i);
	MATCH (i:FizzBuzz),(g:FizzBuzzGroup{name:"Buzz"})
	WHERE i.v % 5 = 0
	<!DOCTYPE html><meta charset="utf-8"><html><body>
	<!-- UIを作成 -->
	<div id="g"></div>
	<p style="clear:both"></p>
	<p><a id="save" download="idea.txt" href="#">保存</a></p>
	<!-- JavaScript -->
	<script>
	// 3×3のグリッドを作成
	const g = document.querySelector('#g')
	const items = []