Всем доброго дня.

Возникла проблема при попытки записи в файл логов строки со степенями (мм в квадрате, см в квадрате). Возникает исключение: (WriteLine): Произошла исключительная ситуация (0x800a0005)

fso=Новый COMОбъект("Scripting.FileSystemObject");
Если Не fso.FileExists(""+ПутьКВременнойПапке+"\"+ПолноеИмяФайла)    Тогда     file=fso.CreateTextFile(""+ПутьКВременнойПапке+"\"+ПолноеИмяФайла, -1, 0);
file.WriteLine(""+ТекущаяДата()+ " "+прм_Строка);
file.Close();
Иначе       file=fso.OpenTextFile(""+ПутьКВременнойПапке+"\"+ПолноеИмяФайла, 8, 0);
file.WriteLine(""+ТекущаяДата()+ " "+прм_Строка);
file.Close();
КонецЕсли;

крут!

места нет или прав

или ПутьКВременнойПапке не существует

Дело точно в степени. В строку для записи в лог файл передается наименование номенклатуры. В наименовании некоторых есть "мм в квадрате". Как только убираешь степень - все записывается нормально. Может кто-то работал с fso? Может быть есть возможность как-то форматнуть строку до передачи в метод?

UP

полностью строку проблемную выведите путем Сообщить () и скопируйте ее сюда, может, чего-то прояснится.

длина строки не превышает никаких "магических цифр" типа 255, 1024, ... ?

(6) (7) Сама строка:
Файл 307253 у товара Отверт. узел 16-35 1,5-10 мм? IP20 не будет загружен. Причина: Уже загружен

Вместо знака вопрос - возведение во 2 степень. Движок форума видимо не отображает степени.

http://s020.radikal.ru/i708/1611/4a/281de42e2c7f.png

Предыдущая ссылка неверная.
http://s018.radikal.ru/i512/1611/45/2fa8f04ecbe5.png

(11) Может вот это поможет?
https://smearg.wordpress.com/2013/05/16/использование-оператора-f-в-powershell/

в чем помочь?

() А если попробовать объект ЗаписьТекста?

Кавычки забыл.
Путь с пробелами должен быть в кавычках:
""""+ПутьСПроблемаи+"""";

(0) попробуй вставить свою строку в блокнот и сохранить - получишь ошибку "есть символы, которые невозможно сохранить в текущем формате", а ты программно его формируешь

Выход:
- перебери символы в строке и всё что не входит в стандартные печатные символы замени на ? или что другое
- возможно, этого ограничения лишен объект TextStream (object.OpenAsTextStream([iomode, [format]]))

(15) больше похоже на ошибку формата строки - "недопустимое значение параметра"

16+ Script56.CHM - найди такой файлик, это хелп по WSH там много чего интересного есть. Хотя сейчас мелкософт рекомендует использовать PowerShell.

(0) ещё один путь решения твоей проблемы - форматирование строки с использованием регулярных выражений. Поинтересуйся, занятная штука (нормальное описание там, же или поищи информацию про объект RegExp).

(0) по поводу кода
fso=Новый COMОбъект("Scripting.FileSystemObject");
file=fso.OpenTextFile(""+ПутьКВременнойПапке+"\"+ПолноеИмяФайла, 8, true); - гарантированно получишь файл, если его нет, система создаст (одна засада, при неверном пути, система создаст файл неизвестно где, скорее всего в %temp%)

Проверяй существование пути, а не файла. Если надо проверишь его наличие позже (отлаживать проще, иначе будешь долго думать где проблема в пути или в имени файла)
if(!FSO.FolderExists(ПутьКВременнойПапке)) - нет пути к временной папке

Не дублируй:
file.WriteLine(""+ТекущаяДата()+ " "+прм_Строка);
file.Close();
вынеси оные за Если - КонецЕсли; Файл у тебя всё равно создастся или откроется

В порядке бреда... Есть подозрение, что ввиду тяжкого наследия неюникодных ОС текстовые файлы в VBS создаются только в однобайтовых национальных кодировках. Ввиду чего попадание на вход юникодных символов, которые не могут быть однозначно оттранслированы в кодовую страницу 1251 (для русской винды), вызывает данную ошибку.
Вывод - либо перед записью самостоятельно исправлять строку так чтобы в ней таких символов не было, либо использовать заведомо юникодный объект. Например, ADODB.Stream, который точно держит текстовые файлы и кодировку UTF-8.

хотя, по прочтению доки оказалось что это именно бред, хотя мысль, похоже, была в верном направлении. Для CreateTextFile и OpenTextFile можно указать формат Unicode. Попробуйте сделать это, возможно, поможет. Вот ссылки.
http://scriptcoding.ru/2013/07/08/fso-createtextfile/
http://scriptcoding.ru/2013/07/29/fso-opentextfile/

(18)(19)(20) Спасибо.
Проблема похоже действительно в кодировке. Попробую с Unicode.

(19) Не надо хаять VBS.
При открытии файла есть четвёртый параметр, позволяющий переключить Scripting.TextStream в режим Unicode.

' как записать в файл строку с неизвестными символами
Function ToWin(ByRef s)
    Dim l
    Dim i
    ToWin=""
    l=Len(s)
    For i=1 To l Step 1
        ToWin=ToWin & Chr(Asc(Mid(s,i,1)))
    Next
End Function
' как бы, Unicode-строка
u=ChrW(25045) & ChrW(14714)
' вариант первый - перекодирование
Set fso=CreateObject("Scripting.FileSystemObject")
Set f=fso.OpenTextFile("Test.1",8,True,False)
' Здесь будет ошибка - невозможно перекодировать
'f.WriteLine(u)
' а здесь не будет
f.WriteLine(ToWin(u))
f.Close()
' вариант второй - можно вообще писать в Unicode
Set f=fso.OpenTextFile("Test.2",8,True,True)
f.WriteLine(u)
f.Close()
MsgBox "Files",0,"OK"

(22) Да, позже увидел, см. (20).