> おっと、この可能性には考え付いていませんでした^^;
> CRLFがない文字列だとエラーになっちゃうんですね^^;
>
> If crpos > 0 Then
> inBuf = Mid$(inBuf,instpos,crpos - instpos)
> Else
> ''CRLFが見つからなかったときは、開始位置から最後までを取り出す
> buflen = Len(inBuf)
> inBuf =Mid$(inBuf,instpos,buflen - instpos)
> End If
If の条件式部分では、大小比較式の > 0 は必要ないです。
なぜならば、必ず crpos ≧ 0 であるため、負数を考える必要が無いからです。
また、
> If crpos < 0 Then
> crpos = Len(inBuf)
> End If
>
> こういう風にするという手もありますけど。
> というより、こっちのほうが簡単なのかな?
これは間違いです。書くとすれば、 crpos <= 0 となります。
ただし、やはり crpos は負数を考える必要がないため、
コード:
If crpos = 0 Then
とするのが正解です。