指定番目の文字を読む込む・・・超初心者

質問

遅ればせながらVISTAを搭載したノートブックを買って遊び始めました。
VB2008Expressをダウンロードして最初のプロジェクトに挑戦中。
が、情けないことに最初から躓いて立ち往生中です。

＜ファイルから指定番目の文字を読む込む関数の作成要領＞

' ---------------------------
'　FileGetChar VB6.0 Version
' ---------------------------
Public Function FileGetChar(ByVal f As String, ByVal r As Long) As String
　　Dim n As Integer
　　Dim c As String * 1

　　n = FreeFile()
　　Open f For Random As #n Len = 1
　　Get #n, r, c
　　Close #n
　　FileGetChar = c
End Function

' -----------------------------
'　FileGetChar VB 2008 Version
' -----------------------------
Public Function FileGetChar(ByVal f As String, ByVal p As Short) As String
　　Return (GetChar(My.Computer.FileSystem.ReadAllText(f), p))
End Function

VB 2008バージョンの問題点は、その都度に全てのテキストを呼び込んでいることです。
質問は、この難点を克服する方法についてです。

MSDNライプラリを読めばとは思いますが・・・。
聞いた方が早いかなと思って質問します。
宜しくお願いします。

回答No.1

Gab_km · ベストアンサー

＞MSDNライプラリを読めばとは思いますが・・・。
＞聞いた方が早いかなと思って質問します。

逆だと思います。
それと(私以外の)回答者さんたちは、MSDNライブラリを読めば分かるようなことを、
わざわざ回答しなければならないことにもなります。

それでも一応アドバイス的なものをしておくと、FileStream.Seekを使うと、
お望みの動作に近いことが可能かもしれません。

参考URL：

http://msdn.microsoft.com/ja-jp/library/system.io.filestream.seek.aspx

お礼

[イミディエイト]
? FileSeek("D:\Temp\Test.txt", 2)
"B"

おかげ様で、上のように FileStream.Seek で目的を達成できました。
本当に心から感謝です。