AnalyseForms.ssl

:WORK:ディレクトリの中のフォーム(*.fsl)を検索して、フォームにアタッチされたコードをテキスト形式で吐き出す。
　コードの置き場は:WORK:ディレクトリの下に作るcodesフォルダ内。
　ファイル名は Form_[filename].txt

---

method run(var eventInfo Event)
var
    siteForm   Form
    fs         FileSystem
   driveName, pathName, fileName, extName String
endVar
fs.makeDir(workingDir()+"\\codes")
while fs.findNext(":WORK:*.fsl")
 　 splitFullFileName(fs.fullName(), driveName, pathName, fileName, extName)
    siteForm.open(fs.name())
    siteForm.enumSourceToFile(workingDir()+"\\codes\\Form_" + string(filename)+".txt", True)
    siteForm.close()
endwhile
endMethod

---

＜＜戻る