プログラミング初級１

ステップ４で、とりあえず目的（ファイルの文字数のカウント）は果たせました。ステップ５以降は、「より使いやすく」するための工夫です。
前回は、メッセージボックスを止めて、ＯＫをクリックしなくてよいように変更しました。
今回は、ファイル名を、実行のたびに指定します。

ステップ６の仕様

「ファイル名を入力してください」を表示して、ファイル名の入力を受け付ける。
入力された名前のファイルをオープンする。
ファイルの最後になるまで、以下の処理を繰り返す。
　　(1) ファイルから１行読み込む。
　　(2) 読み込んだ内容と文字数を、デバッグ画面に表示する。
ファイルの全文字数を、メッセージボックスで表示する。
ファイルを閉じる。

ステップ６のプログラム・ソース

Sub Count6()

'文字数カウント・プログラム
'ステップ６：ファイル名を入力して、文字数を表示する。

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

    file_nm = ""                'ファイル名用変数の初期化
    gokei = 0                   '合計用変数の初期化
    gyo_no = 0                  '行番号用変数の初期化


    file_nm = InputBox("ファイル名を入力してください")

    Open file_nm 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

解　　　　　　　説

ステップ５と、違うところだけ説明します。

４行目で、ファイル名用の変数を宣言します。
ファイル名を入力しますので、それを入れておく変数が必要になります。文字列型で宣言します。
Dim の構文を思い出してくださいね。

今まで出て来たデータ型の簡単な表

文字/数字データ型表記

文字文字列型 String

数字整数型 Integer

数字長整数型 Long

数字倍精度浮動小数点型 Double
９行目で、ファイル名用の変数を初期化します。
初期化するとき、数字には何を、文字には何を入れるのでしたか？
１２行目で、ファイル名の入力を受け付けます。
仕様の 2. にあたります。
InputBox は、ダイアログボックスにメッセージを表示して、テキストボックスへの入力を受け付けます。テキストボックスに入力された文字は、指定した変数に入れられます。構文は、

変数名 = InputBox(メッセージ)
です。
１４行目は、ファイルのオープンです。
今までみたいに、" ではさんだファイル名ではありません。ファイル名用の変数を使用しています。
Open の構文は、どうでしたっけ？
　　　「オープン　ファイルめい　フォー　インプット　アズ　シャープ　いちっ！」
思い出しましたか？
この時の「ファイル名」は、" ではさんだファイル名でも、変数でも構わないわけですね。

ステップ６実行前の準備

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

abcde
bcde
cde
de
e

実　　　　　　　行

カーソルの位置を確認してから、F5キーを押してください。
「ファイル名を入力してください」を表示して、ファイル名の入力を受け付けます。
ファイル名を入力します。
C:\My Documents\mojisu.txt と入力して、ＯＫをクリックします。
ファイルの文字数が、メッセージボックスで表示されます。
イミディエイト・ウィンドウを見てください。

ファイル名に、C:\My Documents\mojisu2.txt を入力したり、他のファイル名を入力して正しい文字数が表示されるか、確認してみましょうね。

入れ替え

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

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

戻る

Gポイントポイ活　 Amazon Yahoo 楽天

無料ホームページ楽天モバイル[UNLIMITが今なら1円] 海外格安航空券海外旅行保険が無料！