buffer

Hello, World

2026-08-13T23:07:03.364+09:00

windowsで実行


main = putStrLn "Hello, World!"

runghc ./ファイル名.hs
→コンパイルして実行(実行ファイルは生成しない)

ghc ./ファイル名.hs
→ファイル名.hi, ファイル名.o, ファイル名.exe を作成
./ファイル.exe

PowerShellメモ

2024-02-10T02:48:00.013+09:00

■PowerShell ISE
PowerShellスクリプト開発環境のことデバッグ機能、入力支援機能あり

■変数作成
宣言はなし。値代入により変数が作成される。

$ + 変数名で作成できる。

$str = "あいうえお"

$int = 10

※大文字小文字は識別されない

■標準出力

Write-Host 変数名で出力

■strictモード

以下のようにタイプミスしても何も表示されない

$string = "Hello World!"

Write-Host $sting

そのため set-psdebug -Strict を記載すると

それ以降で、変数が作成されていないのに利用しているとエラーとなる

set-psdebug -Strict $string = "Hello World!"

Write-Host $sting

>変数 '$sting' は、設定されていないために取得できません。

■変数の型

// 整数

Byte (8bit 符号なし)

Char (16bit 符号なし)

UInt16(16bit 符号なし)

UInt32(32bit 符号なし)

UInt64(64bit 符号なし)

SByte (8bit 符号あり)

Int16 (16bit 符号あり)

Int32 (32bit 符号あり)

Int64 (64bit 符号あり)

// 他

Decimal

Double

Boolean

DateTime

String

Object

代入した際に型が自動的に決まってしまうので、数値については

下記のように型を記載することで指定できる

[Byte]$num = 255

参考：

以下によって変数の型が取得できる

set-psdebug -Strict

$str = "文字列"

Write-Host $str.GetType()

■型変換

変数 -as データ型　で変換できる

$numstr = "123"

$num = $numstr -as [Int16]

■文字列中の変数展開

set-psdebug -Strict

$num = 123

Write-Host "`$numの値は、 $num です"

Write-Host "`$numの値は、${num}です"

半角スペースで区切れている場合は、よいが区切れていないと変数名の切れ目が意図したところにならないので{}で囲む

また、$自体をエスケープするには `(バックくぉーと)を使う

カレントフォルダで Name列が sで始まるデータに絞り込み全列表示

■定数

Set-Variable -name keisu -value 0.5 -option constant

$keisu = 0.6

>変数 keisu は読み取り専用または定数であるため、上書きできません。

■特別な変数

$Args…引数が格納されている

$True…True

$False…False

$NULL…Null

$This…オブジェクト自身

$Error…エラー

■配列の初期値

①コンマ区切りで指定する

$dataList = "aaa", "bbb", "ccc"

Write-Host $dataList #aaa bbb ccc

$dataList = 100, 200, 300

Write-Host $dataList

$dataList = 3..5 #連続する数値を配列に指定

Write-Host $dataList.Count #3

②@()を使う

$dataList = (100, 200, 300)

Write-Host $dataList #100 200 300

■配列の初期値(1要素の配列)

①@()を使う

$dataList = @(100)

Write-Host $dataList[0]

②,とデータを指定する

$dataList = ,100

Write-Host $dataList[0] #100

■要素を追加

$dataList = @("aaa", "bbb", "ccc")

$dataList += ("ddd")

Write-Host $dataList #aaa bbb ccc ddd

※System.String[]では、Addではなく += で追加

■要素を削除

削除したい要素以外のデータで配列を作り直す

$dataList = @("aaa", "bbb", "ccc", "ddd", "eee")

$dataList = $dataList[0..2] + $dataList[4]

Write-Host $dataList #aaa bbb ccc eee

■配列の個数

$変数名.length … 個数　#Countを同じ

■多次元配列

$data = New-Object 'string[,]' 2,3

$data[0,0] = "0,0"

$data[0,1] = "0,1"

$data[0,2] = "0,2"

$data[1,0] = "1,0"

$data[1,1] = "1,1"

$data[1,2] = "1,2"

Write-Host $data #0,0 0,1 0,2 1,0 1,1 1,2

■ジャグ配列

$data = @(@(11, 12), @(21, 22, 23))

Write-Host $data #11 12 21 22 23

■算術演算子

+-*/%

■比較演算子

-eq …等しい

-ne …等しくない

-gt …より大きい

-ge …以上

-lt …より小さい

-le …以下

-like …ワイルドカードに一致

-notlike …ワイルドカードに不一致

※ *…以上にマッチ ?…1文字にマッチ

-match …正規表現に一致

-notmatch …正規表現に不一致

・文字、小文字の比較

Write-Host ("abc" -ceq "ABC") #大文字小文字区別

Write-Host ("abc" -ieq "ABC") #大文字小文字区別しない

Write-Host ("abc" -eq "ABC") #デフォルトは大文字小文字区別しない

■論理演算子

-and

-or

-not

■if文

if(条件){

}elseif(条件){

}else{

}

■switch

switch 条件

{

値1{}

値2{}

…

default{}

}

※途中で抜けたいときは、break

■for文

for($i = 0; $i -lt 10; $i++)

{

if($i % 2 -eq 0) { continue }

if($i -eq 9) { break }

Write-Host $i #1 3 5 7

}

■foreach

foreach($num in $numList){

write-host $num

}

■while

while(条件){}

■コメント

# 1行コメント

複数行

■改行、タブ

バッククォートをつける

■関数

--------------------------------------------

Echo("test")

function Echo($message){

Write-Host $message

}

--------------------------------------------

#引数の型を定義することも可

function Echo([string]$message){

Write-Host $message

}

--------------------------------------------

２つの値を足して、結果を返す場合

function Plus([int]$num1, [int]$num2){

return $num1 + $num2

}

$ans = Plus 10 20

Write-Host $ans

※関数に渡した際の型がよくわからない・・・

後で調べる

※参照渡しの場合は、呼び出す側、仮引数ともに[ref]をつける

■例外

try{

throw "エラーのテスト"

}

catch

{

Write-Host "catch $_"

}

finally

{

Write-Host "finally"

}

■他後でまとめる

Get-ChildItem | Where-Object { $_.Name -Match "^s"}

カレントフォルダで Size列

Get-ChildItem | Where-Object { $_.Name -Match "^s"} | Select-Object Name

カレントフォルダ配下すべてに対し、 *.xml　に絞り、更新日時でソートし、ファイル名の古パスを１件表示

Get-ChildItem -Filter *.xml -Recurse | Sort-Object LastWriteTime -Descending | Select-Object {$_.FullName} -first 1</div>

デバッグログ

2023-09-29T23:52:00.001+09:00

Debug.unityLogger.logEnabled = false;//ログを出力しない Debug.unityLogger.logEnabled = true; //ログを出力する

SQLite

2021-06-26T23:57:00.002+09:00

■テーブルがなければ作る CREATE TABLE IF NOT EXISTS [テーブル名]~ ■AUTO INCREMENT SQLiteとしては、おすすめしていないため、使わないとすると CREATEテーブルで INTEGER と PRIMARY KEY を設定することで INSERT時、何もあたいを指定しないとROWIDが設定されるとのこと例 CREATE TABLE [Employee] ( [id] INTEGER PRIMARY KEY, [name] TEXT NOT NULL) INSERT INTO ([name]) VALUES('NAME1') この場合自動的に、ROWIDのあたいを使う。 AUTO INCREMENTは、行をDELETEしてもIDを再利用しないため増える一方であるが AUTO　INCREMENTを指定しない場合、基本的には増える一方であるが、DELETEした場合は再利用を行う点が違う。そのため、外部キー等でいくつのIDが設定されているか知りたい時は、 SELECT last_insert_rowid() といった感じで最後にしようしたあたいが取得できる

TypeScriptメモ

2020-03-20T16:12:00.000+09:00

■クラス
・クラス

class クラス名 {}

・コンストラクタ

class クラス名{
    constructor(){
    }
}

・インスタンス変数

class クラス名{
    public 変数名: 型;
    private 変数名: 型;

    // getter
    public get 名前（） {
        return this.変数名;
    }

    // setter
    public set 名前(変数名){
        this.変数名 = 変数名
    }
}

public 変数名は、constructorでも設定可能

class クラス名{
    constructor(public 変数名: 型){} // publicをつけると public 変数名を書いたのと同じになる
}

・インスタンスメソッド

class クラス名{
    public メソッド名(){}

    private メソッド名(){}
}

vscodeメモ

2020-03-08T16:52:00.000+09:00

定義に移動
win
ctr + マウスオーバー　でクリック

mac
Option + マウスオーバーでクリック

トグルスイッチ

2020-03-02T00:30:00.002+09:00

あとで眺める
https://www.designlabthemes.com/css-toggle-switch/

VSCodeでTypeScriptを軽く触る時の最低限のメモ

2020-03-02T00:17:00.001+09:00

◆達成したいこと。

ちょっとTypeScriptを使ってコードを書いて見たい場合に、
html/js/TypeScriptのいずれも保存時自動で更新するようにしたい

◆やったこと
html/jsの保存時、自動更新は拡張機能のLive Serverを使用
TypeScriptについては以下のようにした

VSCodeでプロジェクトのルートフォルダを開くためcodeコマンドを実行
$ code フォルダパス

TypeScriptとをインストール
$ npm i typescript

package.jsonを作成
$ npm init -y

package.jsonにtscコマンドを指定

  "scripts": {
    "watch": "tsc -w"
  },

フォルダ構成
下記のようにしたいので

├── node_modules
├── src
│ ├─js
│ ├─ts
│ └─index.html
├── package-lock.json
├── package.json
└── tsconfig.json

tsconfig.jsonを作って場所を設定する
$ tsc --init

"outDir": "./src/js",

後は、Live Serverを起動した状態で、
$ npm run watch でtsの保存を監視してコンパイルさせるようにする

VSCode複数起動

2020-02-09T21:53:00.000+09:00

見比べたくて複数起動したかったのでメモ

mac: shift + command + n
win: shift + control + n

VSCodeでHTML書く時用のメモ

2020-02-09T10:56:00.000+09:00

Emmet+VSCodeのショートカットのメモ

◾️HTML5の雛形
! + [Tab]

◾️次の行へ移動し空行追加
[Ctrl] + Enter

◾️タグ
基本的にはタグ名 + Enter

id属性は
タグ#id + Enter

class属性は
タグ.Class + Enter

それ以外は
タグ:属性 + Enter

memo

2019-03-18T00:36:00.001+09:00

@echo off

cd /d %~dp0

set LockFile=nolock

:Loop
if exist %LockFile% (
if exist %LockFile%/ (
timeout /t 3 > nul
goto Loop
)

rem 存在する場合そのまま

) else (
echo 存在しない
type nul > %LockFile%
timeout /t 3 > nul
goto Loop

)

rem ------------------

pause

test

2018-08-12T10:21:00.000+09:00

test

SQLiteのNuget

2018-07-07T15:05:00.000+09:00

.net framework
System.Data.SQLite

.net core
Microsoft.Data.Sqlite

.net core でSQLite EF
Microsoft.EntityFrameworkCore.sqlite
Microsoft.EntityFrameworkCore.tools

AOLのjoinエラー

2018-06-10T19:33:00.000+09:00

error CS1502: The best overloaded method match for `string.Join(string, string[])' has some invalid arguments /usr/lib/mono/2.0/mscorlib.dll
(Location of the symbol related to previous error)

文字列でない配列をジョインするときにエラーになるので型変換が必要
string.Join(" ", (string[])data.ToArray())

onLoad と DOMContentLoadedの違いメモ

2018-06-02T18:23:00.000+09:00

window.addEventListener("load", function(e) {
alert("load");
});

document.addEventListener('DOMContentLoaded', function (e) {
alert("DOMContentLoaded");
});

loadイベントは、リソースおよびその依存リソースの読み込みが終わると発生します。。
load

HTMLのDOMツリーを解析完了した時点で発生する
DOMContentLoaded

App Serviceにフォルダ追加

2018-03-25T13:08:00.002+09:00

App ServiceでImageディレクトリ配下に作ったディレクトリがデプロイで作られないようなので…
直接作成

azureにログイン
該当のApp Serviceを選択
App Service Editorを選択
（右画面に　移動→　が出るので選択）

下記画面が開くので該当ディレクトリを選択して右クリックで追加できます

スクリプトを用いたデータの出力

2018-03-23T21:14:00.000+09:00

Microsoft SQL Server Management Studioで該当データベースを選択して右クリック

スクリプトの生成　を選択

□説明画面
次へ

□オブジェクトの選択
特定のデータベースオブジェクトを選択
出力対象のテーブルを選択
次へ

□スクリプト作成オプションの設定
詳細設定->スクリプトを作成するデータの種類：データのみ->OK
次へ

□概要
次へ

出力される

Visual Studio ブラウザの追加

2018-02-25T12:44:00.003+09:00

ASP.NET開発時に開くブラウザの追加。
Google Chromeのシークレットを追加する。

ブラウザの一覧から、ブラウザーの選択を開く
追加から

プログラム：
C:\Users\[User名]\AppData\Local\Google\Chrome\Application\chrome.exe

引数：
--incognito

名前：
適当につける

以上

DebugModule.bas

2017-12-19T06:17:00.001+09:00

Option Explicit
Private Indent          As Integer
Private Prefix          As String
Private FH              As Object
Private FlagNotime          As Boolean
Private FlagDebugPrint  As Boolean

Private Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long)
Sub DebugPrint(ByVal VarName As Variant, Optional ByVal Filename As String = "Debug.txt", _
               Optional ByVal TypeNameFlag As Boolean = False, Optional ByVal IndentCount As Integer = 4, _
               Optional NotimeFlag As Boolean = False, Optional DebugPrintFlag As Boolean = False)
    '必須：
    'VarName: データ構造を知りたい変数名を指定
    
    'オプション：
    'Indentcount: 配列、コレクション、Dictionaryなどネストして表示されるデータの全角スペースの数
    'TypeNameFlag:全ての型を表示したい時にTrue
    '----------------------------------------------------------------------------------------------
    
    '再帰呼出で、トップの時⇒追記状態でファイルオープンしておく
    If Indent = 0 Then
        FlagNotime = NotimeFlag
        FlagDebugPrint = DebugPrintFlag
        If Not FlagDebugPrint Then Call FileOpen(Filename)
    End If
    
    
    Dim i As Long
    Dim key As Variant
    If TypeName(VarName) = "Byte" Or TypeName(VarName) = "Integer" Or _
       TypeName(VarName) = "Long" Or TypeName(VarName) = "String" Or _
       TypeName(VarName) = "Single" Or TypeName(VarName) = "Double" Or _
       TypeName(VarName) = "Currency" Or TypeName(VarName) = "Date" Or _
       TypeName(VarName) = "Boolean" Or TypeName(VarName) = "Boolean" Then
        
        Call Output(TypeName(VarName), IndentCount, TypeNameFlag, VarName)

    ElseIf TypeName(VarName) = "Empty" Or TypeName(VarName) = "Null" Or _
           TypeName(VarName) = "Nothing" Or TypeName(VarName) = "Unknown" Then
        
        Call Output(TypeName(VarName), IndentCount, TypeNameFlag)
        
    ElseIf 0 < InStr(TypeName(VarName), "()") Then
        '2次元配列まで対応！3次元以上はNG!
        Dim temp As Integer, Dimension As Integer
        On Error Resume Next
        temp = UBound(VarName, 3)
        If Err.Number = 0 Then
            MsgBox "配列は3次元配列以上は未対応です"
            End
        End If
        
        Err.Clear
        temp = UBound(VarName, 2)
        Dimension = IIf(Err.Number = 0, 2, 1)
        On Error GoTo 0
        
        
        Call Output(TypeName(VarName), IndentCount, TypeNameFlag)
        
        '1次元配列か2次元配列かで処理を分岐
        Indent = Indent + 1
        If Dimension = 1 Then
        '1次元配列の処理
            For i = 0 To UBound(VarName)
                Prefix = "(" & i & "): "
                Call DebugPrint(VarName(i), IndentCount, TypeNameFlag)
            Next
            
        ElseIf Dimension = 2 Then
        '2次元配列の処理
            Dim ii As Long
            For i = 0 To UBound(VarName, 1)
                For ii = 0 To UBound(VarName, 2)
                    Prefix = "(" & i & "," & ii & "): "
                    Call DebugPrint(VarName(i, ii), IndentCount, TypeNameFlag)
                Next
            Next
        End If
        Indent = Indent - 1
    ElseIf TypeName(VarName) = "Collection" Then

        Call Output(TypeName(VarName), IndentCount, TypeNameFlag)
        
        Indent = Indent + 1
        For i = 1 To VarName.Count
            Prefix = i & ":"
            Call DebugPrint(VarName.Item(i), IndentCount, TypeNameFlag)
        Next
        Indent = Indent - 1
    
    ElseIf TypeName(VarName) = "Dictionary" Then

        Call Output(TypeName(VarName), IndentCount, TypeNameFlag)
        
        Indent = Indent + 1
        For Each key In VarName
            Prefix = "[" & TypeName(key) & "]" & key & " => "
            Call DebugPrint(VarName.Item(key), IndentCount, TypeNameFlag)
        Next
        Indent = Indent - 1
        
    End If
     
    '再帰呼出で、トップの時⇒追記状態でファイルオープンしておく
    If Indent = 0 And Not FlagDebugPrint Then Call FileClose
End Sub

Sub Output(ByVal TypeVarName As String, ByVal IndentCount As Integer, ByVal TypeNameFlag As Boolean, Optional ByVal VarName As Variant = "")
    If IndentCount < 0 Then IndentCount = 0
    
    Dim OutPutData As String
    If TypeNameFlag Then
        OutPutData = String(Indent * IndentCount, " ") & Prefix & "[" & TypeVarName & "]" & VarName & vbCrLf
            
        If FlagDebugPrint Then
            Debug.Print Replace(OutPutData, vbCrLf, "") '改行ははずす
        Else
            FH.Write OutPutData
        End If
    Else
        If 0 < InStrRev(Prefix, "]") Then
            Prefix = Right(Prefix, Len(Prefix) - InStrRev(Prefix, "]"))
        End If
        
        If 0 < InStr(TypeVarName, "()") Or TypeVarName = "Collection" Or TypeVarName = "Dictionary" Then
            OutPutData = String(Indent * IndentCount, " ") & Prefix & "[" & TypeVarName & "]" & VarName & vbCrLf
            
            If FlagDebugPrint Then
                Debug.Print Replace(OutPutData, vbCrLf, "") '改行ははずす
            Else
                FH.Write OutPutData
            End If
        Else
            OutPutData = String(Indent * IndentCount, " ") & Prefix & VarName & vbCrLf
            
            If FlagDebugPrint Then
                Debug.Print Replace(OutPutData, vbCrLf, "") '改行ははずす
            Else
                FH.Write OutPutData
            End If
        End If
    End If
    
    Prefix = ""
End Sub


Private Sub FileOpen(ByVal Filename As String)
    '.txtが省略されていたら追加する
    If 0 = InStr(Filename, ".txt") Then Filename = Filename & ".txt"
    
    Dim FSO As Object, FilePath As String
    Set FSO = CreateObject("Scripting.FileSystemObject")
    

    If FlagNotime Then
        FilePath = ThisWorkbook.Path & "\" & Filename
        Set FH = FSO.OPenTextFile(FilePath, 2, True)
    Else
        FilePath = ThisWorkbook.Path & "\(" & Replace(Time, ":", "") & ")" & Filename
        Set FH = FSO.OPenTextFile(FilePath, 8, True)
    End If
    
    Set FSO = Nothing
End Sub

Private Sub FileClose()
    FH.Close
    Set FH = Nothing
    
    Sleep (1000) '同名ファイルに出力されるのを避けるため、１秒時間をおいている
End Sub


'■SampleCode
Private Sub SampleCode1()
    'Dummyデータ
    Dim varString   As String:   varString = "文字列"
    Dim varInteger  As Integer:  varInteger = 3
    Dim varLong     As Long:     varLong = 3
    Dim varDouble   As Double:   varDouble = 3.5
    Dim varBoolean  As Boolean:  varBoolean = True

    '■配列データの出力を行います
    Dim varArray(2) As Variant
        varArray(0) = varString
        varArray(1) = varInteger
        varArray(2) = varBoolean
    
    '※引数にデータ構造を見たい変数名を指定します
    '実行Excelファイルと同階層に (時間)Debug.txt として出力されます
    Call DebugPrint(varArray)
    '-----------------------------
    '[Variant()]
    '　　(0): 文字列
    '　　(1): 3
    '　　(2): True
    '-----------------------------
End Sub

Private Sub SampleCode2()
    'Dummyデータ
    Dim varString   As String:   varString = "文字列"
    Dim varInteger  As Integer:  varInteger = 3
    Dim varLong     As Long:     varLong = 3
    Dim varDouble   As Double:   varDouble = 3.5
    Dim varBoolean  As Boolean:  varBoolean = True

    Dim varArray(2) As Variant
        varArray(0) = varString
        varArray(1) = varInteger
        varArray(2) = varBoolean
    
    '■Dictionaryの出力を行います
    Dim varDic As Object
    Set varDic = CreateObject("Scripting.Dictionary")
    varDic.Add "配列1", varArray
    varDic.Add "配列2", Array("a", "b", "c")
    
    '※引数にデータ構造を見たい変数名を指定します
    '実行Excelファイルと同階層に (時間)Debug.txt として出力されます
    Call DebugPrint(varDic)
    '-----------------------------
    '※ファイルの出力結果
    '[Dictionary]
    '配列1 => [Variant()]
    '　　(0): 文字列
    '　　(1): 3
    '　　(2): True
    '配列2 => [Variant()]
    '　　(0): a
    '　　(1): b
    '　　(2): c
    '-----------------------------
    
    '対応している変数形式は
    'String/Integer/Long/Single/Double/Currency/Date/Boolean/Byte/Variant
    '上記を用いた、Collection/Dictionary/配列(2次元配列まで)
End Sub

Private Sub SampleCode3()
    'Dummyデータ
    Dim varString   As String:   varString = "文字列"
    Dim varInteger  As Integer:  varInteger = 3
    Dim varLong     As Long:     varLong = 3
    Dim varDouble   As Double:   varDouble = 3.5
    Dim varBoolean  As Boolean:  varBoolean = True

    Dim varArray(2) As Variant
        varArray(0) = varString
        varArray(1) = varInteger
        varArray(2) = varBoolean
    
    Dim varDic As Object
    Set varDic = CreateObject("Scripting.Dictionary")
    varDic.Add "配列1", varArray
    varDic.Add "配列2", Array("a", "b", "c")
    
    
    'Q And A
    '■複数出力したとき、何の変数を出力したものか判断がつきにくい！
    '　なんとかしてほしい
    '　⇒Filenameオプションにファイル名を指定してください
    Call DebugPrint(varArray, Filename:="Array.txt")
    Call DebugPrint(varDic, Filename:="Dictionary") '拡張子は書かなくても自動的.txtになります
End Sub


Private Sub SampleCode4()
    'Dummyデータ
    Dim varString   As String:   varString = "文字列"
    Dim varInteger  As Integer:  varInteger = 3
    Dim varLong     As Long:     varLong = 3
    Dim varDouble   As Double:   varDouble = 3.5
    Dim varBoolean  As Boolean:  varBoolean = True

    Dim varArray(2) As Variant
        varArray(0) = varString
        varArray(1) = varInteger
        varArray(2) = varBoolean
    
    Dim varDic As Object
    Set varDic = CreateObject("Scripting.Dictionary")
    varDic.Add "配列1", varArray
    varDic.Add "配列2", Array("a", "b", "c")
    
    
    'Q And A
    '■複数出力なんてしません！なのでファイル名に時間をつけて複数出力するのはやめてくれますか？
    '　何度も何度も消すのがめんどくさい。ゴミ箱がひどいことになる・・・
    '　⇒NotimeFlagオプションをTrueにしてください
    Call DebugPrint(varDic, Filename:="上書きテスト")
    Call DebugPrint(varDic, Filename:="上書きテスト") '通常だと(時間)上書きテスト.txt が時間ごとに作られる
    Call DebugPrint(varDic, Filename:="上書きテスト", NotimeFlag:=True)
    Call DebugPrint(varDic, Filename:="上書きテスト", NotimeFlag:=True)
    Call DebugPrint(varDic, Filename:="上書きテスト", NotimeFlag:=True) '上書きテスト.txt が一つだけ作られる(一番最後に実行したものだけが残る)
End Sub

Private Sub SampleCode5()
    'Dummyデータ
    Dim varString   As String:   varString = "文字列"
    Dim varInteger  As Integer:  varInteger = 3
    Dim varLong     As Long:     varLong = 3
    Dim varDouble   As Double:   varDouble = 3.5
    Dim varBoolean  As Boolean:  varBoolean = True

    Dim varArray(2) As Variant
        varArray(0) = varString
        varArray(1) = varInteger
        varArray(2) = varBoolean
    
    Dim varDic As Object
    Set varDic = CreateObject("Scripting.Dictionary")
    varDic.Add "配列1", varArray
    varDic.Add "配列2", Array("a", "b", "c")
    
    'Q And A
    '■配列/Collection/Dictionaryでインデントされて出力
    '　されますが、あの幅が好みじゃない・・・。
    '　⇒IndentCountオプションを指定してください
    Call DebugPrint(varDic, IndentCount:=5)
    
    '-----------------------------
    '※ファイルの出力結果
    '[Dictionary]
    '　　　　　配列1 => [Variant()]
    '　　　　　　　　　　(0): 文字列
    '　　　　　　　　　　(1): 3
    '　　　　　　　　　　(2): True
    '　　　　　配列2 => [Variant()]
    '　　　　　　　　　　(0): a
    '　　　　　　　　　　(1): b
    '　　　　　　　　　　(2): c
    '-----------------------------
End Sub

Private Sub SampleCode6()
    'Dummyデータ
    Dim varString   As String:   varString = "文字列"
    Dim varInteger  As Integer:  varInteger = 3
    Dim varLong     As Long:     varLong = 3
    Dim varDouble   As Double:   varDouble = 3.5
    Dim varBoolean  As Boolean:  varBoolean = True

    Dim varArray(2) As Variant
        varArray(0) = varString
        varArray(1) = varInteger
        varArray(2) = varBoolean
    
    Dim varDic As Object
    Set varDic = CreateObject("Scripting.Dictionary")
    varDic.Add "配列1", varArray
    varDic.Add "配列2", Array("a", "b", "c")
    
    
    'Q And A
    '■データの型式を全てみたいです
    '　⇒TypeNameFlagオプションをTrueにしてください
    Call DebugPrint(varDic, TypeNameFlag:=True)
    
    '-----------------------------
    '※ファイルの出力結果
    '[Dictionary]
    '[String] 配列1 >= [Variant()]
    '　　(0): [String]文字列
    '　　(1): [Integer]3
    '　　(2): [Boolean]True
    '[String] 配列2 >= [Variant()]
    '　　(0): [String]a
    '　　(1): [String]b
    '　　(2): [String]c
    '-----------------------------
End Sub

Private Sub SampleCode7()
    'Dummyデータ
    Dim varString   As String:   varString = "文字列"
    Dim varInteger  As Integer:  varInteger = 3
    Dim varLong     As Long:     varLong = 3
    Dim varDouble   As Double:   varDouble = 3.5
    Dim varBoolean  As Boolean:  varBoolean = True

    Dim varArray(2) As Variant
        varArray(0) = varString
        varArray(1) = varInteger
        varArray(2) = varBoolean
    
    Dim varDic As Object
    Set varDic = CreateObject("Scripting.Dictionary")
    varDic.Add "配列1", varArray
    varDic.Add "配列2", Array("a", "b", "c")
    
    
    'Q And A
    '■ファイルじゃなくイミディエイトウィンドウにだしてよ
    '　⇒DebugPrintFlagをTrueにしてください
    Call DebugPrint(varDic, DebugPrintFlag:=True)
    
End Sub

xmlObj.cls

2017-12-19T06:16:00.000+09:00

Option Explicit

Dim xmlObj      As Object
Dim xmlAttr     As Object
Dim xmlNode     As Object
Dim xmlString   As String

Private Sub Class_Initialize()

    Set xmlObj = CreateObject("MSXML2.DOMDocument")
    xmlObj.async = False
    xmlObj.setProperty "SelectionLanguage", "XPath"
    
    xmlObj.appendChild xmlObj.createProcessingInstruction("xml", "version='1.0' encoding='UTF-8'")
End Sub

Private Sub Class_Terminate()
    Set xmlObj = Nothing
End Sub

Public Sub XMLin(ByVal data As Variant)
    
    If TypeName(data) = "String" Then
        Call FileLoad(data)
        
    ElseIf TypeName(data) = "Dictionary" Then
        Call judgeTypeName(data)
        
    Else
        Call Die("XMLinメソッドは、String型またはDictionary型のみを取ることができます" & vbCrLf & _
                 "引数の型：" & TypeName(data))
    End If
    
End Sub

Public Sub XMLout(ByVal FilePath As String)
    xmlObj.Save FilePath
End Sub

Public Function XPath(ByVal strXPath As String)
    
    'xmlの文字列をロードする
    xmlObj.loadXML xmlString
    
    Set XPath = xmlObj.documentElement.selectNodes(strXPath)
    
End Function


Private Sub FileLoad(ByVal FilePath As Variant)
    
    Dim FH  As Object
    Dim FSO As Object
    
    Set FSO = CreateObject("Scripting.FileSystemObject")
    
    xmlString = ""
    
    If Not FSO.FileExists(FilePath) Then Call Die("FileLoadメソッド：ファイルは存在しません" & vbCrLf & "FilePath:" & FilePath)
    
    Set FH = FSO.OPenTextFile(FilePath, 1)
    
    Do While Not FH.AtEndOfStream
        xmlString = xmlString & FH.ReadLine
    
    Loop
    
    FH.Close
    
    Set FH = Nothing
    Set FSO = Nothing
    
End Sub

Private Sub judgeTypeName(ByRef data As Variant)
    
    Dim counter As Long
    Dim key     As Variant
    
    'キーに属性を含んでいる場合を高所して先に属性の登録を行う
    Call AddAttributeNode(data)
    
    
    For Each key In data
        counter = counter + 1
        
        If AddXmlNode(key) Then GoTo NextForLoop

        
        If TypeName(key) = "Dictionary" Then
            Call judgeTypeName(key)
            If counter = data.Count Then _
                Set xmlNode = xmlNode.parentNode
            
        ElseIf TypeName(data(key)) = "Collection" Then
            Call judgeTypeName(data(key))
                
        ElseIf TypeName(data(key)) = "Dictionary" Then
            Call judgeTypeName(data(key))
            
            If counter = data.Count Then _
                Set xmlNode = xmlNode.parentNode
            
        ElseIf TypeName(data(key)) = "String" Then
            Call AddChildText(data(key))
        
        Else
            Call Die("judgeTypeNameメソッドエラー：")
            Debug.Print ""
        
        End If
        
NextForLoop:
    Next
    
End Sub

Private Sub AddChildText(ByVal ChildText As String)
    '子要素にテキストを追加
    Set xmlNode = xmlNode.appendChild(xmlObj.createTextNode(ChildText))
    Set xmlNode = xmlNode.parentNode
    Set xmlNode = xmlNode.parentNode
    
End Sub


Private Sub AddAttributeNode(ByRef data As Variant)
    
    Dim key As Variant
    
    '子要素をぶら下げた後に属性処理をすると意図したところと違うところに属性がつくので
    '最初にキーを走査して属性を探しあれば親要素に属性を追加する
    For Each key In data
    
        If TypeName(key) <> "String" Then GoTo NextForEach
        If key = "@" Then
            Call Die("AddAttributeNodeメソッドエラー：属性名がありません")
            
        ElseIf Left(key, 1) = "@" Then
            Set xmlAttr = xmlNode.Attributes.setNamedItem(xmlObj.createAttribute(Mid(key, 2, Len(key))))
            xmlAttr.nodeValue = data(key)
        End If

NextForEach:
    Next
    
End Sub

Private Function AddXmlNode(ByRef key As Variant)
    
    If TypeName(key) <> "String" Then
        Exit Function
    
    ElseIf key = "" Then
        Exit Function
    
    End If
    
    
    'キーを処理する
    If xmlNode Is Nothing Then
    'Nothingの時は初なのでルートとして指定
        Set xmlNode = xmlObj.appendChild(xmlObj.CreateElement(key))
    
    Else
    '親要素以外の処理
        If Left(key, 1) <> "@" Then
        '@で始まらない時は、子要素として登録。 False(0)を返す
            Set xmlNode = xmlNode.appendChild(xmlObj.CreateElement(key))
            AddXmlNode = 0
            
       Else
       '@で始まる時は、True(1)を返す
            AddXmlNode = 1
       
       End If
       
    End If
    
End Function

Private Sub Die(ByVal msg As String)
    MsgBox "下記理由により終了します" & vbCrLf & _
           msg
    End
End Sub

Logger

2017-12-19T06:13:00.002+09:00

Option Explicit

Dim data()              As String
Dim DataCellObj         As Object
Dim DataSheetObj        As Object
Dim x                   As Long
Dim y                   As Long
Dim DelColumn           As Long
Dim FlagTransposeError  As Boolean

'Setter/Getter
Public Property Let DeleteColumn(ByVal Num As Long)
DelColumn = Num
End Property

Public Property Get DeleteColumn() As Long
DeleteColumn = DelColumn
End Property


Private Sub Class_Initialize()

'初期化
x = -1
y = -1

End Sub

Public Sub BorderLine(Optional ByVal Sht As Worksheet, Optional ByVal Cell As String, _
Optional ByVal LineStyle As Integer = xlContinuous, _
Optional Weight As Integer = xlThin, _
Optional ColorIndex As Integer = xlAutomatic)

Dim BaseRow     As Long
Dim BaseCol     As Long
Dim RangeObj    As Object

If Not Sht Is Nothing Then Set DataSheetObj = Sht
If DataCellObj Is Nothing Then Call Die("Sheetobjが設定されていません")

If Cell <> "" Then Set DataCellObj = DataSheetObj.Range(Cell)
If DataCellObj Is Nothing Then Call Die("開始のセル情報がありません")

'初期値のままだと出力できないので終了する
If y < 0 Then Exit Sub
    
    BaseRow = DataCellObj.Row
    BaseCol = DataCellObj.Column
    
    Set RangeObj = DataSheetObj.Range(DataSheetObj.Cells(BaseRow, BaseCol), DataSheetObj.Cells(BaseRow + y, BaseCol + x))
    
    RangeObj.Borders(xlEdgeLeft).LineStyle = LineStyle
    RangeObj.Borders(xlEdgeLeft).Weight = Weight
    RangeObj.Borders(xlEdgeLeft).ColorIndex = ColorIndex

    RangeObj.Borders(xlEdgeTop).LineStyle = LineStyle
    RangeObj.Borders(xlEdgeTop).Weight = Weight
    RangeObj.Borders(xlEdgeTop).ColorIndex = ColorIndex
    
    RangeObj.Borders(xlEdgeBottom).LineStyle = LineStyle
    RangeObj.Borders(xlEdgeBottom).Weight = Weight
    RangeObj.Borders(xlEdgeBottom).ColorIndex = ColorIndex
    
    RangeObj.Borders(xlEdgeRight).LineStyle = LineStyle
    RangeObj.Borders(xlEdgeRight).Weight = Weight
    RangeObj.Borders(xlEdgeRight).ColorIndex = ColorIndex
    
    If 0 < x Then
        RangeObj.Borders(xlInsideVertical).LineStyle = LineStyle
        RangeObj.Borders(xlInsideVertical).Weight = Weight
        RangeObj.Borders(xlInsideVertical).ColorIndex = ColorIndex
    End If
    
    If 0 < y Then
        RangeObj.Borders(xlInsideHorizontal).LineStyle = LineStyle
        RangeObj.Borders(xlInsideHorizontal).Weight = Weight
        RangeObj.Borders(xlInsideHorizontal).ColorIndex = ColorIndex
    End If

End Sub

Public Function Count()
    
    If x = -1 And y = -1 Then
    
        Count = 0
    
    Else
    
        '要素数を返す
        Count = UBound(data, 2) + 1

    End If
End Function

Public Function Item(ByVal a As Long, ByVal B As Long, Optional ByVal Str As Variant)

    '引数なし
    If IsMissing(Str) Then
    
        Item = data(a, B)
        
    '引数あり
    Else
    
        data(a, B) = Str
    
    End If

End Function

Public Function Join(ByVal Ele02 As Long, ByVal delimiter As String)
    Dim i    As Long
    Dim temp As String
    
    For i = 0 To UBound(data, 1)
        temp = temp & data(i, Ele02) & IIf(i = UBound(data, 1), "", delimiter)
    Next

    Join = temp
End Function

Public Function Last()

    '最終要素を返す
    Last = UBound(data, 2)

End Function

Private Function TransposeData()
    Dim S        As Long
    Dim t        As Long
    Dim TPData() As String
    ReDim TPData(y, x)
    
    For S = 0 To y
        For t = 0 To x
            TPData(S, t) = data(t, S)
        Next
    Next
    
    TransposeData = TPData
End Function

Public Function Value() As String()

    '２次元配列自体を返す
    Value = data()

End Function

Public Sub Add(ByRef list As Variant)
    Dim i As Long
    
    '１次元の要素数が確定していない時、要素数の調査をおこなう
    If x = -1 Then
        
        If TypeName(list) = "Variant()" Or TypeName(list) = "String()" Then
            
            x = UBound(list)
        
        Else
            
            x = 0
        
        End If
    
    End If
    
    
    '要素数の再定義
    y = y + 1
    ReDim Preserve data(x, y)
    
    If TypeName(list) = "Variant()" Or TypeName(list) = "String()" Then
        
        For i = 0 To x
        
            '要素数が足りないときは、空文字を指定
            On Error Resume Next
            
            data(i, y) = list(i)
            
            'Transpose関数は255文字を越えたデータを受け取るとエラーとなるので判定する
            If 255 < Len(list(i)) Then FlagTransposeError = True
            
            On Error GoTo 0
        
        Next
        
    Else
    
        data(x, y) = list
    
        'Transpose関数は255文字を越えたデータを受け取るとエラーとなるので判定する
        If 255 < Len(list) Then FlagTransposeError = True
    
    End If

End Sub

Public Sub Clear()
    
    '初期化
    Erase data
    
    DelColumn = -1
    
    x = -1
    y = -1
    
    FlagTransposeError = False

End Sub

Private Sub Die(ByVal msg As String)
    
    MsgBox "下記理由により終了します" & vbCrLf & msg
    End

End Sub

Public Function Output(ByVal Sht As Worksheet, ByVal Cell As String, Optional ByVal KeyIndexNumber As Long = -1)
    Dim BaseRow As Long
    Dim BaseCol As Long
    
    'JuuFukuチェック用の引数が指定されていたらチェックする
    If -1 < KeyIndexNumber Then
        
        Call OverLapCheck(KeyIndexNumber)
                     
    End If
    
    BaseRow = Sht.Range(Cell).Row
    BaseCol = Sht.Range(Cell).Column
    
    'DelColumnが1以上でセットされている時該当列をクリアする
    If 0 < DelColumn Then
        Sht.Range(Sht.Cells(BaseRow, BaseCol), Sht.Cells(65536, BaseCol + DelColumn)).ClearContents
    End If
    
    
    '初期値のままだと出力できないので終了する
    If y < 0 Then Exit Function
    
    If FlagTransposeError Then
        
        Sht.Range(Sht.Cells(BaseRow, BaseCol), Sht.Cells(BaseRow + y, BaseCol + x)) = TransposeData()
    
    Else
    
        Sht.Range(Sht.Cells(BaseRow, BaseCol), Sht.Cells(BaseRow + y, BaseCol + x)) = WorksheetFunction.Transpose(data)
    
    End If
    
    Set DataCellObj = Sht.Range(Cell)
    Set DataSheetObj = Sht
    Set Output = Me
    
End Function

Public Sub Sort(Optional ByVal Element As Variant)
    Dim i As Long
    
    '■引数エラーチェック
    
    If VarType(Element) = vbError Then
        '引数が設定されていないと　VarTypeでErrorとなるのでチェックする
        '引数が設定されていない時は、最初の要素についてSortする
        Element = Array(0)

    ElseIf IsNumeric(Element) Then
        '数字の時、整数値か確認。０以上か確認。
        If CLng(Element) <> Element Or Element < 0 Then
            Call Die("Sort関数の引数には、0以上の整数を指定してください")
        
        Else
            Element = Array(CLng(Element))
        End If
    
    ElseIf Not IsArray(Element) Then
        Call Die("Sortメソッドの引数は、配列を指定してください")
    
    End If
    
    '引数がセットされていた時、それらはすべて整数で要素数の範囲内かどうかチェックする
    For i = UBound(Element) To 0 Step -1

        Call BubbleSort(Element(i))
            
    Next
    
End Sub

Private Sub BubbleSort(ByVal Element As Long)
    Dim ChangeData As String
    Dim DataA      As String
    Dim DataB      As String
    Dim FlagChange As String
    Dim i          As Long
    Dim ii         As Long
    
    'データがない時ソートができないので終了する
    If Count = 0 Then Exit Sub
    
    Do
        FlagChange = False
        For i = 0 To UBound(data, 2) - 1
            DataA = data(Element, i)
            DataB = data(Element, i + 1)
            
            If DataB < DataA Then
                FlagChange = True
                
                For ii = 0 To UBound(data, 1)
                    ChangeData = data(ii, i)
                    data(ii, i) = data(ii, i + 1)
                    data(ii, i + 1) = ChangeData
                Next
                
            End If
            
        Next
            
        If FlagChange = False Then Exit Do
    Loop
End Sub

Private Sub OverLapCheck(ByVal KeyIndexNumber As Long)

    Dim HashOverLap As Object
    Dim key         As String
    Dim i           As Long
    Dim ii          As Long
    Dim temp()      As String
    
    '** Objectの生成 **
    Set HashOverLap = CreateObject("Scripting.Dictionary")
    
    'そもそも二次元配列が空の時はループを抜ける
    If y = -1 Then Exit Sub
    
    y = -1
    
    'JuuFukuCheckする
    For i = 0 To UBound(data, 2)
    
        key = data(KeyIndexNumber, i)
        
        If Not HashOverLap.Exists(key) Then
        
            HashOverLap.Add key, ""
            
            y = y + 1
            
            ReDim Preserve temp(UBound(data, 1), y)
            
            For ii = 0 To UBound(data, 1)
            
                temp(ii, y) = data(ii, i)
              
            Next
                
        End If
        
    Next
    
    'Temp内は重複がチェックされたもの。
    'Dataの内容を書き換える
    ReDim data(UBound(temp, 1), UBound(temp, 2))
    
    data = temp
    
    Set HashOverLap = Nothing
End Sub

scanf で charを受け取る

2017-11-04T13:07:00.001+09:00

char以外の文字を受け取りその後charを受け取る場合
以下のように書くと期待しない動きになる

#include 

int main() {
 int n;
 char a;
 char b;

 scanf("%d", &n);
 scanf("%c", &a);
 scanf("%c", &b);

 return 0;
}

scanfは、3回登場するが、入力は10とaの2回

10
a

最初の変数に10が代入。
改行はストリームに残っているので、char変数にaに代入される。
その後、改めて入力したaがchar変数bに代入される。

一度入力した後にcharに代入する場合、改行を毎回捨てる必要がある
①getchar()で読み捨てる

#include 

int main() {
 int n;
 char a;
 char b;

 scanf("%d", &n);
 (void)getchar();
 scanf("%c", &a);
 (void)getchar();
 scanf("%c", &b);

 return 0;
}

②書式文字列に半角スペースを先頭につけ、最初の改行を読み捨てる

#include 

int main() {
 int n;
 char a;
 char b;

 scanf("%d", &n);
 scanf(" %c", &a);
 scanf(" %c", &b);

 return 0;
}

③書式文字列に代入不可(*)を指定して読み飛ばす

#include 

int main() {
 int n;
 char a;
 char b;

 scanf("%d", &n);
 scanf("%*c%c", &a);
 scanf("%*c%c", &b);

 return 0;
}

NULL

2017-10-22T20:49:00.001+09:00

NULLは void型　で値は0

NULLをintに変換すれば0と一緒

#include
int main(){
  if((int)NULL == 0){                                                                                                                                 
    printf("0です\n");
  }else{
    printf("0じゃないです\n");
  }
  return 0;
}

0を(void*)として変換すればNULLと一緒

#include

int main(){
  if(NULL == (void*)0){                                                                                                                               
    printf("0です\n");
  }else{
    printf("0じゃないです\n");
  }
  return 0;
}

typescriptコンパイル結果

2017-08-13T00:21:00.003+09:00

案件でTypeScriptが使えなかった時に備え何が何に変換されるかメモ

■class
.ts

class animal { }

.js

var animal = (function () {
    // コンストラクタ
    function animal() {
    }
    return animal;
}());

■コンストラクタ
.ts

class animal {
    constructor() {
        alert("const");
    }
}

.js

var animal = (function () {
    // コンストラクタ
    function animal() {
        alert("const");
    }
    return animal;
}());

■インスタンス変数(public)
.ts

class animal {
    name: string = "default";
}

.js

var animal = (function () {
    function animal() {
        this.name = "default";
    }
    return animal;
}());

■インスタンス変数(private)
コンパイラ時チェックのみ

■Getter/Setter
.ts

class animal {
    _name: string = "default";

    get name() {
        return this._name;
    }

    set name(value: string) {
        this._name = value;
    }
}

.js

var animal = (function () {
    function animal() {
        this._name = "default";
    }
    Object.defineProperty(animal.prototype, "name", {
        get: function () {
            return this._name;
        },
        set: function (value) {
            this._name = value;
        },
        enumerable: true,
        configurable: true
    });
    return animal;
}());

■staticメソッド、変数
.ts

class animal {
    static count: number = 0;

    static Print(): void {
        alert(animal.count);
    }
}

.js

var animal = (function () {
    function animal() {
    }
    animal.Print = function () {
        alert(animal.count);
    };
    animal.count = 0;
    return animal;
}());

C++メモ

2017-05-31T23:54:00.002+09:00

■コンストラクタ/デストラクタ
Sample.h

#pragma once
class Sample
{
public:
 Sample();
 Sample(int num);
 ~Sample();
};

Sample.cpp

#include "Sample.h"
#include 

Sample::Sample()
{
 printf("コンストラクタ\n");
}

Sample::Sample(int num)
{
 printf("コンストラクタ引数:%d\n", num);
}

Sample::~Sample()
{
 printf("デストラクタ\n");
}

main.cpp

#include "stdio.h"
#include "Sample.h"

int main() {
 Sample s1;
 Sample s2(10); 
 
 //他の言語寄りに記載するなら下記かな
 //Sample s1 = Sample();
 //Sample s2 = Sample(10);

 return 0;
}

■インスタンス変数/メソッド
Sample.h

#pragma once
class Sample
{
public:
 Sample(int num1, int num2);
 void Sum();

private:
 int _num1;
 int _num2;
};

Sample.cpp

#include "Sample.h"
#include 

Sample::Sample(int num1, int num2)
{
 this->_num1 = num1;
 this->_num2 = num2;
}

void Sample::Sum() {
 printf("%d\n", this->_num1 + this->_num2);
}

main.cpp

#include "stdio.h"
#include "stdio.h"
#include "Sample.h"

int main() {
 Sample s(10, 20);
 s.Sum();

 return 0;
}