kakakakakku blog

Weekly Tech Blog: Keep on Learning!

LotusScriptでLTSVParser

既に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