自動化・効率化ならKTパソコンスクール

指定したフォルダ内の全ての拡張子txtのファイル内の１つの文字列を検索し、ファイル名と行を表示するプログラムをUWSCで作ってみました。

デスクトップ上の全てのtxtファイル内の１つの文字列を検索、ファイル名と行を表示する（「こんにちは」を検索し、「こんにちは」の文字列が見つかればファイル名と見つかった行を表示）

dir = "C:\Users\｛ユーザー名｝\Desktop\"

files = "*.txt"



//検索する文字

search_str = "こんにちは"

For i=0 to GETDIR(dir, files)-1

	ID = FOPEN("<#DBL>" + dir + GETDIR_FILES[i] + "<#DBL>", F_READ)	

	For j=1 to FGET(ID, -1)

		//テキストファイルの1行の内容

		content = FGET(ID, j)

		ret = POS(search_str, content)

		if ret > 0 then

			print GETDIR_FILES[i] + ":" + j

			break

		endif

	next

	FCLOSE(ID)

next