[三流君] －－＞ [ＶＢＡで楽しく] －－＞ [バックナンバー一覧]
－－＞ No.027 テキストファイル処理ファイルへの書き込み

テキストファイル処理ファイルへの書き込み

メルマガ発行内容

＜テキストファイル処理  ファイルへの書き込み＞
こんにちは、三流プログラマーＫｅｎ３です。

今回は、
前回、ＦＴＰの処理でパラメータファイルをいきなり作成したけど、
解説まだだったので、
軽く書いてみます。

/*
 * １. 開けて（Open）、書いて(Print #)、閉めて(Close)
*/

まずは、いつもの手抜きプログラムでテストを行うか、、
AltとF11を押して、エディター起動して、挿入の標準モジュールと、、

Sub test()

    Open "C:\TEST.TXT" For Output As #1 'ファイルを新規作成

    'データ書き込み
    Print #1, "やっぱ三流だよね、固定はよくないよ"
    Print #1, "セミコロンを後ろに付けるとどうなるの？";  '←＊セミコロン
    Print #1, "こうなるの"
    Print #1, "終わり"
    
    Close #1  '開いたら閉じようね
    
End Sub

と書いて、実行します。
C:\TEST.TXTに
やっぱ三流だよね、固定はよくないよ
セミコロンを後ろに付けるとどうなるの？こうなるの
終わり
となります。

簡単に解説すると、
Open ステートメント
Open "C:\TEST.TXT" For Output As #1 'ファイルを新規作成
Open ファイル名 For モード As ファイル番号
でファイルを作成できます。

モードは新規作成をしたいので、
Outputを使いました。
ほかに有名なのは、Append、Inputがあります。
＊有名じゃなくって、処理によって使い分けます。

Print # ステートメント
Print #1, "やっぱ三流だよね、固定はよくないよ"
Print #1, 文字列や変数
で書き込みます。
あとのポイントは、；をつけると改行されないで次の項目を書き込めます。
    Print #1, "セミコロンを後ろに付けるとどうなるの？";  '←＊
    Print #1, "こうなるの"
は、下記のような実行結果になります。

セミコロンを後ろに付けるとどうなるの？こうなるの
と
書き込まれます。

Close ステートメント
Close #1  '開いたら閉じようね
で、ファイル番号１をクローズしています。

単純なパターンは、
開いて Print # ステートメント
書いて Open ステートメント
閉じて Close ステートメント
です。

/*
 * ２．ＨＴＭＬも拡張子が違うだけで普通のテキストファイル
*/

あんまり、変なテストプログラム書いてても、ツマラナイので、
ＨＴＭＬファイルを作成して見ます。

ＨＴＭＬファイルって行っても、
普通のファイルに＜ＸＸＸ＞とタグ
が付いてるだけなので、ご安心を。

Sub test2()

    Dim strFNAME As String 'ファイル名格納用
    Dim strNAME  As String '名前を入れる

    'ユーザーに自分の名前を入れさせる
    strNAME = InputBox("アナタの名前は？", "名前の入力", "テスト")

    'ブックと同じ位置にtest027.htmlを作成する
    strFNAME = ThisWorkbook.Path & "\test027.html" 'ファイル名の作成
    Open strFNAME For Output As #1 'ファイル番号１で新規作成

    'データ書き込み、
    Print #1, "<html>"
    Print #1, "<b>" & strNAME & "</b>さんが<br>"
    Print #1, Now & "に作成したファイルです"
    Print #1, "</html>"
    
    Close #1  '開いたら閉じようね

    '終了メッセージの表示
    MsgBox strFNAME & "を作成しました、確認してね"

End Sub

こんな感じです。
流れを軽く追って行くと、

まず、名前を入力させます（なんでもいいんだけど）
    'ユーザーに自分の名前を入れさせる
    strNAME = InputBox("アナタの名前は？", "名前の入力", "テスト")

ファイル名を作成後、開きます
    'ブックと同じ位置にtest027.htmlを作成する
    strFNAME = ThisWorkbook.Path & "\test027.html" 'ファイル名の作成
    Open strFNAME For Output As #1 'ファイル番号１で新規作成
ポイントは、
ThisWorkbook.Path & "\test027.html"
で、実行中のブックのパスを付けてファイル名を作成してます。
それを利用して、ファイルを新規作成します。

次にデータを書きます。
    'データ書き込み、
    Print #1, "<html>"
    Print #1, "<b>" & strNAME & "</b>さんが<br>"
    Print #1, Now & "に作成したファイルです"
    Print #1, "</html>"
入力さた名前を出力、あとおまけで時間を書いてます。

処理が終わったらファイルを閉じます。
    Close #1  '開いたら閉じようね

そのまま終わってしまうと、なんだかわからないので、
ここにファイルを書いたんだよ、
と、ファイル名を表示しました。
    '終了メッセージの表示
    MsgBox strFNAME & "を作成しました、確認してね"

意外と簡単だったでしょ？

/*
 * ３．終わりの挨拶
*/

今回は、
・テキストファイルへの書き込み
でした。

今回のサンプル、
http://www.ken3.org/vba/lzh/vba027.lzh
に保存しました。
解凍してtest027-book.xlsを開いて、
内容を変えたりして、遊んでください。

テキストファイル処理も奥が深いけど、
まだ入り口なので余裕かなぁ。

拾い読みして、
１つでも何かの参考となれば幸いです。

Ｅｘｃｅｌ／Ａｃｃｅｓｓ大好き、三流プログラマーＫｅｎ３でした。

フィードバック

VBA系の→[掲示板]←を覗く、質問を書き込む

評価・感想

ページフッター(リンクや広告など)

[三流君(TOP ken3.org へ戻る)]
-- [VBA系TOPへ]
---- [VBA系バックナンバー目次へ移動]
------ [VBAでIEを操作 CreateObject("InternetExplorer.application")]・・・実は当店一番人気、VBAでIEを操作するサンプルです
------ [VBAでOutlookの操作 CreateObject("Outlook.Application")]・・・Outlookを使い、メール関係の処理です
------ [Access から Excel 連携 CreateObject("Excel.Application")]・・・人気のAccessからExcelへデータ書き出しなどです
------ [AccessのUserForm/サブフォームを操作]・・・アクセスでフォームを使ったサンプルです
------ [Accessのレポートを操作]・・・レポートを操作してみました
------ [Access クエリー関係やその他関数]・・・あまりまとまってませんが、スポット的な単体関数の解説です
------ [Excel UserForm(ユーザーフォーム)を操作する]・・・エクセルでユーザーフォームを作成して入力などを行ってます
------ [ExcelからAccessを操作する]・・・ExcelからAccessのマクロを起動してみました、
------ [Excel関係関数、その他]・・・その他Excel関係です
------ [VBAでテキストファイル(*.txt,*.html,*.csv)の操作]・・・テキストファイルを使ったサンプルです
------ [VBA 標準関数関係とその他解説]・・・その他、グダグタ解説してます

広告
-- [通販系の売れ筋広告へ] ←主に楽天やAmazonのランキングです
blog
-- [三流君の作業日記] ← 日々の作業を少々
-- [通販あしあと] ← 通販ページの足跡を一覧で羅列

情報を探す

情報を探すならGoogleかな？

↓Web全体、サポート情報(support.microsoft.com)や三流君VBA(ken3.org)から検索する

あとは、項目別にMSでお勉強かな？
◆ マイクロソフトサイトの歩き方
◇ How-To インデックス
◇ FAQ インデックス
◇ スキルレベル別おすすめコンテンツ
◇ テクノロジマップ
◇ テーマ別技術資料一覧

書籍の購入

Webだけじゃさすがに勉強しきれないので、プログラミング関係の書籍も読んでみては？？

コンピュータ書籍の発送がハヤイ専門店

コンピュータの本・専門店

※種類が豊富で探し易いです。※在庫ありが48時間以内発送が急ぎで資料や書籍がほしい時、とても助かります。
お奨め本の目次を見るだけでも勉強になったり

amazon.co.jpでキーワード別チェック

下記、私が設定したキーワードですが、こんな感じで資料や書籍を探ってみては？
[VBA全体を把握する] -- やはり全体をさらっと見たいですよね。
[SQL関連でＤＢ力UP] -- システムはデータベース設計が重要
[ADO接続を探る] -- VBAなのでADO接続を押さえておく
[Windows APIを探る] -- さらにAPIになて知ってれば強力だ！
[.NETを探る] -- と言っても時代は.NETに流れてるし
プログラミング以外でも知りたいことは多くって、
[人間関係] -- で、客先・上司、まわりに気を使い。
[プログラマーの自己啓発] -- プログラムだけじゃなくいろいろと向上したいよ
[コーチング・育成] -- 先輩になったら後輩(部下)の面倒をみてね。
そんなこんなでプログラマーっていろいろと大変なんだってば・・・

テキストファイル処理 ファイルへの書き込み

メルマガ発行内容