totoBIGの(0・1・2)、総合統計取るぞーat LOTO
totoBIGの(0・1・2)、総合統計取るぞー - 暇つぶし2ch49:名無しさん@夢いっぱい
12/03/21 00:49:04.80 oxWfiz1Z
                    // 【ファイル名】keta.js
a = new Array("", "", "", "", "");   // 出力する5行を生成した(5口ぶんだから5行ある。5行まで出力できる)
o = WScript.CreateObject("Scripting.FileSystemObject"); // 【実行】cscript keta.js
text = o.OpenTextFile("gyo.txt", 1);//【準備】オフィシャルサイトからコピーして貼り付けた14行を"gyo.txt"のファイル名で保存。
while(! text.AtEndOfStream) {     // ファイルの終わりではない
  string = text.ReadLine();     // ファイルから1行を入力した
  for(p = 0, i = 0; i < 58; i++) {  // 入力した1行は、58文字以内である。出力行の番号pは、0, 1, 2, 3, 4
    s = string.substr(i, 1);    // sは、i番目の1文字
    if(s == "1" || s == "1") {
      a[p] = a[p] + "1";    // 出力行の内容として1を追加した
      p++;            // 次の出力行の番号
    }

    if(s == "0" || s == "0") {
      a[p] = a[p] + "0";    // 出力行の内容として0を追加した
      p++;            // 次の出力行の番号
    }

    if(s == "2" || s == "2") {
      a[p] = a[p] + "2";    // 出力行の内容として2を追加した
      p++;            // 次の出力行の番号
    }
  }
}

text.Close();

for(p = 0; p < 5; p++) {        // 5行を出力する(出力行の番号pは、0, 1, 2, 3, 4)
  WScript.Echo(a[p]);
}


次ページ
続きを表示
1を表示
最新レス表示
レスジャンプ
類似スレ一覧
スレッドの検索
話題のニュース
おまかせリスト
オプション
しおりを挟む
スレッドに書込
スレッドの一覧
暇つぶし2ch