プログラミング初級１

今回は、ちょっと息抜きです。(笑)
プログラム・ロジック的なものは、変わりません。メッセージボックスを、デバッグ画面に変えるだけです。

マイドキュメントのフォルダにあるテキストファイル mojisu.txt をオープンする。
mojisu.txt の最後になるまで、以下の処理を繰り返す。
　　(1) mojisu.txt を１行読み込む。
　　(2) 文字数の計算（合計）をする。
　　(3) 読み込んだ内容と文字数を、メッセージボックスで表示する。
mojisu.txt の全文字数を、デバッグ画面に表示する。
mojisu.txt を閉じる。

Sub Count5()

'文字数カウント・プログラム
'第５ステップ：第４ステップの MsgBox → Debug.Print（デバッグ行）

    Dim gyo     As String       '読み込んだ行を入れておく変数を宣言
    Dim moji_su As Long         '１行の文字数用変数を宣言
    Dim gokei   As Long         'ファイルの文字数用変数を宣言
    Dim gyo_no  As Integer      '行番号用変数を宣言

    gokei = 0                   '合計用変数の初期化
    gyo_no = 0                  '行番号用変数の初期化

    Open "C:\My Documents\mojisu.txt" For Input As #1   'ファイルのオープン

        Do Until EOF(1)   'ループ：条件EOF(1)になるまで、ここからの処理を繰り返す

            Line Input #1, gyo                  'ファイルから１行読み込む
            moji_su = Len(gyo)                  '読み込んだ行の長さ（文字数）を
                                                '変数 moji_su へ入れる
            gokei = gokei + moji_su             '合計用変数 gokei に文字数を加算する
            gyo_no = gyo_no + 1                 '行番号を１アップ
            Debug.Print gyo_no & "行目は 「" & gyo & "」"  '読み込んだ行の中身を表示する
            Debug.Print "文字数は " & moji_su   '行の文字数を表示する

        Loop                                    'ループ：ここまでの処理を繰り返す

        MsgBox "ファイルの文字数は " & gokei    '合計用変数 gokei の値を表示する

    Close #1                                    'ファイルのクローズ

End Sub

解　　　　　　　説

ステップ４と、ほぼ同じですね。
違うのは、メッセージボックス(MsgBox) を、デバッグ画面表示（Debug.Print）にしているところだけです。

デバッグ画面って何？　と疑問をお持ちの方がいらっしゃるでしょう。
まず、「バグ(bug)」というのは、プログラム上のミスのことです。（bug って、虫という意味らしいのです。）で、「デバッグ(debug)」とは、虫をとること。（スパイ小説だと、盗聴器を取ること。）(^^;
つまり、プログラムのミスを修正することです。そのために使用する画面を、「デバッグ画面」と言います。

では、「デバッグ画面」を出してみましょう。
VBA のサブルーチン Sub Count5 を作成してください。そして、Ctrl + G を押してください。これは、Ctrl(コントロールキー)を押したままで G のキーを軽く１回押すことです。こんな画面
イメージ
が出て来たでしょうか？
この画面が、デバッグ画面です。 VB では「イミディエイト・ウィンドウ」と呼んでいます。これからここをいっぱい使いますので、覚えておいてくださいね。
それでは、行ごとの説明ですが、今回はステップ４と違うところだけ説明します。

１６行目と１７行目（いきなり！）は、仕様の 2.の(3)「読み込んだ内容と文字数を、デバッグ画面に表示する。」にあたります。
Debug.Print は、デバッグ画面（イミディエイト・ウィンドウ）に何かを表示させる命令です。構文は、
Debug.Print 表示させたいもの
です。「表示させたいもの」は、変数でも良いですし、数式（2 + 3 とか）でも良いです。変数や数式や文字列を混ぜたものでも良いです。
例：Debug.Print moji & "は" & moji_su & "文字"

プログラムの開発中には、コメントとか、こういうデバッグのための記述とかが必要になります。デバッグのための記述を「デバッグ行」と呼んだりします。

ステップ５実行前の準備

ステップ２で使用したのと同じファイルを使います。もしまだ準備していない方がいましたら、ステップ２を見て準備してください。ファイルの中身は、こうなっています。

abcde
bcde
cde
de
e

実　　　　　　　行

カーソルの位置を確認してから、F5キーを押してください。
ファイルの文字数が、メッセージボックスで表示されます。

今回は、メッセージボックスは１つだけしか出てきません。いちいちＯＫをクリックせずに済むので、このほうが動作確認が楽ですね。(笑) でも、実行途中が上手くいっているかどうか、見たい時があります。
そんなときのための「デバッグ画面」！
イミディエイト・ウィンドウを見てください。

ステップ４では、メッセージボックスで表示されていたものが、一挙にデバッグ画面に表示されています。いや～、便利ですね。（え？　そうでもない？）

入れ替え

今回は息抜きですので、入れ替えも１回だけ。
ソースの行の順番をでたらめにしたやつを、ここに書いておきます。正しい順番に並べ替えてください。もちろん、正解を見ずにね。それで正しいと思ったやつをコピーして、エラーが出ないかどうか試してみてください。

Line Input #1, gyo          'ファイルから１行読み込む
moji_su = Len(gyo)          '読み込んだ行の長さ（文字数）を
                            '変数 moji_su へ入れる
Dim gyo_no  As Integer      '行番号用変数を宣言
Loop                        'ループ：ここまでの処理を繰り返す
gyo_no = 0                  '行番号用変数の初期化
Sub Count5()
Open "C:\My Documents\mojisu.txt" For Input As #1   'ファイルのオープン
Dim gyo     As String       '読み込んだ行を入れておく変数を宣言
'             および文字数の合計を表示する。
gokei = gokei + moji_su     '合計用変数 gokei に文字数を加算する
Debug.Print "文字数は " & moji_su   '行の文字数を表示する
Dim moji_su As Long         '１行の文字数用変数を宣言
Do Until EOF(1)   'ループ：条件EOF(1)になるまで、ここからの処理を繰り返す
End Sub
gokei = 0                   '合計用変数の初期化
Close #1                    'ファイルのクローズ
MsgBox "ファイルの文字数は " & gokei    '合計用変数 gokei の値を表示する
Debug.Print gyo_no & "行目は 「" & gyo & "」"  '読み込んだ行の中身を表示する
Dim gokei   As Long         'ファイルの文字数用変数を宣言
'文字数カウント・プログラム
gyo_no = gyo_no + 1         '行番号を１アップ
'ステップ５：行数のわからないファイルをオープンし、全部の行とその文字数

戻る

PC用眼鏡【管理人も使ってますがマジで疲れません】解約手数料０円【あしたでんき】 Yahoo 楽天 NTT-X Store

無料ホームページ無料のクレジットカード海外格安航空券ふるさと納税海外旅行保険が無料！海外ホテル