Серый форум — VBScript: Дописывание в начало текста

Re: VBScript: Дописывание в начало текста

null@example.com (Serge Yolkin) — Sun, 19 Aug 2012 07:51:47 +0000

-TOXA-, собственно, последние приведённые примеры (#11, #12) скорее связаны с командной строкой Windows. Их можно использовать в скриптах, но, если в скриптовых технологиях Вы не разбираетесь, напишите пакетный файл .bat или .cmd (лучше cmd), тем более, что необходимые команды уже приведены.

Re: VBScript: Дописывание в начало текста

null@example.com (-TOXA-) — Thu, 16 Aug 2012 17:26:21 +0000

Извините, я нуб в этом, WSH не знаю, и чего-то не понимаю его. Он вроде как связан с VBS там с JS, но как пользоваться не знаю. Можно ли написать сразу мою функцию, как она должна выглядеть. Если не сложно...

Re: VBScript: Дописывание в начало текста

null@example.com (alexii) — Thu, 16 Aug 2012 10:31:53 +0000

-TOXA- пишет:

Или она делается через этот самый MDAC 2.8 SP1?

Нет. Это в случае использования WSH.

Re: VBScript: Дописывание в начало текста

null@example.com (alexii) — Thu, 16 Aug 2012 10:30:58 +0000

ФайлСБуковойW

ex. «W.txt» =:

1>W.txt



Re: VBScript: Дописывание в начало текста
null@example.com (smaharbA) — Thu, 16 Aug 2012 09:46:32 +0000
copy /b ФайлСБуковойW + /b ФайлБезБуковыW ФайлБезБуковыW


Re: VBScript: Дописывание в начало текста
null@example.com (-TOXA-) — Thu, 16 Aug 2012 09:43:38 +0000
Serge Yolkin и alexii, Расскажите, пожалуйста, подробней о "конкатенации с помощью консольной команды copy". Или она делается через этот самый MDAC 2.8 SP1?


Re: VBScript: Дописывание в начало текста
null@example.com (alexii) — Thu, 16 Aug 2012 09:19:24 +0000
Да, это будет проще и надёжнее.


Re: VBScript: Дописывание в начало текста
null@example.com (Serge Yolkin) — Thu, 16 Aug 2012 05:55:46 +0000
А если создать файл из одной буквы W без переноса строки, а потом сделать конкатенацию с помощью консольной команды copy?


Re: VBScript: Дописывание в начало текста
null@example.com (alexii) — Wed, 15 Aug 2012 22:26:17 +0000
MDAC 2.8 SP1, в состав которого входит библиотека, реализующая объект «ADODB.Stream», наличествует во всех ОС, начиная с Windows XP.


Re: VBScript: Дописывание в начало текста
null@example.com (-TOXA-) — Wed, 15 Aug 2012 21:06:45 +0000
Нее, мне нужно чтобы на всех компьютерах без дополнительных библиотек читалось, но спасибо за то что уделили время....:):):)


Re: VBScript: Дописывание в начало текста
null@example.com (alexii) — Wed, 15 Aug 2012 20:16:41 +0000
alexii пишет:TextStream не предназначен для работы с бинарными данными
Попробуйте использовать это:
VBScript: чтение и запись бинарных данных
WSH: чтение и запись бинарных данных
А также ждёт своего часа «SAPI.spFileStream», пока кто-нибудь не выложит примеры в Коллекцию:
Аналог ADODB.Stream, который не грузит весь файл в память )
WSH: Byte() to Long
VBS, JS: Загрузка файл на хостинг (XMLHTTP) и т.п.


Re: VBScript: Дописывание в начало текста
null@example.com (-TOXA-) — Wed, 15 Aug 2012 19:46:50 +0000
alexii, извините, но при запуске вашего скрипта, вылезает ошибка, когда я устранил проблемы, у меня стало писаться, что "Ввод данных за пределами файла" на строке где идет ReadAll(). Такая же ошибка была и у меня, до того как я написал на форум, и пытался писать сам....

P.S. А это может связано с тем, что в переменную не может влезть такой огромный текст, хотя это чушь, но мало ли.


Re: VBScript: Дописывание в начало текста
null@example.com (-TOXA-) — Wed, 15 Aug 2012 19:39:28 +0000
alexii, хм, я на подобии хотел сделать, но я был не уверен что переменная будет в себе хранить весь бинарный код, так как в нем содержатся символы, которые даже Юникод может не прочитать. Ладно, это все шутки, но все равно, спасибо, я попробую.


Re: VBScript: Дописывание в начало текста
null@example.com (alexii) — Wed, 15 Aug 2012 19:33:01 +0000
-TOXA-, вообще-то TextStream не предназначен для работы с бинарными данными и в ряде случаев может работать некорректно, портя содержимое.
А так:
Option Explicit

Const ForReading   = 1
Const ForWriting   = 2

With WScript.CreateObject("Scripting.FileSystemObject")
    With objFSO.OpenTextFile("Some file.ext", ForReading)
        strContent = .ReadAll()
        .Close
    End With
    
    With objFSO.OpenTextFile("Some file.ext", ForWriting)
        .Write("W" & strContent)
        .Close
    End With
End With

WScript.Quit 0


VBScript: Дописывание в начало текста
null@example.com (-TOXA-) — Wed, 15 Aug 2012 19:20:39 +0000
Здравствуйте, я хочу у Вас кое-что спросить, а если можно, то и помочь написать скрипт.
У меня есть файл SWF. Если открыть его блокнотом, то можно увидеть, что текст начинается с буквы, например это будет буква W. Ну вообщем этот файл swf переименован как qwe.dll, и у него из бинарного кода убрана первая буква (которую мы заранее знаем). VBS должен скопировать файл куда-нибудь, открыть его через TextStream и дописать в начало нашу букву W. Без буквы файл не запуститься корректно. В чем вопрос. Мне нужно как-то открыть файл, и дописать В НАЧАЛО букву.
Скрипт-то легкий вроде,а что-то путаюсь и не могу дописать букву в НАЧАЛО текста, только дописать в конец. Помогите, пожалуйста.