Lernu Esperanton! 理論的に作られた国際共通語エスペラントを学びませんか

検索語抽出プログラム

テキスト・ファイルから、検索語を抜き取り
別ファイルにするマクロを作ってみた。

作ったのはLibreOffice上で、Excelでも
動くだろう。

LibreOfficeで動かしたらJREを入れよと
警告がでるが、さきにすすむと動作した。

辞典名と場所を書き換えれば、応用可。

REM  *****  BASIC  *****
' 2013-02-06 vortoeltirilo el 'エスペラント日本語基本辞書'

Sub Main
 
	let kalkulo = 0
	let vorto = inputbox("sercxovorto")
	
	open "/home/nupuri/デスクトップ/エスペラント日本語基本辞書" for input as #1
	open "/home/nupuri/デスクトップ/" & vorto & ".txt" for output as #2
		do while not eof(1)
			line input #1, a
			if instr(a, vorto)>0 then
				print #2, a
			endif
		loop
	close #2
	close #1

End Sub

• 次の記事　→
• ←　前の記事

コメント