━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ レンタル掲示板とクイズ投稿サイトを開発した櫻井文人の プログラムの考え方が身につくメルマガ『プログラムは考え方です』 ─────────────────────────────────── メルマガ発行人 櫻井文人のプロフィール ⇒ http://www.bunzin.net/program/prof.html ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ こんにちは、メルマガ発行人の櫻井文人です。 このメルマガを続けていく意味があるのか? 疑問を感じてきました・・・詳しくは編集後記で。 今回も引き続きファイルについてです。 今回からは、実際VBScriptを使って 前回のプログラムで出力したファイルを読んでみます。 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 【おすすめ】 話題のデジタルメモ「ポメラ」 デジタルメモ「ポメラ」 コチラ ⇒ http://www.moshimo.com/article/121691/172429 今なら 20,790円 のところを 16,800円 で販売中です。 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ■■ ファイルの中身を見てみましょう ─────────────────────────────────── 今回は、ファイルの中身を見てみましょう。 前回のメルマガで作ったファイルを書くプログラムが出力した「text.txt」の 中身を見てみることにします。 というわけで、 VBScriptでファイルの中身を読むプログラムを作ってみましょう。 ■ プログラムの概要 「text.txt」というファイルの中身を1行ずつ読み込んで表示します。 ■ 実際のプログラムと説明 以下が、実際のプログラムです。 1行目:set objFso = WScript.CreateObject("Scripting.FileSystemObject") 2行目:set objFile = objFso.OpenTextFile("text.txt") 3行目:Do Until objFile.AtEndOfStream = true 4行目: rbuf = objFile.ReadLine 5行目: MsgBox rbuf 6行目:Loop 7行目:objFile.Close ※説明を簡潔にするためにエラーの処理ははしょってます。 ・1行目では、ファイルを操作するための部品のような FileSystemObjectオブジェクトというものを使う準備をしています。 ここで新しくFileSystemObjectオブジェクトが作られて、 objFsoに格納されます。 FileSystemObjectオブジェクトの中にはメソッドという関数のような ものがいくつか入っているので、これを使ってファイルを操作します。 ・2行目では、ファイルをオープンしています。 ここでは「text.txt」という名前のファイルをオープンします。 この時、ファイル名だけ指定すると、 デフォルトのモードである読み込み専用モードで ファイルがオープンされます。 objFsoに格納されたFileSystemObjectオブジェクトの OpenTextFileメソッドを実行することで ファイルをオープンすることができます。 ・3行目では、ファイルが最後の行まで読み終わったかを確認しています。 AtEndOfStreamメソッドがtrueを返している間は、 ファイルはまだ読み終わっていないので、次の4行目に処理を進めます。 そうでない場合は、7行目に処理を進めます。 ・4行目では、ReadLineメソッドでファイルを1行読み込んでいます。 ・5行目では、MsgBox関数で4行目で読み込んだファイルの内容を 表示しています。 ・7行目では、Closeメソッドでファイルをクローズしています。 ■ コピペ用のプログラムです ファイルにコピペして使えるように、行番号を外したプログラムも以下に 書いておきますね。 ---------------------------------------------------------------------- set objFso = WScript.CreateObject("Scripting.FileSystemObject") set objFile = objFso.OpenTextFile("text.txt") Do Until objFile.AtEndOfStream = true rbuf = objFile.ReadLine MsgBox rbuf Loop objFile.Close ---------------------------------------------------------------------- VBScriptで作ったプログラムの動かし方が分からない場合は以下のページで 詳しく説明してますので確認してみてください。 ⇒ http://www.bunzin.net/program/vbscript/execute.html ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ■■ 編集後記 ─────────────────────────────────── 私は最近、毎回メルマガを発行するたびに ある疑問を感じるようになってきました。 それは「このメルマガが、本当にあなたの役にたっているのか?」です。 もしかしたら、独りよがりな内容になっていて、 スルーされているのではないか? もしそういうことなら、このままメルマガを 続けていく意味はあるのだろうか? そして、いろいろと悩んだ結果・・・ 私がいくら思いをめぐらせてみても、 このメルマガを読んでいただいている あなたにきいてみないことには始まらないという結論に到達しました。 ということで・・・思い切って、 『ご意見・ご要望 受付フォーム』を準備してみました。 ご意見・ご要望 受付フォーム ⇒ http://www.bunzin.net/program/mailmaga/demand/ 匿名ですので、どんなことを書いて送っていただいても まったく問題ありません。 私が顔を真っ赤にして怒りだすような内容を送っていただいても、 私はあなたを特定することはできないのでご安心ください。 いただいた意見を参考にさせていただいて、 独りよがりではない、あなたに役に立つメルマガに作り変えて 行きたいと考えています。 なので、どんな些細な事でも良いので意見をいただけると とてもありがたいのです。 ちなみに受付フォームの内容は以下のとおりになっています。 Q1.メルマガで取り上げてほしいプログラム言語はありますか。 Q2.メルマガで取り上げてほしいテーマはありますか。 Q3.あなたがプログラミングで悩んでいることや困っていること があればご記入ください。 Q4.その他、ご意見やご要望があればご記入ください。 もちろん、全ての項目が必須ではないので、埋められるところだけ 埋めてお送りください。 極端な話、全て無記入で送っていただいても差し支えありません。 というわけなので、ぜひ下の受付フォームからどうぞ。 ご意見・ご要望 受付フォーム ⇒ http://www.bunzin.net/program/mailmaga/demand/ 最後までお読みいただき、ありがとうございました。 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 【おすすめ】 大人気!デジタルメモ「ポメラ」DM5 20,790円のポメラを 今だけ 16,800円 で販売中です。 デジタルメモ「ポメラ」DM5 コチラ ⇒ http://www.moshimo.com/article/121691/172429 この機会をお見逃し無く! ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ●櫻井が開発したレンタル掲示板は コチラ ⇒ http://www.bunzin.gr.jp/m_board/ 画像のアップロードも可能なレンタル掲示板です。 無料ですのでお気軽にどうぞ。 ●櫻井が開発したクイズ投稿サイトは コチラ ⇒ http://www.bunzin.gr.jp/quiz/ あなたが考えたクイズを投稿することができます。 投稿されたクイズに回答することもできます。 無料ですのでお気軽にどうぞ。 ●BUNZIN NET アプリ コチラ ⇒ http://www.bunzin.net/app/ ●プログラム用語辞典 コチラ ⇒ http://www.bunzin.net/program/dictionary/ ●お手軽!VBScriptを使ってみよう コチラ ⇒ http://www.bunzin.net/program/vbscript/ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ メルマガ発行人 櫻井文人 メルマガ発行責任者情報は コチラ ⇒ http://www.bunzin.net/program/mghsinfo.html アドレス変更と登録解除はコチラ ⇒ http://www.mag2.com/m/0000293166.html メルマガバックナンバーは コチラ ⇒ http://www.bunzin.net/program/mailmaga/backnumber/ 櫻井文人のプロフィール ⇒ http://www.bunzin.net/program/prof.html ご意見・ご感想はコチラ ⇒ bunzin●bunzin.gr.jp (メール送信の際は、●を@に置き換えてください。) (櫻井が確実に読みますが、返信は保障できません。) ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ |