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

0 голосов
спросил 02 Дек, 10 от Rassvet_M (300 баллов) в категории Программные продукты Esri
Как и где можно прописать путь или исправить, что бы apr открывалось не только с диска С например?

5 Ответы

0 голосов
ответил 02 Дек, 10 от peter1 (7,760 баллов)
0 голосов
ответил 02 Дек, 10 от Mitrich (13,680 баллов)
0 голосов
ответил 14 Дек, 10 от portvein777tm (13,820 баллов)
    открыть апр в вордпаде и поменять в полуафтомате по поиску
0 голосов
ответил 15 Дек, 10 от Lord (3,920 баллов)
В дополнение к предыдущим сообщениям.
Не знаю, как прицепить файл.Поэтому скрипт ниже.
я часто пользуюсь скриптом, представленным ниже
для определения путей, где и что находится.
Весьма полезная штука. Выбираешь файл проекта.
Результат находится в том же каталоге, что и проект,
только с расширением ТХТ.
Потом этот файл передается в блокнот.

'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
0 голосов
ответил 21 Дек, 10 от Anatoliy38 (260 баллов)
Добрый день! Я освоил использование скриптов, которые находятся "внутри" ArcView (у меня ArcView 3.2а). Как, с каким расширением сохранить приведенный скрипт, куда его поместить и как  работать? Пожалуйста помогите! 
Добро пожаловать на сайт Вопросов и Ответов, где вы можете задавать вопросы по GIS тематике и получать ответы от других членов сообщества.
...