プロジェクト内で使用中のフォームのキャプションの一覧 (ID:41436)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 良く考えたら、前述の方法では、プロジェクトから削除したフォームも拾ってしまうため、プロジェクトファイルもチェックしないと確実とは言えません。 例えば、VBスクリプト（ここでは場違いかもしれませんが...）で、一覧を出力する方法は次のようになります。 テキスト整形部分は、用途に合わせて書き換えてください。 尚、ASCIIとUNICODEの境界を判別していないので、'#12345'のようなキャプションがあると文字化けしますので注意。 set Fs = CreateObject("Scripting.FileSystemObject") ' 作業パス FullName = WScript.ScriptFullName Folder = Left(FullName, instrrev(FullName, "\")) ' 結果保存用 set Caption = Fs.CreateTextFile(Folder & "Caption.txt") ' プロジェクトファイルの取得 for each F in Fs.GetFolder(Folder).Files if Fs.GetExtensionName(F) = "dproj" then set Dproj = Fs.OpenTextFile(F) All = Dproj.ReadAll Dproj.Close exit for end if next ' プロジェクトフォルダ内のパラメータファイルを取得 for each F in Fs.GetFolder(Folder).Files if Fs.GetExtensionName(F) = "dfm" then Set Text = Fs.OpenTextFile(F) do Line = Text.ReadLine ' フォーム名の取得 if Instr(Line, "object ") = 1 then head = Instr(Line, " ")+1 tail = Instr(Line, ":") tmp1 = Mid(Line, head, tail-head) end if ' 当該フォームがプロジェクトに含まれるかチェック if Instr(All, "<Form>" & tmp1 & "</Form>") = 0 then exit do ' キャプションの取得 if Instr(Line, "Caption = ") = 3 then set Re = New RegExp Re.Pattern = "#\d+\d+\d+\d+\d*\d*\d*" Re.Global = True set Unicodes = Re.Execute(Line) tmp2 = LTrim(Line) for each Unicode in Unicodes Decimal = Replace(Unicode.Value, "#", "") tmp2 = Replace(tmp2, Unicode.Value, ChrW(Decimal)) next ' テキスト整形 tmp1 = tmp1 & Space(10-Len(tmp1)) tmp2 = Replace(tmp2, "'", "") Caption.WriteLine(tmp1 & " : " & tmp2) exit do end if loop until Text.AtEndOfStream Text.Close end if next Caption.Close プロジェクトフォルダ内で実行してみてください。