MsgBox "文字数は " & moji_su '2行目の文字数を表示する
Line Input #1, gyo 'ファイルから1行読み込む(先頭行)
MsgBox "ファイルの文字数は " & gokei '合計用変数 gokei の値を表示する
Dim moji_su As Long
moji_su = Len(gyo) '行の長さを変数 moji_su へ入れる
gokei = gokei + moji_su '合計用変数 gokei に文字数を加算する
MsgBox "2行目は 「" & gyo & "」" '読み込んだ2行目の中身を表示する
Dim gyo As String
MsgBox "先頭行は 「" & gyo & "」" '読み込んだ1行目の中身を表示する
'文字数カウント・プログラム
Close #1 'ファイルのクローズ
Line Input #1, gyo 'ファイルから1行読み込む(3行目)
MsgBox "4行目は 「" & gyo & "」" '読み込んだ4行目の中身を表示する
gokei = moji_su '合計用変数に文字数を入れる
moji_su = Len(gyo) '行の長さを変数 moji_su へ入れる
Line Input #1, gyo 'ファイルから1行読み込む(2行目)
MsgBox "文字数は " & moji_su '5行目の文字数を表示する
Open "C:\My Documents\mojisu.txt" For Input As #1 'ファイルのオープン
gokei = gokei + moji_su '合計用変数 gokei に文字数を加算する
MsgBox "3行目は 「" & gyo & "」" '読み込んだ3行目の中身を表示する
' および文字数の合計を表示する。
gokei = 0 '合計用変数の初期化
MsgBox "文字数は " & moji_su '1行目の文字数を表示する
MsgBox "文字数は " & moji_su '3行目の文字数を表示する
Line Input #1, gyo 'ファイルから1行読み込む(4行目)
moji_su = Len(gyo) '行の長さを変数 moji_su へ入れる
Sub Count3()
gokei = gokei + moji_su '合計用変数 gokei に文字数を加算する
'ステップ3:ファイルをオープンし、全5行とその文字数
Dim gokei As Long
End Sub
MsgBox "文字数は " & moji_su '4行目の文字数を表示する
Line Input #1, gyo 'ファイルから1行読み込む(5行目)
moji_su = Len(gyo) '行の長さを変数 moji_su へ入れる
gokei = gokei + moji_su '合計用変数 gokei に文字数を加算する
MsgBox "5行目は 「" & gyo & "」" '読み込んだ5行目の中身を表示する
moji_su = Len(gyo) '読み込んだ行の長さ(文字数)を
'変数 moji_su へ入れる
|