|
▼Kein さん:
返信が遅くなりすみませんでした。
Keinさんのコードを試した結果、自分の質問が悪かったため意図する結果を得ることが
出来ませんでした。
自分で解決しようと努力していますが行き詰っています。
まず、テキストファイルの内容には、下記のデータがあります。
(ここが最初の質問と違います。そのため、配列に格納されるデータがLOGONとLOGOFFでことなります。)
<内容>
LOGON - 12360789 - 2006/06/01 08:40:58.
LOGOFF - 23460789 - 2006/06/01 22:16:44.
LOGON - 34500601 - 2006/06/02 20:26:20.
LOGOFF - 45600601 - 2006/06/02 20:26:13.
keinさんのコードの何処を修正すれば、良いのかアドバイスを頂ければと思っています。
追加で、Chr(32)とありますが、この意味がよくわかりません。ヘルプをみても
(32)の説明がないので、できれば説明もお願いします。
> Do Until EOF(1)
> Line Input #1, Buf
> GetAry = Split(Buf, Chr(32))
> If GetAry(1) = MyDy Or GetAry(2) = MyDy Then
> If Left$(GetAry(0), 5) = "LOGON" Then
> LgOn = GetAry(UBound(GetAry))
> ElseIf Left$(GetAry(0), 5) = "LOGOF" Then
> LgOf = GetAry(UBound(GetAry))
> End If
> End If
> Loop
> Close #1
|
|