SHOEISHA iD

※旧SEメンバーシップ会員の方は、同じ登録情報(メールアドレス&パスワード)でログインいただけます

CodeZine編集部では、現場で活躍するデベロッパーをスターにするためのカンファレンス「Developers Summit」や、エンジニアの生きざまをブーストするためのイベント「Developers Boost」など、さまざまなカンファレンスを企画・運営しています。

VB6プログラマのためのCurl入門(AD)

VB6プログラマのためのCurl入門
ファイルアクセスとWebアクセス

第5回

  • X ポスト
  • このエントリーをはてなブックマークに追加

 今回は、Curlを使ってファイルアクセスを行う方法とWebアクセスを行う方法を紹介します。テキストファイルを読み出すプログラムと、Webサーバー上にあるVBScriptのスクリプトと通信するプログラムを作ります。

  • X ポスト
  • このエントリーをはてなブックマークに追加

はじめに

 今回は、Curlを使ってファイルアクセスを行う方法とWebアクセスを行う方法を紹介します。はじめに、テキストファイルを読み出すプログラムを作ります。同じ機能をVB 6.0で実現したものと比較しますので、特にエラー処理に注目してください。

 次に、Webサーバー上にあるVBScriptのスクリプトと通信するプログラムを作ります。通常のWebページとCurlプログラムの違い、およびファイルアクセスとWebアクセスの類似点に注目してください。

連載

テキストファイルを読み出すプログラム(VB版)

 リスト1は、VB 6.0でテキストファイルを読み出すプログラムを記述したものです。フォーム(Form1)にテキストボックス(Text1)とコモンダイアログコントロール(CommonDialog1)を1つずつ貼り付けて、フォームのLoadイベントにコードを記述します。

リスト1 VB 6.0で記述したテキストファイルを読み出すプログラム
Option Explicit

Private Sub Form_Load()
    ' 変数の宣言
    Dim buff As String
    
    ' ファイルを開くダイアログボックスを表示する
    CommonDialog1.ShowOpen
    
    ' エラー時にはERR_HANDLERにジャンプする
    On Error GoTo ERR_HANDLER
    
    ' ファイルを開く
    Open CommonDialog1.fileName For Input As #1
    
    ' ファイルを末尾まで読み出す
    Do Until EOF(1)
        ' 1行読み出す
        Line Input #1, buff
        ' テキストボックスに追加する
        Text1.Text = Text1.Text & buff
        ' 行末に改行を付加する
        Text1.Text = Text1.Text & vbCrLf
    Loop
    
    ' ファイルを閉じる
    Close #1

    ' 正常終了
    Exit Sub
    
    ' エラー終了
ERR_HANDLER:
    MsgBox "エラーです!"
End Sub

 このプログラムを起動すると、ファイルを開くダイアログボックスが表示されます。任意のテキストファイルを選ぶと、その内容がテキストボックスに表示されます。ファイルアクセスではエラーが発生する場合があるので、On Errro GoToステートメントを使ってエラー処理を行っています。プログラムの実行結果の例を図1に示します。

図1 リスト1の実行結果の例
図1 リスト1の実行結果の例

次のページ
テキストファイルを読み出すプログラム(Curl版)

修正履歴

この記事は参考になりましたか?

  • X ポスト
  • このエントリーをはてなブックマークに追加
VB6プログラマのためのCurl入門連載記事一覧

もっと読む

この記事の著者

矢沢久雄(ヤザワヒサオ)

パッケージソフトの開発・販売に従事するかたわら、書籍や雑誌記事の著作活動、セミナーやカンファレンスにおける講演活動も精力的にこなす自称ソフトウエア芸人です。 

※プロフィールは、執筆時点、または直近の記事の寄稿時点での内容です

【AD】本記事の内容は記事掲載開始時点のものです 企画・制作 株式会社翔泳社

この記事は参考になりましたか?

この記事をシェア

  • X ポスト
  • このエントリーをはてなブックマークに追加
CodeZine(コードジン)
https://codezine.jp/article/detail/3518 2009/02/03 15:41

おすすめ

アクセスランキング

アクセスランキング

イベント

CodeZine編集部では、現場で活躍するデベロッパーをスターにするためのカンファレンス「Developers Summit」や、エンジニアの生きざまをブーストするためのイベント「Developers Boost」など、さまざまなカンファレンスを企画・運営しています。

新規会員登録無料のご案内

  • ・全ての過去記事が閲覧できます
  • ・会員限定メルマガを受信できます

メールバックナンバー

アクセスランキング

アクセスランキング