ボタンをクリックしながら、テキストファイルを表示する方法を

Question

VB 6を使用して、コマンドボタン

をクリックしながらファイル（*。TXT）を表示する方法

アム新VBに6

どのように元

データのテキストファイルに保存されているボタンを、クリックしながら、ファイルの内容を表示する1.TXT コマンドbuttionをクリックしていたときに、1.TXTファイルが開き、1.TXTデータのは

が表示されます

VB 6コードが必要ですか？

Answer 1

現在のデフォルトファイルハンドラを使用してファイルを開くには、ShellExecute API関数を使用してみてください。

ここにはexampleがあります。

Answer 2

VB6でbeginners tutorialが必要なように思われます。 （これは、あなたが何をしようとしているかについて十分に分かっていないために、助けが必要なものを正確に明確に表現できないように思われるためです）。

VB6チュートリアルがリンクの多くを与えるためにグーグルで、this oneがよさそうだ

希望これは私が間違っている場合に役立ちます、と謝罪:)

Answer 3

真=それは複数行にする、フォームにテキストボックスを追加します。フォームにボタンを追加します。 とボタンでハンドラがこれを追加クリックします。

Private Sub Button1_Click() 
    Dim iFile As Long 
    Dim strFilename As String 
    Dim strTheData as String 

    strFilename = "C:\1.txt" 

    iFile = FreeFile 

    Open strFilename For Input As #iFile 
    strTheData = StrConv(InputB(LOF(iFile), iFile), vbUnicode) 
    Close #iFile 
    text1.text=strThedata 
End Sub 

これは、ファイル内のテキストを読み、テキストボックスに追加します。

編集：コード：（。クレドがいることを指摘しMarkJすることになります）このanswerでMarkJで指摘したように、コンテンツの読み取りがより堅牢にするためにラインを変更し

Answer 4

Stefan's answerに欠陥が含まれていますテキストファイルを文字列に読み込むことは非常に堅牢ではありません。それは非常に一般的な間違いです - 同じ欠陥のあるコードは、いくつかの優れたVB6 Webサイトにあります。テキストファイルはASCIIゼロの文字が含まれている場合、彼のコードは

Open strFilename For Input As #iFile 
strTheData = Input$(LOF(iFile), #iFile) 
Close #iFile 

残念ながら、このthrows an error 62「ファイルの末尾過去の入力」です。また、それはすべての国で動作しません（中国語や日本語などの2バイト文字セットのほとんどの文字列にはエラーが発生します）。

はおそらく、これらの問題は少しあいまいです：しかし、VB6マニュアル（here）にこの仕事を行うには良いコードがあります、それはまた、三行だし、それが失敗することはありません。

Open strFilename For Input As #iFile 
strTheData = StrConv(InputB(LOF(iFile), iFile), vbUnicode) 
Close #iFile 

もっと複雑に見えますが、実際には唯一の違いは、ANSIからUnicodeへの変換が暗黙的ではなく明示的であることです。それは速く走り、それは常に働く。