! 20/06/2017 01:44:39
! Creater html project
Console.title "Создание"
gosub functions
start:
Input "Название проекта", result$, "project",canc
if canc | result$="" then end "Вы не указали название проекта. Программа завершена."
path$="../HTML/"+result$
gosub dat
file.mkdir path$
file.exists e, path$+"/"+result$+".html"
if e then Dialog.message "Предупреждение", "Файл " +result$+".html уже существует! Будем переписывать?" , dh, "Нет", "Да"
file.exists e, path$+"/"+result$+".js"
if e then Dialog.message "Предупреждение", "Файл "+result$+".js уже существует! Будем переписывать?" , dj, "Нет", "Да"
file.exists e, path$+"/"+result$+".css"
if e then Dialog.message "Предупреждение", "Файл "+result$+".css уже существует! Будем переписывать?" , dc, "Нет", "Да"
file.exists e, path$+"/run_"+result$+".bas"
if e then Dialog.message "Предупреждение", "Файл run_"+result$+".bas уже существует! Будем переписывать?" , db, "Нет", "Да"
if dh=1 & dj=1 & dc=1 & db=1 then Dialog.message "Решение", "Вернуться к вводу названия проекта?" , dlife, "Нет", "Да"
if dlife=2 then goto start
if dlife=1 then end "Программа завершена."
!0 cancel
!2 да
!1 нет
if dh<>1 then crFile(path$+"/"+result$+".html",lHtml):print now$()+" Запись "+result$+".html"
if dj<>1 then crFile(path$+"/"+result$+".js",ljs):print now$()+" Запись "+result$+".js"
if dc<>1 then crFile(path$+"/"+result$+".css",lcss):print now$()+" Запись "+result$+".css"
if db<>1 then crFile(path$+"/run_"+result$+".bas",lbas):print now$()+" Запись run_"+result$+".bas"
print "Проект создан."
pause 1500
exit
Functions:
fn.def crFile(path$,lst)
text.open w, ch, path$
list.size lst, size
for i=1 to size
list.get lst,i,p$
text.writeln ch, p$
next
text.close ch
fn.end
fn.def now$()
Time Y$, Mon$, D$, H$, M$, S$, W, isDST
fn.rtn d$+"/"+mon$+"/"+y$+" "+h$+":"+m$+":"+s$
fn.end
Return
Dat:
list.create s,lHtml
list.add lHtml,""
list.add lHtml,""
list.add lHtml,""
list.add lHtml,""
list.add lHtml," "
list.add lHtml," "+result$+""
list.add lHtml,"
list.add lHtml," "
list.add lHtml," "
list.add lHtml," "
list.add lHtml," "
list.add lHtml,"
"
list.add lHtml,"
"
list.add lHtml,"
"
list.add lHtml,"
Привет! Этот файл создан автоматически. Можешь изменять его как захочешь.