будет ли этот код работать во всех Windows начиная с XP.
Работает:
Windows 7 HB, SP1, x64
VM VirtualBox чистая WinXP Professional SP3
dab00 пишет:
Такой вот "жесткий" рецепт
.
Благодарю за патч - помогло.
]]>Используются объекты MSXml2.DOMDocument и ADODB.Stream
Также приведены решения с использованием сторонних COM-объектов.
]]>будет ли этот код работать во всех Windows начиная с XP.
Работает:
Windows 7 HB, SP1, x64
VM VirtualBox чистая WinXP Professional SP3
Такой вот "жесткий" рецепт
Благодарю за патч - помогло.
]]>
. На самом деле спасибо, Rumata, сразу так все недостатки (или не все еще) нашли и разложили, все в точку.
Может на XP кто затестит, с парсером там проблем не будет? А еще Виста в природе иногда встречается...
А еще программно удобно обращаться к аргументам с помощью объекта WScript.Arguments.Unnamed, а к ключам - с WScript.Arguments.Named.
]]>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<meta http-equiv="x-ua-compatible" content="IE=8" >
И сохранить изменения. Только так, никакие параметры просмотра в режиме совместимости или добавление хоста в зону мне не помогли. Такой вот "жесткий" рецепт .
.UPD: с учетом замечаний уважаемого Rumata исправил, спасибо еще раз, на счет префикса ключей - можно и слэш, по-моему так удобнее, кто-то привык --ключ
]]>
copy /b %COMSPEC% c:\Temp
cscript b64.vbs -t C:\Temp.cmd.exe
cscript b64.vbs -b C:\Temp\cmd.exe.b64
3. нестандартные для Windows ключи -t, -b (тире вместо привычного слеша /t, /b. Хотя разработчики из Рэдмонда сами же и не следуют правилу)
4. непонятен смысл ключа -t. Обычно когда что-то во что-то кодируют использют /encode, /e, -e. А когда декодируют - /decode, /d, -d.
5. жестко заданное имя программы в справке (WScript.ScriptName или WScript.ScriptFullName лучше. Нет?)
Конвертация bin->b64->bin прошла успешно (win7 Enterprise 64-bit SP1)
]]>
' converter of binary into base64 and vise versa
errString = "Examples: " & vbCrLf & _
"- binary into base64: " & WScript.ScriptName & _
" -e myPicture.jpeg myDll.dll" & vbCrLf & _
"- base64 into binary: " & WScript.ScriptName & _
" -d myPicture.jpeg.b64 myDll.dll.b64"
If WScript.Arguments.Count < 2 Then
WScript.Echo "Error: Not enough arguments" & vbCrLf & errString
WScript.Quit
End If
wa = Right(LCase(WScript.Arguments(0)), 1)
If Not (wa = "e" Or wa = "d") Then
WScript.Echo "Error: Invalid named arguments" & vbCrLf & errString
WScript.Quit
End If
Set fso = CreateObject("Scripting.FileSystemObject")
For i=1 To WScript.Arguments.Count - 1
If Not fso.FileExists(WScript.Arguments(i)) Then
WScript.Echo "Error: File " & WScript.Arguments(i) & " not found" & vbCrLf & errString
WScript.Quit
End If
If wa = "e" Then WScript.Echo toBase64(WScript.Arguments(i))
If wa = "d" Then WScript.Echo toBinary(WScript.Arguments(i))
Next
Function toBase64(file)
With CreateObject("ADODB.Stream")
.Type = 1
.Open
.LoadFromFile(file)
bytes = .Read
End With
With CreateObject("Microsoft.XMLDOM").createElement("tmp")
.DataType = "bin.base64"
.NodeTypedValue = bytes
base64 = .Text
End With
newfile = fso.GetFileName(fso.GetFile(file)) & ".b64"
fso.CreateTextFile(newfile, True).Write(base64)
toBase64 = "toBase64: " & file & " >>> " & newfile & " : OK"
End Function
Function toBinary(file)
With fso.OpenTextFile(file, 1)
base64 = .ReadAll
.Close
End With
With CreateObject("Microsoft.XMLDOM").createElement("tmp")
.DataType = "bin.base64"
.Text = base64
bytes = .NodeTypedValue
End With
With CreateObject("ADODB.Stream")
.Type = 1
.Open
.Write bytes
newfile = "new-" & Replace(fso.GetFileName(fso.GetFile(file)), ".b64", vbNullString)
.SaveToFile newfile, 2
End With
toBinary = "toBinary: " & file & " >>> " & newfile & " : OK"
End Function