#post-id: 3038-23-27
#original-date: 19.11.2008 Wed
#original-time: 11:27 PM
#original-day:  3038
#original-host: WinXP Prof SP2 (Build 2600)

Офигеть. 19 обоек, мне лень писать XML под них ручками, но не лень красиво полчаса писать скрипт... В этот раз обошлась Даной и справочником по WSH ^_^v Правда навигация там всё равно не очень удобная...

Вот что я понаписала...

Option Explicit Const AppTitle = "Создание XML файла галереи" Const ForReading = 1 Const ForWriting = 2 Const ForAppending = 8 '==================================================================== ' Debug... Dim BasePath If WScript.Arguments.Count > 0 Then  BasePath = Trim(WScript.Arguments(0)) End If If BasePath = "" Then BasePath = "X:\omake\wallpapers\2008_11_19\" If Right(BasePath, 1) <> "\" Then BasePath = BasePath & "\" MsgBox BasePath, vbInformation, AppTitle '==================================================================== Dim FSO 'As FileSystemObject Set FSO = CreateObject("Scripting.FileSystemObject") Dim Folder Set Folder = FSO.GetFolder(BasePath & ".") Dim Files Set Files = Folder.Files '==================================================================== Dim OutFile Dim FileName Dim TextDate FileName = Year(Now) & "_" & Month(Now) & "_" & Day(Now) TextDate = Day(Now) & "." & Month(Now) & "." & Year(Now) Set OutFile = FSO.OpenTextFile(BasePath & "..\wallpapers." & FileName & ".xml", ForWriting, True) '==================================================================== OutFile.WriteLine "< ?xml version=""1.0"" encoding=""windows-1251"" standalone=""no""?>" OutFile.WriteLine "< ?xml-stylesheet href=""wallpapers.xsl"" type=""text/xsl""?>" OutFile.WriteLine "" OutFile.WriteLine "<Wallpapers xmlns=""http://purl.oclc.org/Linda_Kaioh/Homepage/Wallpapers.XML""" OutFile.WriteLine "            Date=""" & TextDate & """>" OutFile.WriteLine "" '==================================================================== Dim File Dim TXT Dim BaseName Dim Extension For Each File in Files  BaseName = FSO.GetBaseName(File.Name)  Extension = FSO.GetExtensionName(File.Name)    If RightExtension(Extension) Then    If Right(FSO.GetBaseName(File.Name), 6) <> ".thumb" Then      OutFile.WriteLine "  <Wallpaper Name=""" & BaseName & """"      OutFile.WriteLine "             Src=""http://linda-kaioh.trefoil.org.ua/?u=http://purl.oclc.org/Linda_Kaioh/Homepage/omake/wallpapers/" & FileName & "/" & BaseName & "." & Extension & """"      OutFile.WriteLine "             Thumb=""" & FileName & "/" & BaseName & ".thumb.JPG"""      OutFile.WriteLine "             Comments=""http://www.diary.ru/~Linda-chan-no-Sekai"">"      OutFile.WriteLine "    <DescPara>"      OutFile.WriteLine "    "      OutFile.WriteLine "      Text..."      OutFile.WriteLine "    ]]>"      OutFile.WriteLine "    </DescPara>"      OutFile.WriteLine "  </Wallpaper>"      OutFile.WriteLine "  "    End If  End If Next '==================================================================== OutFile.WriteLine "</Wallpapers>" OutFile.Close MsgBox "Готово! ^_^", vbInformation, AppTitle '==================================================================== Function RightExtension(Text)  Dim Ext  Ext = UCase(Text)    If Ext = "VBS" Then Exit Function  If Ext = "JS" Then Exit Function  If Ext = "XML" Then Exit Function  If Ext = "XSL" Then Exit Function  If Ext = "DTD" Then Exit Function  If Ext = "HTM" Then Exit Function  If Ext = "TXT" Then Exit Function  If Ext = "" Then Exit Function    RightExtension = True End Function

Только не стреляйте в пианистку ^^'

Люблю VBsсript ^_^ Особенно как он работает со строками ^_^ JS так может, но там как-то всё замороченнее, что я писала функции, переводящие все эти substring() на язык VB ^^ Ну и синтаксис у него более читаем, чем у JS ^^ Я заметила что во всех книжках по оформлению кода, код на C (и JS тоже) рекомендуют коментировать так, чтобы там, где закрывается фигурная скобка, был коммент с началом оператора, который открывает блок. В книгах по VB есть куча всяких советов, но почти не бывает этого, разве что человек суровый сишник. В чём дело? Да в том, что End If гораздо читаемее, чем } или end;... /* Это я уже Паскаль вспомнила... */ Поэтому там совершенно не нужно всё это...

#music: ACE\SUPER EUROBEAT presents INITIAL D BATTLE STAGE 2 [DISC2](2)\FUTURELAND