タイトル : Re: ファイルの読み込みについての質問です。 投稿日 : 2008/05/23(Fri) 22:04 投稿者 : Renard
> '以下が追加したコードです。 > Print #h, "チャージドタイムアウト1:" & .AnElapsedTime(1) > Print #h, "チャージドタイムアウト2:" & .AnElapsedTime(2) > Print #h, "チャージドタイムアウト3:" & .AnElapsedTime(3) > Print #h, "チャージドタイムアウト4:" & .AnElapsedTime(4) > Print #h, "チャージドタイムアウト5:" & .AnElapsedTime(5) > Print #h, "チャージドタイムアウト6:" & .AnElapsedTime(6) > Print #h, "チャージドタイムアウト7:" & .AnElapsedTime(7) > 'ここまで > p = InStr(sLine, ":") > > If p = 0 Then > 'sLineを代入' > sItem = sLine > 'もしくは' > Else > sItem = Left(sLine, p - 1) > > sValue = Mid(sLine, p + 1) > End If 提示されたコードを見る限り、pは0にしかなりませんね。 なので、ちゃんと文字列の分割ができず、CASE文の条件に適合しないのでしょう。 |