'=====================================================================
' Создание списка файлов в html формате
'
' Параметры:
' {%UL или %UF} {текст до} {текст после} {путь сохранения}
'
' Пример вызова из TC:
' %UL "" "" %t
' (сохранение в соcедней панели списка в html)
'=====================================================================
Dim fso, Stroki, ts, nn, wsh, text1, text2, Path
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = CreateObject("Scripting.FileSystemObject").OpenTextFile(WScript.Arguments(0), 1)
Set WSH = CreateObject("WScript.Shell")
text1 = WScript.Arguments(1)
text2 = WScript.Arguments(2)
Path = WScript.Arguments(3)
text = text + " "
Stroki=""
Stroki = "<head>" & vbNewLine &_
"<meta http-equiv='Content-Type'content='text/html; charset=utf-8' />" & vbNewLine &_
"<style type='text/css'>" & vbNewLine &_
"body {background-color: #E4F3FF;font-family: sans-serif, Helvetica, Arial;font-size:px;}" & vbNewLine &_
"h1 {color: #2D58AE;font-size: 25px;}" & vbNewLine &_
"hr {color: #555555;}" & vbNewLine &_
"</style>" & vbNewLine &_
"</head>" & vbNewLine &_
"<body>" & vbNewLine &_
"<h1>List</h1>" & vbNewLine &_
"<hr />" & vbNewLine &_
"<ol>" & vbNewLine &_
Stroki
Do Until ts.AtEndOfStream
Stroki=Stroki & " <li>" & text1 & ts.ReadLine & text2 & "</li>" & vbNewLine
Loop
ts.Close
Stroki = Stroki & "</ol>" & vbNewLine & "<hr />" & vbNewLine & "</body>" & vbNewLine & "</html>" & vbNewLine
Set MyFile= fso.CreateTextFile(Path & "Spisok" & "." & "html", True)
MyFile.Write(Stroki)
MyFile.Close
Set ts=Nothing
Set fso = Nothing
WScript.Quit |