金の生る樹

プログラム・ソースの先頭に必ず、御自身のKEYを設定した共通関数を組み込んでください。

#共通処理
Function Get-Header($Query){...}    ☜  共通関数を組み込んで下さい。

#
#        *** 在庫コインリストを表示する樹 ***
#
function Convert-UnixTimeToDateTime($unixTimestamp){
 # $origin = New-Object -Type DateTime -ArgumentList 1970, 1, 1, 0, 0, 0, 0
 # $origin.AddSeconds($unixTime)

#  $unixTimestamp = <unix timestampの値></p>
    $utcDate = ([DateTime]::Parse("1970/01/01 00:00:00")).addSeconds($unixTimestamp);
    $localDate = [TimeZoneInfo]::ConvertTimeFromUtc($utcDate, [TimezoneInfo]::Local);
    return $localDate
}

#残高情報（軽量）の取得
Function get_info2(){
    $Url = "https://api.zaif.jp/tapi"
    $Nonce = ([System.DateTime]::UtcNow - (Get-Date("1970, 1, 1"))).TotalSeconds
    $Body = New-Object "System.Collections.Generic.Dictionary[[String],[String]]"
    $Body.Add("nonce", "$Nonce")
    $Body.Add("method", "get_info2")
    $Header = Get-Header $Body
    Try{      
        $res = Invoke-RestMethod $Url -Method POST -Headers $Header -Body $Body
        If($res.success -eq 0){
            Write-Host "Oder Error! " $res.error -ForegroundColor Red >> $logfile
            Return "error"
        }Else{
            Return $res
        }
    }Catch{
        Write-Host "Oder Error! " $_.ErrorDetails.Message -ForegroundColor Red >> $logfile
        #Start-Sleep -Milliseconds 5000
        $startdate = (Get-Date).AddSeconds(5)
        Return "error"
    }
}
Function Get-Asset2($AssetName){
    $res = get_info2
    If($AssetName -eq "deposit"){
        Return $res.return.deposit
    }ElseIf($AssetName -eq "jpy"){
        $Asset = $res.return.funds.($AssetName)
        Return $Asset.ToString("#,0")
    }Else{
        $Asset = $res.return.funds.($AssetName)
        Return $Asset.ToString("#,0.00000000")
    }
}

#ユーザー自身の取引履歴を取得
Function trade_history($pair){
    $Url = "https://api.zaif.jp/tapi"
    $Nonce = ([System.DateTime]::UtcNow - (Get-Date("1970, 1, 1"))).TotalSeconds
    $Body = New-Object "System.Collections.Generic.Dictionary[[String],[String]]"
    $Body.Add("nonce", "$Nonce")
    $Body.Add("method", "trade_history")  
    $Body.Add("count", 500)  
    $Body.Add("currency_pair", $pair)  
    $Header = Get-Header $Body    
    Try{      
        $res = Invoke-RestMethod $Url -Method POST -Headers $Header -Body $Body
        If($res.success -eq 0){
            Write-Host "Oder Error! " $res.error -ForegroundColor Red
            Return "error"
        }Else{
            Return $res
        }
    }Catch{
        Write-Host "Oder Error! " $_.ErrorDetails.Message -ForegroundColor Red
        Return "error"
    }
}
Function own_history($pair){
    $res = trade_history $pair 
    Return $res.return
}
#取引き履歴チェック

Function coin-stock($pair,$base_date){
#   echo "coin-stock 取引き履歴チェック 開始" 
#   echo "coin-stock base_price = $base_price" 
    Switch ($pair) {
        "btc_jpy"  { $asset = "btc";  [float]$unit = 0.0001; $column = "#,0"}  # 売却時
        "xym_jpy"  { $asset = "XYM";  [float]$unit = 0.1;    $column = "#,0.0000"}
        "xem_jpy"  { $asset = "xem";  [float]$unit = 0.1;    $column = "#,0.0000"}
        "cicc_jpy" { $asset = "CICC"; [float]$unit = 0.1;    $column = "#,0.0000"} 
        "zaif_jpy" { $asset = "ZAIF"; [float]$unit = 0.1;    $column = "#,0.0000"} 
        "mona_jpy" { $asset = "mona"; [float]$unit = 1;      $column = "#,0.0000"} 
    }
#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    $res = Get-Asset2 $asset ;                       #保有コイン枚数を取得
    $stock = [float]$res  ;                        　#
#   Write-Host "stock = $stock";

$res = own_history $pair ;    #ユーザー自身の取引履歴の取得
    $Keys2 = $res -split ";";
    $counter = $Keys2.length;
    $coin_count = $stock;
    $table1      = @();

$disp = $Keys2.length;
#   Write-Host "Keys2.length = $disp";

for ($i = 0; $i -le $Keys2.length -1; $i++) {    # 有効な注文データを抽出する。
        #Write-Host $i;
        $cheng = $Keys2[$i];
        $cheng = $cheng -replace " ","";
        $cheng = $cheng -replace "=","";
        $cheng = $cheng -replace "@","";
        $cheng = $cheng -replace "{","";
        $cheng = $cheng -replace "}","";
    #   Write-Host "$i $cheng" ;
        $objPs = New-Object PSCustomObject;
    #   $objPs | Add-Member -NotePropertyMembers @{No            = $i}
    #   $objPs | Add-Member -NotePropertyMembers @{currency_pair = $res.$cheng.currency_pair}
    #   $objPs | Add-Member -NotePropertyMembers @{action        = $res.$cheng.action}
        $objPs | Add-Member -NotePropertyMembers @{amount        = $res.$cheng.amount}
        $objPs | Add-Member -NotePropertyMembers @{price         = $res.$cheng.price}
        $objPs | Add-Member -NotePropertyMembers @{fee           = $res.$cheng.fee}
        $objPs | Add-Member -NotePropertyMembers @{fee_amount    = $res.$cheng.fee_amount}
        $objPs | Add-Member -NotePropertyMembers @{your_action   = $res.$cheng.your_action}
    #   $objPs | Add-Member -NotePropertyMembers @{bonus         = $res.$cheng.bonus}
        $res.$cheng.timestamp = Convert-UnixTimeToDateTime($res.$cheng.timestamp)
        $objPs | Add-Member -NotePropertyMembers @{timestamp     = $res.$cheng.timestamp}
    #   $objPs | Add-Member -NotePropertyMembers @{comment       = $res.$cheng.comment}

#   $work_date  = $res.$cheng.timestamp;
    #   $check_date = $work_date.ToString("yyyy-MM-dd");

#   Write-Host "check_date = $check_date : base_date = $base_date  ";
        if ($res.$cheng.your_action -eq "ask") {
            $coin_count = $coin_count + $res.$cheng.amount;
        }
        if ($res.$cheng.your_action -eq "bid") {
            $coin_count = $coin_count - $res.$cheng.amount + $res.$cheng.fee_amount;
        }
        $table1 += $objPs;      #   保有コイン数分の履歴を遡り、注文データを抽出する。
    #   Write-Host "coin_count = $coin_count";
    #   if ($coin_count -le 0.000001) { break }
        if ($coin_count -le 0.00001) { break }
    }

# ---------------------------------------------------------------------------------------
    $counter = $table1.length;
#   Write-Host "table1.length = $counter";
    $coin_count = 0;
    $ask_moneys = 0;
    $bid_moneys = 0;
    $fee_moneys = 0;
    $flag = $null;
    $ask_priceL = 0;
    $ask_priceS = 0;
    $table2      = @();

$base_date = $base_date.ToString("yyyy-MM-dd");          # 報告日付
    for ($i = 0; $i -le $table1.length -1; $i++) {           # 売上を算出する
        $work_date = $table1[$i].timestamp;                  # 取引き日時
        $check_date = $work_date.ToString("yyyy-MM-dd");     # 取引き日付

#   Write-Host "check_date = $check_date : base_date = $base_date  ";
        if ($check_date -le $base_date) {
            if (($table1[$i].your_action -eq "ask") -or ($flag -eq "start")) {
                if ($flag -eq $null) {
                #   $ask_priceL = $table1[$i].price;
                    $ask_priceL = 0;
                    $ask_priceS = 0;
                #   Write-Host "ask_priceS = $ask_priceS ask_priceL = $ask_priceL";
                }
                $flag = "start";
                if (($table1[$i].your_action -eq "ask") -and ($check_date -eq $base_date)) {
                                                # 報告日の売り上げを抽出する。
                    $table2 += $table1[$i];
                    $coin_count = $coin_count + $table1[$i].amount;
                #   $ask_moneys = $ask_moneys - $table1[$i].amount * $table1[$i].price - $table1[$i].fee;
                    $ask_moneys = $ask_moneys + $table1[$i].amount * $table1[$i].price;    # 売上累計
                    $fee_moneys = $fee_moneys + $table1[$i].fee_amount;                    # 手数料累計
                }else{
                    $table2 += $table1[$i] ;    # 報告日の最初のask以前の注文を抽出する。
                }
            }else{
                $table2 += $table1[$i] ;    # 報告日の最初のask以後の注文を抽出する。
            }
        }else{
            $table2 += $table1[$i] ;    # 報告日より未来日の注文を抽出する。
        }
    }

#   Write-Host "coin_count = $coin_count : ask_moneys = $ask_moneys : fee_moneys = $fee_moneys  ";

$table3 = @();       #  仕入コイン注文テーブル
    $counter2 = 0;
    $coins  = 0;
    $amount = 0;
    $fee_amount = 0;

$counter = $table2.length;
#   Write-Host "coin-stock 集計対象注文件数 = $counter";
#   Write-Host "loop start ask_priceS = $ask_priceS ask_priceL = $ask_priceL";
    $ask_flag = "non"
    for ($j = 0; $j -le $table2.length - 1; $j++) {
        switch ($table2[$j].your_action) {
            "ask" {        # 
            #   Write-Host "ask_priceL = $ask_priceL";
                $ask_flag = "ask"
                if ($table2[$j].price -ge $ask_priceL) {
                    $ask_priceL = $table2[$j].price;
            #   }elseif ($table2[$j].price -gt $ask_priceL) {
            #       $flag = "break";
                }elseif ($table2[$j].price -ge $ask_priceS) {
                    $work_date = $table1[$j].timestamp;                  # 取引き日時
                    $check_date = $work_date.ToString("yyyy-MM-dd");     # 取引き日付
                    if ($check_date -ne $base_date) {
                        $ask_priceS = $table2[$j].price ;
                    }
                }
            }
            "bid" {
                $limit_line = $table2[$j].price * $table2[$j].amount / ($table2[$j].amount * 0.999) * 1.001;
            #   Write-Host "ask_priceS = $ask_priceS limit_line = $limit_line ask_priceL = $ask_priceL";
                # limit_line  売ってはいけない限界価格
            #   if ((($ask_priceS -lt $limit_line) -and ($limit_line -lt $ask_priceL)) -or ($ask_flag -ne "ask")) {
                if (($limit_line -gt $ask_priceL) -or ($ask_flag -ne "ask")) {
            #   if ($table2[$j].price -lt $limit_price) {
                    $coins  = $coins  + $table2[$j].amount;
                #   Write-Host "$j coins = $coins : coin_count = $coin_count";
                    $disp = $table2[$j].price
                #   Write-Host "$j table2[$j].price = $disp";
                    if ($coins -ge $stock) {     #  保有コイン枚数数
                        $flag = "break";
                    }
                #   $bid_moneys = $bid_moneys + $table2[$j].amount     * $table2[$j].price;  # 仕入累計
                #   $fee_moneys = $fee_moneys + $table2[$j].fee_amount * $table2[$j].price ; # 手数料累計
                    $amount     = $amount     + $table2[$j].amount;
                    $fee_amount = $fee_amount + $table2[$j].fee_amount;
                    $objPs = New-Object PSCustomObject;
                    $objPs | Add-Member -NotePropertyMembers @{amount      = $table2[$j].amount};       # コイン枚数
                    $objPs | Add-Member -NotePropertyMembers @{price       = $table2[$j].price};        # コイン価格
                    $limit = $limit_line.Tostring("#,#");
                    $objPs | Add-Member -NotePropertyMembers @{limit       = "($limit.0)"};               # 限界価格
                    $objPs | Add-Member -NotePropertyMembers @{fee         = $table2[$j].fee};          # 手数料
                    $disp = $table2[$j].fee_amount.Tostring("#,#0.000000");
                    $objPs | Add-Member -NotePropertyMembers @{fee_amount  = $disp};   # 手数料（枚）
                #   $objPs | Add-Member -NotePropertyMembers @{your_action = $table2[$j].your_action};  # 注文種別
                    $objPs | Add-Member -NotePropertyMembers @{timestamp   = $table2[$j].timestamp};    # 注文日時
                    $table3 += $objPs;        # 仕入注文収集
                #   }
                }
            }
        }
        if ($flag -eq "break") { break }     #  forループからの脱出
    }

#   Write-Host $table3[0];
     
#   Write-Host "coins = $coins";
#   Write-Host "$j amount = $amount : fee_amount = $fee_amount";
#   Write-Host "ask_moneys = $ask_moneys  and  bid_moneys = $bid_moneys  and  fee_moneys = $fee_moneys";

$objPs = New-Object PSCustomObject;
    $objPs | Add-Member -NotePropertyMembers @{table       = $table3}        # テーブル
    $objPs | Add-Member -NotePropertyMembers @{date        = $base_date}     # 収支日付
    $objPs | Add-Member -NotePropertyMembers @{amount      = $amount}        # 仕入枚数
    $objPs | Add-Member -NotePropertyMembers @{fee_amount  = $fee_amount}    # 手数料（枚）
    $objPs | Add-Member -NotePropertyMembers @{coin_count  = $coin_count}    # 在庫枚数

return $objPs;
}

Function coin-list($pair,$proper,$ascend){
    echo "在庫管理 開始"

Switch ($pair) {
        "btc_jpy"  { $asset = "btc";  [float]$unit = 0.0001; $column = "#,0"}
        "xym_jpy"  { $asset = "XYM";  [float]$unit = 0.1;    $column = "#,0.0000"}
        "xem_jpy"  { $asset = "xem";  [float]$unit = 0.1;    $column = "#,0.0000"}
        "cicc_jpy" { $asset = "CICC"; [float]$unit = 0.1;    $column = "#,0.0000"} 
        "zaif_jpy" { $asset = "ZAIF"; [float]$unit = 0.1;    $column = "#,0.0000"} 
        "mona_jpy" { $asset = "mona"; [float]$unit = 1;      $column = "#,0.0000"} 
    }

$coin = 0               # 保有コイン数
    $money = 0              # 購入金額
    $table = @()

$base_date = (Get-Date).adddays(0)

$res = coin-stock $pair $base_date
    
    $table       = $res.table         # 在庫リスト

$report_day  = $res.date          # 集計日付
    $amount      = $res.amount        # 仕入枚数
    $fee_amount  = $res.fee_amount    # 手数料
    $display_fee = $fee_amount.Tostring("#,#0.######")

$bid_count = $table.length
    Write-Host "在庫リスト  $bid_count 件"
    if ($ascend -eq "yes") {
        $table | Sort-Object -property $proper | Ft * -AutoSize
    }else{
        $table | Sort-Object -property $proper -Descending | Ft * -AutoSize
    }
    Write-Host "集計日付    = $report_day"    # 売却金額
    Write-Host "仕入枚数    = $amount"        # 仕入枚数
    $display = $fee_amount.Tostring("#,#0.0#####")
    Write-Host "手数料（枚）= $display"       # 手数料
    $coin_count = $amount - $fee_amount
    Write-Host "在庫枚数    = $coin_count"    # 在庫枚数
    echo "在庫枚数:$coin_count = 仕入枚数:$amount - 手数料（枚数）:$display_fee"

[float]$Asset2 = Get-Asset2 $Asset        # 残高を取得
    $display = $Asset2.Tostring("#,#0.######") + "枚"
    Write-Host "Zaif保有資産（枚数） = $display"
}

cls     # 在庫管理
#Function coin-list($pair     ,$proper    ,$ascend)
          coin-list "btc_jpy"  "price" "dis"

実行結果です。

在庫管理 開始
在庫リスト  28 件

amount     price limit         fee fee_amount timestamp          
------     ----- -----         --- ---------- ---------          
 0.001 5260000.0 (5,270,531.0) 0.0 0.000001   2022/04/29 4:25:37 
 0.001 5207690.0 (5,218,116.0) 0.0 0.000001   2022/04/29 7:56:42 
 0.001 5160000.0 (5,170,330.0) 0.0 0.000001   2022/04/29 12:41:29
 0.001 5149335.0 (5,159,644.0)   0 0.000000   2022/05/05 4:56:55 
 0.001 5110625.0 (5,120,856.0) 0.0 0.000001   2022/05/05 10:46:28
 0.001 4849400.0 (4,859,109.0) 0.0 0.000001   2022/05/06 0:40:25 
 0.001 4774215.0 (4,783,773.0) 0.0 0.000001   2022/05/06 12:42:43
 0.001 4772550.0 (4,782,105.0) 0.0 0.000001   2022/05/06 3:51:19 
 0.001 4742105.0 (4,751,599.0) 0.0 0.000001   2022/05/06 18:28:00
 0.001 4715900.0 (4,725,341.0) 0.0 0.000001   2022/05/07 5:52:53 
 0.001 4711865.0 (4,721,298.0) 0.0 0.000001   2022/05/07 17:48:38
 0.001 4686855.0 (4,696,238.0) 0.0 0.000001   2022/05/06 19:59:16
 0.001 4685000.0 (4,694,379.0) 0.0 0.000001   2022/05/07 14:23:40
 0.001 4582980.0 (4,592,155.0) 0.0 0.000001   2022/05/08 10:22:28
 0.001 4550000.0 (4,559,109.0) 0.0 0.000001   2022/05/08 21:06:21
 0.001 4524660.0 (4,533,718.0) 0.0 0.000001   2022/05/09 5:24:18 
 0.001 4489295.0 (4,498,283.0) 0.0 0.000001   2022/05/09 6:31:19 
 0.001 4221415.0 (4,229,866.0) 0.0 0.000001   2022/05/10 22:31:08
 0.001 4187180.0 (4,195,563.0) 0.0 0.000001   2022/05/10 16:14:50
 0.001 4181210.0 (4,189,581.0) 0.0 0.000001   2022/05/11 19:12:18
 0.001 3970000.0 (3,977,948.0) 0.0 0.000001   2022/05/17 18:28:34
 0.001 3969800.0 (3,977,748.0) 0.0 0.000001   2022/05/17 22:02:18
 0.001 3963350.0 (3,971,285.0) 0.0 0.000001   2022/05/12 3:18:51 
 0.001 3940000.0 (3,947,888.0) 0.0 0.000001   2022/05/18 8:02:57 
 0.001 3900465.0 (3,908,274.0) 0.0 0.000001   2022/05/20 11:01:11
 0.001 3853535.0 (3,861,250.0) 0.0 0.000001   2022/05/24 2:34:56 
 0.001 3763090.0 (3,770,624.0)   0 0.000000   2022/05/26 15:30:43
 0.001 3706845.0 (3,714,266.0) 0.0 0.000001   2022/05/26 18:50:19

集計日付    = 2022-05-26
仕入枚数    = 0.028
手数料（枚）= 0.000026
在庫枚数    = 0.027974
在庫枚数:0.027974 = 仕入枚数:0.028 - 手数料（枚数）:0.000026
Zaif保有資産（枚数） = 0.028005枚

プログラム・ソースは画面左上のファイル(F)をクリックし、任意の名前を付けて保存して下さい。

在庫リストを表示する樹

仕様

留意事項

プログラム・ソース

ページ切り替え