При открытии текстового файла без расширения "txt" выскакивает ошибка "Неверное имя файла!". С чем это связанно и как обойти эту проблему?

//======================================================================
Функция ПолучитьДанныеИзФайла(Файл,ИмяКаталога = КаталогСтатистики)
   
   Если ФС.СуществуетФайл(ИмяКаталога+Файл)=0 Тогда
       Сообщить("Внимание! Файла "+ИмяКаталога+Файл+" не существует.");
       Возврат "";
   КонецЕсли;
   
   Текст = СоздатьОбъект("Текст");
   Текст.Открыть(ИмяКаталога+Файл);
   
   КолВоСтр = Текст.КоличествоСтрок();
   Для СтрТ=1 По КолВоСтр Цикл
       Стр = Текст.ПолучитьСтроку(СтрТ);
       
       Сообщить(Стр);
   КонецЦикла;
   
   
   Возврат "";
КонецФункции // ПолучитьДанныеИзФайла

Текст.Открыть(ИмяКаталога+Файл+".");

(1) точка зачем ?

(1) точки тоже нет, файлы вида:
1
2
305
789632

(0) Сделай вывод ИмяКаталога+Файл - а то хз что туда пихаешь

Файлов очень много, более 3'000'000

(4) Пихается туда всё правильно, перепроверял много раз.

База СМС? :)

+(6) ФС.СуществуетФайл(ИмяКаталога+Файл) не ругается

Если файл переименовать - добавив расширение .txt - то файл нормально читается

(9) а нутро файло точно текст? Нет всяких управляющих символов?

(10) точно текст

(11) с файловой системой точно всё норм? Кем-то открыт файл в этот момент точно не был?

скопируй куда-нибудь свой файл, присвой расширение тхт, наслаждайся

(13) ну как вариант через попытку, не прокатило в лоб - копия и профит!

а исходный не трожь..

А расширение какое?

Расширения нет вовсе, и точки тоже нет

В этом твои грабли. Дай любое расширение и будет работать

Добавить расширение это на крайний случай.

Не и трахайся дальше   :-))

(19) почему? если определяется (8) то переименуй его и открывай. в чем проблема то

Файлов много. Ла так и сделаю, думал может хитрость какая есть

fso=СоздатьОбъект("Scripting.FileSystemObject");
   ссылкаНаФайл=fso.GetFile(ИмяКаталога+Файл);
   РазмерФайла=ссылкаНаФайл.Size;
   текФайл=ссылкаНаФайл.OpenAsTextStream(1);
   Пока текФайл.AtEndOfStream=0 Цикл
       ТекСтрока=текФайл.ReadLine();
       Сообщить(ТекСтрока);
       
   КонецЦикла;

(23) жесто )

ИмяКаталога = "D:\";
   Файл = "Help";
   Если ФС.СуществуетФайл(ИмяКаталога+Файл)=0 Тогда
       Сообщить("Внимание! Файла "+ИмяКаталога+Файл+" не существует.");
       Возврат;
   КонецЕсли;
   
   ЗагрузитьВнешнююКомпоненту("V7Plus.dll");
   Текст = СоздатьОбъект("addIN.V7TextFile");
   Текст.ОткрытьФайл(ИмяКаталога + Файл);
   
     Текст.ВыбратьСтроки();
     Стр="";
   Пока Текст.ПрочитатьСтроку(Стр) = 1 Цикл
       Сообщить(Стр);
   КонецЦикла;

(24) получше чем (0)

(23) (25) Спасибо

(27) кста и потом отпишись какой способ быстрее и какой выстреливает лучше (без ошибок)

(28) Хорошо

(22) да ты больше времени потратишь на выяснение что и как чем прибавит к тормозам эта операция

+(29) Может ещё сделаю замер с переименованием файлов и Текст = СоздатьОбъект("Текст");

(28)Тогда ЗагрузитьВнешнююКомпоненту("V7Plus.dll") ПриЗапускеСистемы
а Текст = СоздатьОбъект("addIN.V7TextFile"); ПриОткрытии с Перем Текст;

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

(31)ок, только не забудь

(28) а че там мерять? V7TextFile - самый тормозной
Текст и FSO примерно одинаково, но на больших файлах Текст сдохнет, а FSO на размер плевать.

Могу на вскидку сказать, что FSO зверь. Буду теперь пользоваться им. Спасибо FN

(36) на мелких файлах Текст может быть и быстрее, так как сразу весь файл в память грузит.

Замеры произвёл. При замере обрабатывал 200 файлов (файлы размером от 300 до 45000 байт)
1 способ используя СоздатьОбъект("Текст") с переименованием файла
2 способ используя СоздатьОбъект("Scripting.FileSystemObject")
3 способ используя СоздатьОбъект("addIN.V7TextFile")

Результаты:
1 - 214,854892 (из них 0,231959 на переименование)
2 - 184,911083
3 - 121,988587

//======================================================================
Процедура ОбработатьФайлСпособ1(Файл)
   НовНазв = Файл+".txt";
   ФС.ПереименоватьФайл(Файл,НовНазв,1);
   Файл = НовНазв;
   
   Текст1.Открыть(ИмяКаталога+Файл);
   КолВоСтр = Текст1.КоличествоСтрок();
   Для СтрТ=1 По КолВоСтр Цикл
       ТекСтрока = Текст1.ПолучитьСтроку(СтрТ);
       Сообщить(ТекСтрока);
   КонецЦикла;
КонецПроцедуры // ОбработатьФайлСпособ1

//======================================================================
Процедура ОбработатьФайлСпособ2(Файл)
   fso=СоздатьОбъект("Scripting.FileSystemObject");
   ссылкаНаФайл=fso.GetFile(ИмяКаталога+Файл);
   РазмерФайла=ссылкаНаФайл.Size;
   текФайл=ссылкаНаФайл.OpenAsTextStream(1);
   Пока текФайл.AtEndOfStream=0 Цикл
       ТекСтрока=текФайл.ReadLine();
       Сообщить(ТекСтрока);        
   КонецЦикла;
КонецПроцедуры // ОбработатьФайлСпособ2

//======================================================================
Процедура ОбработатьФайлСпособ3(Файл)
   Текст2.ОткрытьФайл(ИмяКаталога + Файл);    
   Текст2.ВыбратьСтроки();
   ТекСтрока="";
   Пока Текст2.ПрочитатьСтроку(ТекСтрока) = 1 Цикл
       Сообщить(ТекСтрока);
   КонецЦикла;
КонецПроцедуры // ОбработатьФайлСпособ3

(38)Я проиграл ?

(40) нет, наоборот

(39) СоздатьОбъект("Scripting.FileSystemObject"); - нафига в цикле?

РазмерФайла=ссылкаНаФайл.Size; - это тоже лишнее для теста

(42) хорошо, я подозревал об этом., сейчас замерю заново

и для чистоты эксперимента убери Сообщить() - а то оно жрет наверное 99% времени

Перезамерил 2 способ (изменив по совету из (42))
1 способ используя СоздатьОбъект("Текст") с переименованием файла
2 способ используя СоздатьОбъект("Scripting.FileSystemObject")
3 способ используя СоздатьОбъект("addIN.V7TextFile")

Результаты:
1 - 214,854892 (из них 0,231959 на переименование)
2 -  43,552677
3 - 121,988587

На Сообщить() во всех замерах уходит - 0,000151

(45) а с чего вдруг второй способ так сильно ускорился?

(46) все правильно

(46) Действительно что-то неправильно. Попозже переделаю все замеры.

Убрал Сообщить(), результаты значительно изменились.

1 способ используя СоздатьОбъект("Текст") с переименованием файла
2 способ используя СоздатьОбъект("Scripting.FileSystemObject")
3 способ используя СоздатьОбъект("addIN.V7TextFile")

Замер проводился по 3 раза, в результат идёт среднее значение.
Результаты:

1 0,761471
2 0,525824
3 1,537899

//======================================================================
Процедура ОбработатьФайлСпособ1(Файл)
   НовНазв = Файл+".txt";
   ФС.ПереименоватьФайл(Файл,НовНазв,1);
   Файл = НовНазв;
   
   Текст1.Открыть(ИмяКаталога+Файл);
   КолВоСтр = Текст1.КоличествоСтрок();
   Для СтрТ=1 По КолВоСтр Цикл
       ТекСтрока = Текст1.ПолучитьСтроку(СтрТ);
       //Сообщить(ТекСтрока);
   КонецЦикла;
КонецПроцедуры // ОбработатьФайлСпособ1

//======================================================================
Процедура ОбработатьФайлСпособ2(Файл)
   //fso=СоздатьОбъект("Scripting.FileSystemObject");    
   ссылкаНаФайл=fso.GetFile(ИмяКаталога+Файл);
   //РазмерФайла=ссылкаНаФайл.Size;
   текФайл=ссылкаНаФайл.OpenAsTextStream(1);
   Пока текФайл.AtEndOfStream=0 Цикл
       ТекСтрока=текФайл.ReadLine();
       //Сообщить(ТекСтрока);        
   КонецЦикла;
КонецПроцедуры // ОбработатьФайлСпособ2

//======================================================================
Процедура ОбработатьФайлСпособ3(Файл)
   Текст2.ОткрытьФайл(ИмяКаталога + Файл);    
   Текст2.ВыбратьСтроки();
   ТекСтрока="";
   Пока Текст2.ПрочитатьСтроку(ТекСтрока) = 1 Цикл
       //Сообщить(ТекСтрока);
   КонецЦикла;
КонецПроцедуры // ОбработатьФайлСпособ3

(49) :)
О чем собственно я и писал еще в (35)

(49)Оч хор! Буду иметь в виду!

Для эксперимента использовались независимые ныборы файлов? Имхо, после первого чтения файлы могут отстаться в кэше

К вышеупомянутым способам/тестам обработки текстовых файлов добавлю, что у ФСО есть ещё один огромный плюс - "Не забивается оперативная память". Т.е. процесс не доходит до критического значения, после которого выскакивает ошибка с недостатком памяти.

Итак, плюсы использования fso=СоздатьОбъект("Scripting.FileSystemObject");
1. Высокая скорость чтения текстовых файлов
2. Чтение файлов без зависимости от его расширения
3. Не съедает оперативную память

одынэска как всегда проиграла

(54) конечно. Ассемблер рулит. надо на нём БД делать