このディレクトリの索引

# 出典 :: ★★ Java の宿題ここで答えます Part 67 ★★ #958 # 【 課題 】テキストファイルから文字列5行を読み込み、別のテキストへ縦書きで書き出す # 【 形態 】1. Javaアプリケーション(main()で開始) # 【 期限 】7/14 am6:00 # 【 Ver  】Eclipse Version: 3.4.2 # 【 補足 】 # あいう # かきく # さしす # 上記のようなテキストファイルを読み込み、 # あかさ # いきし # うくす # のように別のテキストファイルに書き出す感じです。 'テキストファイルから文字列5行を読み込み、別のテキストへ縦書きで書き出す'(_テキストファイル,_別のテキストファイル) :- 'テキストファイルから文字列5行を読み込み、'(_テキストファイル,_行文字ならびのならび), '別のテキストへ縦書きで書き出す'(_別のテキストファイル,_行文字ならびのならび). 'テキストファイルから文字列5行を読み込み、'(_テキストファイル,_行文字ならびのならび) :- open(_テキストファイル,read,_入力), 文字列を5行読み込み(_入力,_行文字ならびのならび), close(_入力). 文字列を5行読み込み(_入力,_行文字ならびのならび) :- findnsols(5,_行文字ならび,( 連続して行文字ならびを得る(_入力,_行文字ならび)),_行文字ならびのならび),!. 連続して行文字ならびを得る(_入力,_) :- at_end_of_stream(_入力),!,fail. 連続して行文字ならびを得る(_入力,_行文字ならび) :- 行文字ならびを得る(_入力,_行文字ならび). 連続して行文字ならびを得る(_入力,_行文字ならび) :- 連続して行文字ならびを得る(_入力,_行文字ならび). 行文字ならびを得る(_入力,_行文字ならび) :- 行入力(_入力,_行文字列), atom_chars(_行文字列,_行文字ならび). 行入力(_入力,_行) :- read_line_to_codes(_入力,_文字コードならび), atom_codes(_行,_文字コードならび). 別のテキストファイルへ縦書きで書き出す(_別のテキストファイル,_行文字ならびのならび) :- 別のテキストファイルへ(_別のテキストファイル,_出力), 縦書きで書き出す(_出力,_行文字ならびのならび), 出力を閉じる(_出力). 別のテキストファイルへ(_別の出力ファイル,_出力) :- open(_別のテキストファイル,write,_出力). 縦書きで書き出す(_出力,_行文字ならびのならび) :- forall(縦書きで(_行文字ならびのならび,_縦書き),書き出す(_出力,_縦書き)). 縦書きで(_行文字ならびのならび,_縦書き) :- 最長の行文字数(_行文字ならびのならび,_最長の行文字数), 空白文字を付加して行の文字数一致させる(_最長の行文字数,_行文字ならびのならび,_空白を付加し長さを揃えた行文字ならびのならび), 行列の転置(_空白を付加し長さを揃えた行文字ならびのならび,_縦書き). 最長の行文字数(_行文字ならびのならび,_最長の行文字数) :- findmax(_行の文字数,( 行文字ならびを取り出しその文字数を得る(_行文字ならびのならび,_行の文字数)),_最長の行文字数). 行文字ならびを取り出し行その文字数を得る(_行文字ならびのならび,_行の文字数) :- member(_行文字ならび,_行文字ならびのならび), length(_行文字ならび,_行の文字数). 空白文字を付加し長さを揃えた行文字ならびのならび(_最長の行文字数,_行文字ならびのならび,_空白を付加し長さを揃えた行文字ならびのならび) :- findall(_空白を付加し長さを揃えた行文字ならび,( 行文字ならびを取り出し空白文字を付加して文字数を一致させる(_最長の行文字数,_行文字ならびのならび,_空白を付加し長さを揃えた行文字ならび)),_空白を付加し長さを揃えた行文字ならびのならび). 行文字ならびを取り出し空白文字を付加して文字数を一致させる(_最長の行文字数,_行文字ならびのならび,_空白を付加し長さを揃えた行文字ならびのならび) :- 行文字ならびを取り出し(_行文字ならびのならび,_行文字ならび), 空白文字を付加して文字数を一致させる(_最長の行文字数,_行文字ならび,_空白を付加し長さを揃えた行文字ならび). 行文字ならびを取り出し(_行文字ならびのならび,_行文字ならび) :- member(_行文字ならび,_行文字ならびのならび). 空白文字を付加して文字数を一致させる(_最長の行文字数,_行文字ならび,_空白を付加し長さを揃えた行文字ならび) :- length(_空白を付加し長さを揃えた行文字ならび,_最長の行文字数), append(_行文字ならび,_空白文字ならび,_空白を付加し長さを揃えた行文字ならび), 空白文字ならび(_空白文字ならび). 空白文字ならび([]). 空白文字ならび([' '|_空白文字ならび]) :- 空白文字ならび(_空白文字ならび). 書き出す(_出力,_空白を付加し長さを揃えた行文字ならびのならび) :- forall(表示行文字列(_空白を付加し長さを揃えた行文字ならびのならび,_行文字列),format(_出力,'~w\n',[_行文字列])). 表示行文字列(_空白を付加し長さを揃えた行文字ならびのならび) :- member(_行文字ならび,_空白を付加し長さを揃えた行文字ならびのならび), atomic_list_concat(_行文字ならび,_行文字列). 出力を閉じる(_出力) :- close(_出力). findmax(_射影項,_目標,_最大値) :- findall(_射影項,_目標,_射影項ならび), 最大値(_射影項ならび,_最大値). 最大値(_ならび,_最大値) :- msort(_ならび,_整列したならび), last(_整列したならび,_最大値).