Как прописать путь

Question

Как и где можно прописать путь или исправить, что бы apr открывалось не только с диска С например?

Answer 1

http://www.dataplus.ru/Root/Scripts/View.asp?ScriptID=12

Answer 2

http://www.dataplus.ru/Root/Scripts/View.asp?ScriptID=25

Answer 3

    открыть апр в вордпаде и поменять в полуафтомате по поиску

Answer 4

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

'uuu.ContentOfProjectFile
'Распечатка содержимого проектов (темы с путями, таблицы, скрипты)
'
theExt = "apr"
theODBList = FileDialog.ReturnFiles(
{"*.apr","*.avx"},
{"Файлы проектов","Файлы дополнений"},
"Выбор файлов проекта",0)
if ((theODBList = nil) or (theODBList.count < 1)) then
exit
end
named="" namePo="" p=0
lShp={} lDbf={} lTif={} lJpg={} lScr={} lScrP={}
lCho={} lTool={} lButn1={} lPmenu={} lDocGui={} lPopup={}
for each ODBFileName in theODBList
'theODB = ODB.Open(ODBFileName)
fStr=ODBFileName.AsString
cStr=fStr.Count
aprTxt=fStr.Left(cStr-4)+".txt"
txt = LineFile.Make( ODBFileName, #FILE_PERM_READ )
txtOut = LineFile.Make( aprTxt.AsFileName, #FILE_PERM_WRITE )
while ((txt.IsatEnd).Not)
    str=txt.ReadElt
    if (str.Left(8)="(DocGui.") then
      str1=txt.ReadElt
      str1=txt.ReadElt.AsTokens("""")
      named=str1.Get(1)
      lDocGui.Add(named)
      Continue
    end
    
    if (str.Left(7)="(Pmenu.") then
      p=1
      aLab="Label:"
      while (str.Contains(aLab).not)
        str=txt.ReadElt
      end
      str1=str.AsTokens("""")
      nameP=str1.Get(1)
      lPmenu.Add(named++nameP)
      Continue
    end

    if (str.Left(7)="(Popup.") then
    p=2
      aLab="Label:"
      while (str.Contains(aLab).not)
        str=txt.ReadElt
      end
      str1=str.AsTokens("""")
      namePo="POPUP"+str1.Get(1)
      lPopup.Add(named++namePo)
      Continue
    end
    
    if (str.Left(8)="(Choice.") then
      aLab="Click:"
      while (str.Contains(aLab).not)
       str=txt.ReadElt
      end
      str1=str.AsTokens("""")
      nameC=str1.Get(1)
        if (p=1) then
          lCho.Add(named++nameP++nameC)
        else
          lCho.Add(named++namePo++nameC)
        end
      Continue
    end

    if (str.Left(6)="(Butn.") then
      aLab="Click:"
      while (str.Contains(aLab).not)
        str=txt.ReadElt
      end
      str1=str.AsTokens("""")
      nameB=str1.Get(1)
      lButn1.Add(named++nameB)
      Continue''
    end
    
    if (str.Left(6)="(Tool.") then
      aLab="Apply:"
      while (str.Contains(aLab).not)
        str=txt.ReadElt
      end
      str1=str.AsTokens("""")
      nameT=str1.Get(1)
      lTool.Add(named++nameT)
      Continue
    end

    if (str.Left(4)="(FN.") then
      str1=txt.ReadElt.AsTokens("""")
      nameF=str1.Get(1)
      ext=nameF.Right(3)
      if (ext="shp") then lShp.Add(nameF) end
      if (ext="dbf") then lDbf.Add(nameF) end
      if (ext="Tif") then lTif.Add(nameF) end
      if (ext="Jpg") then lJpg.Add(nameF) end
      Continue
    end
    
    if (str.Left(5)="(Sed.") then
      str1=txt.ReadElt.AsTokens("""")
      nameS=str1.Get(1)
      lScr.Add(nameS)
      Continue
    end
    
    if (str.Left(8)="(Script.") then
      str1=txt.ReadElt.AsTokens("""")
      nameScrP=str1.Get(1)
      lScrP.Add(nameScrP)
    end

end
lShp.RemoveDuplicates
lDbf.RemoveDuplicates
lTif.RemoveDuplicates
lJpg.RemoveDuplicates
lScrP.Sort(True)
txtOut.WriteElt("Список файлов в проекте"++fstr)
txtOut.WriteElt(NL+"Shape -файлы"+NL)
for each rec in lShp
    txtOut.WriteElt(rec)
end
txtOut.WriteElt(NL+"Таблицы"+NL)
for each rec in lDbf
    txtOut.WriteElt(rec)
end
txtOut.WriteElt(NL+"Tif -файлы"+NL)
for each rec in lTif
    txtOut.WriteElt(rec)
end
txtOut.WriteElt(NL+"Jpg -файлы"+NL)
for each rec in lJpg
    txtOut.WriteElt(rec)
end
txtOut.WriteElt(NL+"Скрипты в проекте"+NL)
for each rec in lScrP
    txtOut.WriteElt(rec)
end
txtOut.WriteElt(NL+"Скрипты в редакторе"+NL)
for each rec in lScr
    txtOut.WriteElt(rec)
end
txtOut.WriteElt(NL+"GUI's"+NL)
for each rec in lDocGui
    txtOut.WriteElt(rec)
end
txtOut.WriteElt(NL+"Меню"+NL)
for each rec in lPmenu
    txtOut.WriteElt(rec)
end
txtOut.WriteElt(NL+"Pop_Меню"+NL)
for each rec in lPopup
    txtOut.WriteElt(rec)
end

txtOut.WriteElt(NL+"Пункты меню"+NL)
for each rec in l

Answer 5

Добрый день! Я освоил использование скриптов, которые находятся "внутри" ArcView (у меня ArcView 3.2а). Как, с каким расширением сохранить приведенный скрипт, куда его поместить и как  работать? Пожалуйста помогите!