Какой инструмент использовать для рисования [закрытой] древовидной схемы файла

Graphviz - от веб-страницы:

программы расположения Graphviz берут описания графиков на простом текстовом языке и делают схемы в нескольких полезных форматах, таких как изображения и SVG для веб-страниц, Постскриптум для включения в PDF или другие документы; или дисплей в интерактивном браузере графика. (Graphviz также поддерживает GXL, диалект XML.)

Это - самый простой и самый продуктивный инструмент, который я нашел для создания множества схем полей-и-строк. Я имею и использую Visio и OmniGraffle, но всегда существует искушение внести "просто еще одну корректировку".

также довольно легко записать, что код для создания "точечного файла" форматирует тот Graphiz, использует, таким образом, автоматизированное производство схемы также приятно в пределах досягаемости.

Почему Вы не могли только сделать файловую структуру в файловой системе Windows и заполнить ее с Вашими желаемыми именами, затем используйте экранное средство захвата как HyperSnap (или повсеместный Alt-PrtScr) для получения раздела окна Explorer.

я сделал это при 'демонстрации' интернет-приложения, которое будет иметь разборные разделы, я просто должен был создать файлы, которые были похожи на мои желаемые записи.

HyperSnap дает JPGs, по крайней мере (вероятно, другие, но я никогда не потрудился заниматься расследованиями).

Или Вы могли снимок экрана значки +/-из Проводника и использовать их в MS Word, Тянут себя, чтобы сделать Ваше изображение, но я никогда не был в состоянии добраться, MS Word Тянут для поведения сам правильно.

Как обещано, вот моя Каирская версия. Я написал сценарий его с Lua, с помощью lfs для обхода каталогов. Я люблю эти небольшие проблемы, поскольку они позволяют мне исследовать API, которые я хотел вырыть в течение достаточно долгого времени...
lfs и LuaCairo являются оба межплатформенными, таким образом, это должно работать над другими системами (протестированный на французском WinXP Pro SP3).

я сделал первые имена файла рисунка версии, когда я обошел дерево. Преимущество: никакая память наверху. Неудобство: Я должен определить размер изображения заранее, таким образом, списки, вероятно, будут отключены.

, Таким образом, я сделал эту версию, сначала обойдя дерево каталогов, храня его в таблице Lua. Затем зная количество файлов, создавая холст для установки (по крайней мере, вертикально) и таща имена.
можно легко переключиться между рендерингом PNG и SVG один. Проблема с последним: Каир генерирует его на низком уровне, таща буквы вместо того, чтобы использовать текстовую поддержку SVG. Ну, по крайней мере, это гарантирует точное раздирание даже в системах без шрифта. Но файлы больше... Едва ли проблема, если Вы сжимаете его после, для имения .svgz файла.
Или не должно быть слишком трудно генерировать SVG непосредственно, я использовал Lua для генерации SVG в прошлом.

-- LuaFileSystem <http://www.keplerproject.org/luafilesystem/>
require"lfs"
-- LuaCairo <http://www.dynaset.org/dogusanh/>
require"lcairo"
local CAIRO = cairo


local PI = math.pi
local TWO_PI = 2 * PI

--~ local dirToList = arg[1] or "C:/PrgCmdLine/Graphviz"
--~ local dirToList = arg[1] or "C:/PrgCmdLine/Tecgraf"
local dirToList = arg[1] or "C:/PrgCmdLine/tcc"
-- Ensure path ends with /
dirToList = string.gsub(dirToList, "([^/])$", "%1/")
print("Listing: " .. dirToList)
local fileNb = 0

--~ outputType = 'svg'
outputType = 'png'

-- dirToList must have a trailing slash
function ListDirectory(dirToList)
  local dirListing = {}
  for file in lfs.dir(dirToList) do
    if file ~= ".." and file ~= "." then
      local fileAttr = lfs.attributes(dirToList .. file)
      if fileAttr.mode == "directory" then
        dirListing[file] = ListDirectory(dirToList .. file .. '/')
      else
        dirListing[file] = ""
      end
      fileNb = fileNb + 1
    end
  end
  return dirListing
end

--dofile[[../Lua/DumpObject.lua]] -- My own dump routine
local dirListing = ListDirectory(dirToList)
--~ print("\n" .. DumpObject(dirListing))
print("Found " .. fileNb .. " files")

--~ os.exit()

-- Constants to change to adjust aspect
local initialOffsetX = 20
local offsetY = 50
local offsetIncrementX = 20
local offsetIncrementY = 12
local iconOffset = 10

local width = 800 -- Still arbitrary
local titleHeight = width/50
local height = offsetIncrementY * (fileNb + 1) + titleHeight
local outfile = "CairoDirTree." .. outputType

local ctxSurface
if outputType == 'svg' then
  ctxSurface = cairo.SvgSurface(outfile, width, height)
else
  ctxSurface = cairo.ImageSurface(CAIRO.FORMAT_RGB24, width, height)
end
local ctx = cairo.Context(ctxSurface)

-- Display a file name
-- file is the file name to display
-- offsetX is the indentation
function DisplayFile(file, bIsDir, offsetX)
  if bIsDir then
    ctx:save()
    ctx:select_font_face("Sans", CAIRO.FONT_SLANT_NORMAL, CAIRO.FONT_WEIGHT_BOLD)
    ctx:set_source_rgb(0.5, 0.0, 0.7)
  end

  -- Display file name
  ctx:move_to(offsetX, offsetY)
  ctx:show_text(file)

  if bIsDir then
    ctx:new_sub_path() -- Position independent of latest move_to
    -- Draw arc with absolute coordinates
    ctx:arc(offsetX - iconOffset, offsetY - offsetIncrementY/3, offsetIncrementY/3, 0, TWO_PI)
    -- Violet disk
    ctx:set_source_rgb(0.7, 0.0, 0.7)
    ctx:fill()
    ctx:restore() -- Restore original settings
  end

  -- Increment line offset
  offsetY = offsetY + offsetIncrementY
end

-- Erase background (white)
ctx:set_source_rgb(1.0, 1.0, 1.0)
ctx:paint()

--~ ctx:set_line_width(0.01)

-- Draw in dark blue
ctx:set_source_rgb(0.0, 0.0, 0.3)
ctx:select_font_face("Sans", CAIRO.FONT_SLANT_NORMAL, CAIRO.FONT_WEIGHT_BOLD)
ctx:set_font_size(titleHeight)
ctx:move_to(5, titleHeight)
-- Display title
ctx:show_text("Directory tree of " .. dirToList)

-- Select font for file names
ctx:select_font_face("Sans", CAIRO.FONT_SLANT_NORMAL, CAIRO.FONT_WEIGHT_NORMAL)
ctx:set_font_size(10)
offsetY = titleHeight * 2

-- Do the job
function DisplayDirectory(dirToList, offsetX)
  for k, v in pairs(dirToList) do
--~ print(k, v)
    if type(v) == "table" then
      -- Sub-directory
      DisplayFile(k, true, offsetX)
      DisplayDirectory(v, offsetX + offsetIncrementX)
    else
      DisplayFile(k, false, offsetX)
    end
  end
end

DisplayDirectory(dirListing, initialOffsetX)

if outputType == 'svg' then
    cairo.show_page(ctx)
else
  --cairo.surface_write_to_png(ctxSurface, outfile)
  ctxSurface:write_to_png(outfile)
end

ctx:destroy()
ctxSurface:destroy()

print("Found " .. fileNb .. " files")

, Конечно, можно изменить стили. Я не проводил линии соединения, я не сделал считал его необходимым. Я мог бы добавить их дополнительно позже.

Совет использовать Graphviz хорош: можно генерировать точечный файл, и он сделает тяжелую работу измерения строк, выполнение расположения, и т.д. Плюс он может произвести графики в партии форматов, включая векторные.

я нашел программу Perl, делающую точно, что, в списке рассылки, но я просто не могу найти его назад! Я скопировал демонстрационный точечный файл и изучил его, так как я не знаю большую часть этого декларативного синтаксиса, и я хотел учиться немного больше.

проблема: с последним Graphviz у меня есть ошибки (или скорее предупреждения, поскольку заключительная схема сгенерирована), и в исходном графике и в том, я записал (вручную). Некоторые поиски, показанные эту ошибку, были найдены в старых версиях и исчезли в более свежих версиях. Похож на него, вернулся.

я все еще даю файл, возможно, это может быть начальная точка для кого-то, или возможно это достаточно для Ваших потребностей (конечно, все еще необходимо генерировать его).

digraph tree
{
  rankdir=LR;

  DirTree [label="Directory Tree" shape=box]

  a_Foo_txt [shape=point]
  f_Foo_txt [label="Foo.txt", shape=none]
  a_Foo_txt -> f_Foo_txt

  a_Foo_Bar_html [shape=point]
  f_Foo_Bar_html [label="Foo Bar.html", shape=none]
  a_Foo_Bar_html -> f_Foo_Bar_html

  a_Bar_png [shape=point]
  f_Bar_png [label="Bar.png", shape=none]
  a_Bar_png -> f_Bar_png

  a_Some_Dir [shape=point]
  d_Some_Dir [label="Some Dir", shape=ellipse]
  a_Some_Dir -> d_Some_Dir

  a_VBE_C_reg [shape=point]
  f_VBE_C_reg [label="VBE_C.reg", shape=none]
  a_VBE_C_reg -> f_VBE_C_reg

  a_P_Folder [shape=point]
  d_P_Folder [label="P Folder", shape=ellipse]
  a_P_Folder -> d_P_Folder

  a_Processing_20081117_7z [shape=point]
  f_Processing_20081117_7z [label="Processing-20081117.7z", shape=none]
  a_Processing_20081117_7z -> f_Processing_20081117_7z

  a_UsefulBits_lua [shape=point]
  f_UsefulBits_lua [label="UsefulBits.lua", shape=none]
  a_UsefulBits_lua -> f_UsefulBits_lua

  a_Graphviz [shape=point]
  d_Graphviz [label="Graphviz", shape=ellipse]
  a_Graphviz -> d_Graphviz

  a_Tree_dot [shape=point]
  f_Tree_dot [label="Tree.dot", shape=none]
  a_Tree_dot -> f_Tree_dot

  {
    rank=same;
    DirTree -> a_Foo_txt -> a_Foo_Bar_html -> a_Bar_png -> a_Some_Dir -> a_Graphviz [arrowhead=none]
  }
  {
    rank=same;
    d_Some_Dir -> a_VBE_C_reg -> a_P_Folder -> a_UsefulBits_lua [arrowhead=none]
  }
  {
    rank=same;
    d_P_Folder -> a_Processing_20081117_7z [arrowhead=none]
  }
  {
    rank=same;
    d_Graphviz -> a_Tree_dot [arrowhead=none]
  }
}

> dot -Tpng Tree.dot -o Tree.png
Error: lost DirTree a_Foo_txt edge
Error: lost a_Foo_txt a_Foo_Bar_html edge
Error: lost a_Foo_Bar_html a_Bar_png edge
Error: lost a_Bar_png a_Some_Dir edge
Error: lost a_Some_Dir a_Graphviz edge
Error: lost d_Some_Dir a_VBE_C_reg edge
Error: lost a_VBE_C_reg a_P_Folder edge
Error: lost a_P_Folder a_UsefulBits_lua edge
Error: lost d_P_Folder a_Processing_20081117_7z edge
Error: lost d_Graphviz a_Tree_dot edge

я попробую другое направление, с помощью Каира, который также в состоянии экспортировать много форматов. Это - больше работы (вычислительные положения/смещения), но структура проста, не должно быть слишком твердым.