タイトル : アドレスの読み出しをすっきりさせたい 投稿日 : 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を読まなければいけない状態です。これをもう少しすっきりさせたいのですが、どうすればよいのかわかりません。 よろしくお願いします。 |