Andrey_A
|
 Posted: Tue Oct 18, 2011 20:45 Post subject: |
 |
|
JKT - попробуй, вроде всё, что ты описывал:
| Code: | '=====================================================================
' Создание списка файлов с ссылками в html формате
'
' Параметры:
' {%UL или %UF} {текст до} {текст после} {путь сохранения}
'
' Пример вызова из TC:
' %UL "" "" %t
' (сохранение в соcедней панели списка в html)
'=====================================================================
Dim FSO, Stroki, ts, nn, wsh, text1, text2, Path
Set FSO = CreateObject("Scripting.FileSystemObject")
List = Split(FSO.OpenTextFile(WScript.Arguments(0)).ReadAll, vbNewLine)
Set WSH = CreateObject("WScript.Shell")
text1 = WScript.Arguments(1)
text2 = WScript.Arguments(2)
Path = WScript.Arguments(3)
text = text + " "
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>"
For i = 0 To Ubound(List)
If Len(List(i)) > 0 Then Stroki = Stroki & vbNewLine & " <li><a href='" & List(i) & "'>" & text1 & FSO.GetFileName(List(i)) & text2 & "</a><BR></li>"
Next
Stroki = Stroki & vbNewLine & "</ol>" & vbNewLine & "<hr />" & vbNewLine & "</body>" & vbNewLine & "</html>" & vbNewLine
Set MyFile= FSO.CreateTextFile(Path & "Spisok" & "." & "html", True)
MyFile.Write(Stroki)
MyFile.Close
Set FSO = Nothing
WScript.Quit |
|
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
