この記事は2008/02/17にわんくまブログで書いたものです。

ちょっと前に、PowerShellで作ったタイピング練習用ソフトを紹介します。

このタイピングソフトは、CNNの記事をダウンロードしてきて、その記事から１単語ずつ画面に表示し、ユーザーにその通り入力してもらうというものです。

タイピング速度の速い人は、CNNの最新記事（英語）をちょろっと読めてしまう、一石二鳥のソフトとなっています。

制限時間は６０秒１本勝負で（実際には正確に６０秒にすることはできませんでした。後述します）、記事カテゴリを選択できるようにしてあります。

#===============================================================================
# Typing: CNNの記事(RSS)を利用してタイピング練習する
#
# パラメータ
#        なし
# 使用例
#   PS > Typing
#
# copyright HIRO's.NET(http://hiros-dot.net/)
#===============================================================================
function global:Typing
{
  #===============================================
  # 初期化処理
  #===============================================
  #背景色を保存
  $bgclr = $host.UI.RawUI.BackgroundColor
  
  #前景色を保存
  $fgclr = $host.UI.RawUI.ForegroundColor
  
  #問題の色を定義
  $questioncolor = [System.ConsoleColor]::Red

  $rss_list = @(
    @("Top Stories","http://rss.cnn.com/rss/cnn_topstories.rss"),
    @("World", "http://rss.cnn.com/rss/edition_world.rss"),
    @("Africa","http://rss.cnn.com/rss/edition_africa.rss"),
    @("Americas","http://rss.cnn.com/rss/edition_americas.rss"),
    @("Asia","http://rss.cnn.com/rss/edition_asia.rss"),
    @("Europe","http://rss.cnn.com/rss/edition_europe.rss"),
    @("Middle East","http://rss.cnn.com/rss/edition_meast.rss"),
    @("U.S.","http://rss.cnn.com/rss/edition_us.rss"),
    @("World Business","http://rss.cnn.com/rss/edition_business.rss"),
    @("Technology","http://rss.cnn.com/rss/edition_technology.rss"),
    @("Science & Space","http://rss.cnn.com/rss/edition_space.rss"),
    @("Entertainment","http://rss.cnn.com/rss/edition_entertainment.rss"),
    @("World Sport","http://rss.cnn.com/rss/edition_sport.rss"),
    @("Football","http://rss.cnn.com/rss/edition_football.rss"),
    @("Travel","http://rss.cnn.com/rss/edition_travel.rss"),
    @("Video","http://rss.cnn.com/rss/cnn_freevideo.rss"),
    @("Most Recent","http://rss.cnn.com/rss/cnn_latest.rss"),
    @("Art of Life Blog","http://rss.cnn.com/rss/edition_artoflife.rss"),
    @("Business Traveller Blog","http://rss.cnn.com/rss/edition_richardquest.rss"),
    @("In the Field Blog","http://rss.cnn.com/rss/edition_inthefield.rss"),
    @("World's Untold Stories Blog","http://rss.cnn.com/rss/edition_untoldstories.rss"),
    @("The Screening Room Blog","http://rss.cnn.com/rss/edition_screeningroom.rss"),
    @("Marketplace Middle East Blog","http://rss.cnn.com/rss/edition_mme.rss"),
    @("Inside the Middle East Blog","http://rss.cnn.com/rss/edition_ime.rss")
  )
  
  Write-Host "タイピング練習の問題カテゴリーを選択してください"
  for ( $icnt = 0; $icnt -lt $rss_list.Length; $icnt++)
  {
    Write-Host $($($icnt + 1).ToString("0#") + ": " + $rss_list[$icnt][0])
  }
  
  #ユーザーが選択したカテゴリ番号を保存
  $no = Read-Host
  
  if ( $([int]$no) -le 0 -and $([int]$no) -gt  $rss_list.Length )
  {
    Write-Host "Noを正しく入力してね"
    return
  }
  Write-Host "データダウンロード中..."
  $feed = [xml](new-object system.net.webclient).downloadstring($rss_list[$no - 1][1])
  $contents =$($feed.rss.channel.item | Select-Object -property DESCRIPTION)
  Write-Host "データダウンロード完了"

  foreach ( $content in $contents )
  {
    $a += $content.Description.split(" ")
  }

  Write-Host "[Enter]キーを押すと始まります"
  Read-Host
   
  $start = Get-Date
  $i = 0
  $score = 0
  $miss = 0
    
  #背景色を黒にする
  $host.UI.RawUI.BackgroundColor = [System.ConsoleColor]::Black
  cls
    
  while ( $(Get-Date).subtract($start).TotalSeconds -lt 60)
  {
    #問題を出す
    if ( $a[$i] -ne " ")
    {
      Write-Host $a[$i] -foregroundcolor $questioncolor
      
      #ユーザーからの回答入力を取得する
      $Host.UI.RawUI.ForegroundColor = $fgclr
      $input = Read-Host
      
      cls
      
      #正解したらスコアをカウントアップ
      if ( $input -ceq $a[$i] )
      {
        $score += 10
      }
      else
      {
        $miss++;
        Write-Host "`a"
        cls
      }
    }
    $i++
    
    #問題がなくなったら終了
    if ($a.Length -eq $i )
    {
      break;
    }
  }

  Write-Host $("start: " + $start)
  Write-Host $("end: " + $(Get-Date))
  Write-Host $("Score: " + $Score)
  Write-Host $("Miss:" + $miss)
}

1.背景色と前景色

  PowerShellのコンソールウィンドウの背景色や前景色は　$host.UI.RawUI のBackgroundColor と ForegroundColor を指定することで変更できます。

  色はSystem.ConsoleColor列挙体を指定します。

2.問題の色

  出題する問題（単語）の色は Write-Hostコマンドレットの-foregroundcolor パラメータで指定しています。

3.カテゴリを選択させる

　カテゴリはあらかじめ変数として持っておくこととしました。($rss_list)　このとき変数は２次元配列変数にし、カテゴリ名とRSSのURLをペアで持たせています。

  $rss_list[0][1]とするとURL http://rss.cnn.com/rss/cnn_topstories.rss　が取り出せるという寸法です。

  で、ユーザーにカテゴリを入力させるわけですが、Read-Hostコマンドレットを使用することで入力を取得することができます。

4.rssのダウンロード

  rssのダウンロードはsystem.net.webclientのdownloadstringメソッドを使用しています。

  [xml](new-object system.net.webclient).downloadstring($rss_list[$no - 1][1])  の部分です。

  先頭に[xml]と付けることでxmlにキャストしています。

5.descriptionタグ内容の取り出し

  $contents =$($feed.rss.channel.item | Select-Object -property DESCRIPTION)

　で行っています。 Select-Object でDescriptionを取り出します。

6.制限時間

  whileでループして６０秒経過したら終わるようにしています。

  while ( $(Get-Date).subtract($start).TotalSeconds -lt 60)

  {

  }

  ただし、このタイピングソフトは正確には60秒を計測することはできません。

　なぜなら、Whileの中でRead-Hostコマンドレットを使用しているからです。

  Read-Hostコマンドレットはユーザーが[Enter]を押すまで処理を止めてしまいます。よって６０秒経過してもユーザーが何も入力しなければ、このループは１時間経過しようが止まらないのです。　だれか良い方法知っていたら教えてください。 Read-Keyみたいなコマンドレット作れば良いのかしら？

7.入力ミスをしたらBeepを鳴らす

  Beep音はWrite-Host "`a" と書けば鳴らすことができます。

ほんとは、もう少しコードをきれいにしてから載せるつもりでしたが...