既に20言語でLTSVの Parser Implementations があるというのに,LotusScriptのコードがなかったので簡単に書いてみた.コマンドラインで使えるわけじゃなく,Notesアプリケーションと密接に関係する時点でまぁ需要ないと思うけど.これをカスタマイズして処理を拡張していけると思うので,あくまでベースとなるコードのイメージ.ただし,LotusScriptは文字列操作が弱いと言われているので,あまり高度なことはできないかもしれない.
LTSVParser(エージェント設計)
Option Public Sub Initialize fileNumber& = FreeFile() Open "C:\access_log" For Input As fileNumber& Do Until EOF(fileNumber&) Line Input #fileNumber&, tmpLogValue$ tmpLogArray = Split(tmpLogValue$, " ") For i = 0 To UBound(tmpLogArray) If InStr(tmpLogArray(i), ":") > 0 Then Print(Mid(tmpLogArray(i), InStr(tmpLogArray(i), ":") + 1, Len(tmpLogArray(i)))) End If Next Loop Close fileNumber& End Sub