tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル アドレスの読み出しをすっきりさせたい
投稿日: 2008/02/08(Fri) 11:01
投稿者ゆず
こんにちは、VB2005で開発しています。
datファイルを以下のように読み取ってCmdAdrにアドレスをCmdNameにアドレスの名前を配列で入れています。

Fnum = FreeFile()
FileOpen(Fnum, DataFile, OpenMode.Input)
For cn = 1 To AdrNo
   Input(Fnum, CmdName(cn))
   Input(Fnum, CmdAdr(cn))
Next cn
FileClose(Fnum)

アドレスの名称であるCmdNameから、アドレスCmdAdrを取得したいのでさらに

Public Function AddData(ByVal ItemName As String) As String
    Dim cn As Integer
    cn = 0
    Do
        cn = cn + 1
    Loop Until CmdName(cn) = ItemName
    AddData = Strings.Right("0000" + Hex(CmdAdr(cn)), 4)
End Function

とプロシージャを作成し、

Itemdata = AddData("アドレスの名称")

という風にアドレスを取得している状態です。Itemdataには取得したいアドレスが入ります。
この状態だと読みたいアドレスが変更されるたびにAddDataを読まなければいけない状態です。これをもう少しすっきりさせたいのですが、どうすればよいのかわかりません。
よろしくお願いします。

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。