vb2008 テキストファイルを開くには？

質問

vb2008 テキストファイルを開くには？

VB2008を使用している者です。今回もアドバイス宜しくお願い致します。
あるテキストファイルをOPENしたいと思っているのですが、やり方がわかりません。
VB2008でファイルを開く方法として一般的なのがOpenFileDialogを使用した方法ですが、
これだといちいち開きたいファイルを指定しなければなりません。その都度ファイルを
指定するのではなく、開きたいファイルをピンポイントで開きたいのです。
いろいろ検索しましたが、全くヒットしませんでした。
皆様のご指導、宜しくお願い致します。

回答No.5

ichhabehunger · ベストアンサー

やりたいことがやっとわかったと思います。

次のような理解でいいですよね。

自作アプリケーションの初期化ファイルをテキストファイルとして作成して
それがアプリケーションと同じフォルダにある。
アプリケーション起動時にそのファイルを自動的に読み込んで
アプリケーションに初期値をセットしたい。
しかし、アプリケーションの置かれているフォルダを取得する方法がわからない。

ネットで「vb アプリケーションのパス」と入れて検索すれば一発ですよ。
たとえば「http://msdn.microsoft.com/ja-jp/library/cc720827.aspx」

以下にサンプルコードを載せます。
このアプリケーションと同じフォルダにある「app.ini」というテキストファイルの
１行目を読み込んで表示するコンソール・アプリケーションです。

Imports System.IO

Module Module1

Sub Main()
Dim sr As New StreamReader(My.Application.Info.DirectoryPath & "\app.ini")
Dim dat As String
dat = sr.ReadLine()
Console.WriteLine(dat)
sr.Close()
Console.ReadKey()
End Sub

End Module

参考URL：

http://msdn.microsoft.com/ja-jp/library/cc720827.aspx

お礼

回答有難うございます！

>>自作アプリケーションの初期化ファイルをテキストファイルとして作成して
それがアプリケーションと同じフォルダにある。
アプリケーション起動時にそのファイルを自動的に読み込んで
アプリケーションに初期値をセットしたい。

↑そこまでは既に出来ています。自分がしたい処理は、プログラム起動中にそのテキストファイルの
設定を手動にて修正したい場合に、いちいちフォルダを何回も開いてそのファイルを立ち上げるのではなく、プログラムのフォーム上のボタンをクリックして、そのファイルを開きたいのです。そして、
初期値の内容を手動にて修正して、上書き保存をして閉じる。
単純に、既存のテキストファイルをダブルクリックで開いたような状態にしたいのです。
何度も何度もアドバイスありがとうございます。
説明下手ですいません！

回答No.4

ichhabehunger

どうもやりたいことがよくわかりません。

テキストファイルを普通にダブルクリックすれば「メモ帳」が開くと思います。

テキストファイルをオープンして何がやりたいかをもっときちんと
説明してほしいですね。

お礼

説明不足ですいませんでした。
そのテキストファイルっていうのが、プログラムのexeファイルと同じフォルダに保存されていまして、
それをわざわざフォルダをクリックしていくのが非常に面倒だったので、それでプログラム上で
できないかと思ったのです。そのテキストファイルっていうのが、プログラムの簡単な設定が保存されたものになっています。
デスクトップにショートカットを貼る等もしたくありません。
ApplicationPath　&　******.txt　みたいな感じでフルパス指定して、一気に開けないんでしょうか？
何度もすいません、今一度アドバイスお願いします！

回答No.3

ichhabehunger

こんばんは。

開いてどうするかですが、とりあえず

開いて
１行読んで
そのままコンソールに出力する

ならこんなコードです。

Imports System.IO

Module Module1

Sub Main()
Dim sr As StreamReader = New StreamReader("C:\Users\ich habe hunger\Documents\書類\自然対数の底e\eの値比較\e1974C++.txt")
For i As Integer = 1 To 10
Dim dat As String = sr.ReadLine()
Console.WriteLine(dat)
Next
sr.Close()
End Sub

End Module

お礼

回答ありがとうございました！返信遅くなってすいませんでした。
自分がしたいのはファイルを読み込んで文字列を取得するのではなく、
単純に、Excelとかテキストのファイルをダブルクリックで開いたときのような
状態にしたいのです。再度アドバイスお願いします！

回答No.2

MARU4812

>『ファイル　開く　VB2008』で。
ああ、ごめんなさい
『ファイル　開く　VB.NET』で。

お礼

回答ありがとうございました！
ファイルの読み込み、書き込みは出てくるんですが、
単純にファイルを開くっていうのは出てこないです・・・
再度アドバイスお願いします！

回答No.1

MARU4812

> いろいろ検索しましたが、全くヒットしませんでした。
『ファイル　開く　VB2008』で。

> OpenFileDialogを使用した方法ですが、
ファイルパスを取得するだけの機能しかありませんから、
質問内容とは関係ありません。OpenFileDialog でパスが
決まった後の処理が、質問の処理となります。