テキストファイルを分割

Java

テキストファイルを任意の行数ごとに分割し、別ファイルに保存します。 import javax.swing.*; import java.io.*; import javax.swing.filechooser.*; public class TextDevider { /** * １ファイルあたりの行数 */ private final static int MAX_LINE = 100…

簡単なオウム返し

JSP

JSPのうわさを聞いてちょっと試してみたのですが、思っていたよりも簡単でした。ウェブアプリを作るだけならば、RoRよりもJSPの方が手軽だったかもしれません。ただ新しい言語・フレームワークを学びたいので、RoRによる作成は続けようと思います。とりあえ…

HSVを指定して色を取得する

Delphi

HSVをDelphi（Pascal）でHSV形式を利用するための自作関数。 unit HSVtoColor2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls; type TForm1 = class(TForm) Image1: TImage; procedure Fo…

RPGっぽく戦闘してみる

Ruby

テキストRPGのように自動戦闘を行います。ヘタレ英語なのは仕様です。 Dragon's attack! Mini slime gets 23 damage! Mini slime's attack! Dragon gets 2 damage!Dragon's attack! Mini slime gets 23 damage!Mini slime's HP is zero! Dragon won! # モン…

砂時計ツール

C#

俗に言うキッチンタイマー。個人的に使うもので、エラー処理はほとんど行っていない。 using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Text; using System.Windows.…

リストをHTMLに変換

Scheme

(define (list-to-item l) (if (not (null? l)) (begin (display " <li>") (display (car l)) (display "</li>") (newline) (list-to-item (cdr l))))) (define (list-to-ul l) (begin (display "<ul>") (newline) (list-to-item l) (display "</ul>") (newline))) (define (li…

HTML内の見出し一覧を取得する

Java

import java.io.*; import java.util.*; import java.util.regex.*; import javax.swing.*; import javax.swing.filechooser.FileNameExtensionFilter; public class HTMLIndexMaker { public static void main(String[] args) { // ファイルを選択する File…