VBS: Оператор для объединения команд

есть похожий Операторы объединения команд? vbs &&

DarkJoker1992, коверканье русского языка будет расцениваться как неуважение к участникам форума. Исправьте ошибки и добавьте префикс скриптового языка в название темы.

Запрещается отвечать в теме до исправлений.

извиняюсь, так устроит?

Предложения начинаются с заглавной буквы и заканчиваются знаками препинания.

Подскажите vbs работает только в ANSI? у меня в UNICODE выдаёт ошибку сразу , есть скрипт vbs для изменения кодировки с UNICODE  в ANSI ?

Если имеется в виду кодировка самого скрипта — нет. Превосходно работает и при сохранении в юникоде.

Упакуйте Ваш скрипт в архив и приложите. Покажите ошибку.

Кодировки чего? Если файла — нет ничего проще: откройте файл для чтения с указанием кодировки юникод, прочтите содержимое в переменную, закройте файл, откройте файл для записи с указанием кодировки ANSI, запишите содержимое переменной в файл, закройте файл.

UTF16 LE с ВОМ и без. С UTF16 BE работает только без BOM.

Flasher, так поделитесь конкретными случаями такого опыта. Я только «за».

Покажу вам код в котором ошибка вылазит что бы вам было понятней

   Dim fso  :

   Set fso = CreateObject("Scripting.FileSystemObject")  :

   fso.CopyFile "dis.txt","log.txt"  :
  
   Const FOR_READING = 1 :
   Const FOR_WRITING = 2 :

       Dim oFSO, sText, oTextStream, sFile :

       sFile = "log.txt" :
  
       Set oFSO = CreateObject("Scripting.FileSystemObject") :
       Set oTextStream = oFSO.OpenTextFile(sFile, FOR_READING, False) :
       sText = oTextStream.ReadAll() :
       oTextStream.Close :

       sText = Replace(sText, "@", "") :

       Set oTextStream = oFSO.OpenTextFile(sFile, FOR_WRITING, True) :
       oTextStream.Write sText :
       oTextStream.Close :
   
       Set oTextStream = Nothing :
       Set oFSO = Nothing :

пишет строка 25 символ 8 Ошибка недопустимый вызов или аргумент процедуры, как только через notepad ставлю кодировку ANSI всё норм работает

двоеточие нужно потому что код в строчку становится -_- , а насчёт 2-го создания объекта спасибо, щас испробую.

Спасибо, ваша подсказка помогла, теперь ошибка в 14 строке , символ 8 , пишет что не хватает "

   Dim fso  :

   Set fso = CreateObject("Scripting.FileSystemObject")  :

   fso.CopyFile "dis.txt","log.txt"  :
  
   Const FOR_READING = 1 :
   Const FOR_WRITING = 2 :

       Dim oFSO, sText, oTextStream, sFile :

       sFile = "log.txt":
       Set oTextStream = oFSO.OpenTextFile(sFile, FOR_READING, False) :
       sText = oTextStream.ReadAll() :
       oTextStream.Close :

       sText = Replace(sText, "@", "") :


       Set oTextStream = oFSO.OpenTextFile(sFile, FOR_WRITING, True) :
       oTextStream.Write sText :
       oTextStream.Close :
   
       Set oTextStream = Nothing :
       Set oFSO = Nothing :

почти, он всё равно чёт от меня хочет   http://gyazo.com/e44349e45d8847ba8cc04b75d1233dca

не помогло, если можешь напиши пожалуйста код для изменения кодировки файла из UCS2 Little Endian в ANSI так намного мне проще будет.

Ты ПРОСТО ПОСЛАННИК НЕБЕС!! СПАСИБО ОГРОМНОЕ

ещё один вопрос,почему то когда первый раз запускаю пишет ошибка строка 2, закрываю ошибку ещё раз запускаю и норм всё поч так? может потому что запускаю из VBA?

строка  .OpenTextFile("log.txt", 2, True).Write Replace(.OpenTextFile("dis.txt",,,-1).ReadAll, "'", "") :   
Ошибка файл не найден

кароч как vbs мне пишет -_- ему не нравится это  .OpenTextFile  а если быть точнее то точка . . .  самое что интересное пишет что нет файла, но Ошибка 2 строка 3 символ (точка).  скинь пожалуйста сюда код ещё раз, а то мало ли я не то копирую.

DarkJoker1992, начните использовать заглавные буквы в начале предложений и не стесняйтесь использовать знаки препинания.