FoxClub Forums > Visual Foxpro, Foxpro for DOS > Вопрос по JavaScript ::

• Войти

Вопрос по JavaScript
LED Сообщений: 204 Дата регистрации: 22.07.2006	LED 15.01.17 13:10:33 Всем здравствуйте Прошу помощи сообщества Значит есть база baza.dbf Есть поле Prim С помощью конструкции SET ALTERNATE TO _fail.txt SET ALTERNATE ON SET CURSOR OFF SET CONSOLE OFF SET SPACE OFF SCAN ? prim ENDSCAN SET CURSOR ON SET SPACE ON SET ALTERNATE ON SET ALTERNATE TO Создал текстовый файл _fail.txt ------------ Техт1 Техт2 Техт3 Техт4 …….. ------------ Файл находится по маршруту c:\_file.txt С помощью LOCAL nSTR, kSTR ,npath, kpath ngispath=ALLTRIM(pat6) nSTR = '\' kSTR = '\\' kpath='"'+STRTRAN(npath, nSTR, kSTR)+'_file.txt"' перевел kpath="C:\\_file.txt" Есть html файл report.html Как перенести переменную kpath в конструкцию javascript в OpenTextFile <script type="text/javascript"> var fso,filehandle,textf; fso = new ActiveXObject("Scripting.FileSystemObject"); filehandle = fso.OpenTextFile("C:\\_file.txt",1,false); while (!filehandle.AtEndOfStream) { textf=filehandle.ReadLine(); } filehandle.close(); Пробовал filehandle = fso.OpenTextFile(<<kpath>>,1,false); Не получается Подскажите как в моем случае перенести переменную из Foxpro в javascript Конкретно OpenTextFile </script> И еще есть ли упрощенная конструкция открытия файлов OpenTextFile без ActiveXObject Этого из за того что постоянно идет запрос на работу ActiveXObject Большое спасибо Исправлено 6 раз(а). Последнее : LED, 15.01.17 13:17

LED

Сообщений: 204
Дата регистрации: 22.07.2006

LED

15.01.17 13:10:33

Всем здравствуйте
Прошу помощи сообщества
Значит есть база baza.dbf
Есть поле Prim
С помощью конструкции


   SET ALTERNATE TO _fail.txt
     SET ALTERNATE ON
         SET CURSOR OFF
         SET CONSOLE OFF
         SET SPACE OFF
         SCAN
          ? prim
         ENDSCAN
    SET CURSOR ON
    SET SPACE ON
    SET ALTERNATE ON
    SET ALTERNATE TO

Создал текстовый файл _fail.txt
------------
Техт1
Техт2
Техт3
Техт4
……..
------------
Файл находится по маршруту c:\_file.txt
С помощью


LOCAL nSTR, kSTR  ,npath, kpath
  ngispath=ALLTRIM(pat6)
  nSTR = '\'  
  kSTR = '\\'  
  kpath='"'+STRTRAN(npath, nSTR, kSTR)+'_file.txt"'

перевел kpath="C:\\_file.txt"

Есть html файл report.html
Как перенести переменную kpath в конструкцию javascript в OpenTextFile

<script type="text/javascript">
var fso,filehandle,textf;
fso = new ActiveXObject("Scripting.FileSystemObject");
filehandle = fso.OpenTextFile("C:\\_file.txt",1,false);

while (!filehandle.AtEndOfStream)
{
textf=filehandle.ReadLine();
}
filehandle.close();

Пробовал filehandle = fso.OpenTextFile(<<kpath>>,1,false);
Не получается

Подскажите как в моем случае перенести переменную из Foxpro в javascript
Конкретно OpenTextFile

</script>

И еще есть ли упрощенная конструкция открытия файлов OpenTextFile без ActiveXObject
Этого из за того что постоянно идет запрос на работу ActiveXObject

Большое спасибо

Исправлено 6 раз(а). Последнее : LED, 15.01.17 13:17

Re: Вопрос по JavaScript
Аспид Сообщений: 3475 Откуда: Москва Дата регистрации: 01.04.2005	Аспид 15.01.17 13:35:33 Вряд ли помогу по теме, тем более без ActiveXObject из javascript. Просто хочется сделать замечание. javascript вообще то сделан специально, для работы на клиенте. А работа с файлом, это дело сервера. То бишь, лучше все это делать в серверном коде. На чем у вас сервер написан? ------------------

Re: Вопрос по JavaScript

Аспид

Сообщений: 3475
Откуда: Москва
Дата регистрации: 01.04.2005

Аспид

15.01.17 13:35:33

Вряд ли помогу по теме, тем более без ActiveXObject из javascript.
Просто хочется сделать замечание.
javascript вообще то сделан специально, для работы на клиенте.
А работа с файлом, это дело сервера.
То бишь, лучше все это делать в серверном коде. На чем у вас сервер написан?

------------------

Re: Вопрос по JavaScript
LED Сообщений: 204 Дата регистрации: 22.07.2006	LED 15.01.17 13:55:02 Аспид Дело вот в чем Создал файл report.html TEXT TO cHtml NOSHOW <HTML> <head> <script type="text/javascript"> var fso,filehandle,textf; fso = new ActiveXObject("Scripting.FileSystemObject"); filehandle = fso.OpenTextFile("C:\\_file.txt",1,false); while (!filehandle.AtEndOfStream) { textf=filehandle.ReadLine(); document.write (textf + "<br />"); } filehandle.close(); </script> </head> <body> <div id="map" style="width: 600px; height: 400px"></div> </body> </html> ENDTEXT Вывожу с помощью document.write (textf + "<br />") текст Все получается. Но надо постоянно менять маршрут к файлу_file.txt Вот поэтому хочется передавать маршрут в filehandle = fso.OpenTextFile("C:\\_file.txt",1,false); Как это сделать не знаю Пробовал написать kpath="C:\\_file.txt" и подставить эту переменную filehandle = fso.OpenTextFile(<<kpath>>,1,false); Не работает. Что делаю не так

Re: Вопрос по JavaScript

LED

Сообщений: 204
Дата регистрации: 22.07.2006

LED

15.01.17 13:55:02

Аспид
Дело вот в чем

Создал файл report.html


TEXT TO cHtml NOSHOW  
  <HTML> 
 <head>

<script type="text/javascript"> 
 var fso,filehandle,textf; 
 fso = new ActiveXObject("Scripting.FileSystemObject"); 
 filehandle = fso.OpenTextFile("C:\\_file.txt",1,false); 

 while (!filehandle.AtEndOfStream) 
 { 
   textf=filehandle.ReadLine();
   document.write (textf + "<br />");
 } 
 filehandle.close();

   </script>
</head>

<body>
    <div id="map" style="width: 600px; height: 400px"></div>
</body>

</html>
  ENDTEXT

Вывожу с помощью document.write (textf + "<br />")
текст

Все получается.
Но надо постоянно менять маршрут к файлу_file.txt
Вот поэтому хочется передавать маршрут в filehandle = fso.OpenTextFile("C:\\_file.txt",1,false);
Как это сделать не знаю
Пробовал написать kpath="C:\\_file.txt"
и подставить эту переменную filehandle = fso.OpenTextFile(<<kpath>>,1,false);
Не работает. Что делаю не так

Re: Вопрос по JavaScript
Igor Korolyov Автор Сообщений: 34580 Дата регистрации: 28.05.2002	Igor Korolyov 15.01.17 16:50:01 <<переменная>> работает при включении режима TEXTMERGE - либо "глобально" через SET, либо, что IMHO логичнее, через одноименную опцию команды TEXT Если в html предполагается помещать именно такой скрипт, то я вообще не вижу в нём никакого смысла - проще в самом фоксе при формировании HTML-я открыть нужный текстовик и засунуть из него все строки в генерируемый HTML с нужными тегами... Завязки HTML-я на какой-то локальный файл на диске - очень криво это. ------------------ WBR, Igor

Re: Вопрос по JavaScript

Igor Korolyov
Автор

Сообщений: 34580
Дата регистрации: 28.05.2002

Igor Korolyov

15.01.17 16:50:01

<<переменная>>
работает при включении режима TEXTMERGE - либо "глобально" через SET, либо, что IMHO логичнее, через одноименную опцию команды TEXT

Если в html предполагается помещать именно такой скрипт, то я вообще не вижу в нём никакого смысла - проще в самом фоксе при формировании HTML-я открыть нужный текстовик и засунуть из него все строки в генерируемый HTML с нужными тегами... Завязки HTML-я на какой-то локальный файл на диске - очень криво это.

------------------
WBR, Igor

Re: Вопрос по JavaScript
LED Сообщений: 204 Дата регистрации: 22.07.2006	LED 15.01.17 17:09:23 Игорь Подскажи пож. Как это будет выглядеть?

Re: Вопрос по JavaScript
Igor Korolyov Автор Сообщений: 34580 Дата регистрации: 28.05.2002	Igor Korolyov 15.01.17 20:05:26 А пример (возможно не самый удачный, но всё же) в статье хелпа по команде TEXT ... ENDTEXT чем не устраивает? Там как раз формируют файл из таблицы. Хотя, повторюсь, это явно не самый красивый способ, но он вполне работоспособен. ------------------ WBR, Igor

Re: Вопрос по JavaScript

Igor Korolyov
Автор

Сообщений: 34580
Дата регистрации: 28.05.2002

Igor Korolyov

15.01.17 20:05:26

А пример (возможно не самый удачный, но всё же) в статье хелпа по команде TEXT ... ENDTEXT чем не устраивает? Там как раз формируют файл из таблицы. Хотя, повторюсь, это явно не самый красивый способ, но он вполне работоспособен.

------------------
WBR, Igor

Re: Вопрос по JavaScript
LED Сообщений: 204 Дата регистрации: 22.07.2006	LED 15.01.17 20:48:57 Игорь, а не подскажешь как избавиться от ActiveXObject При выводе данных из файла постоянно появляется окно с запросом пишет: Страница может содержать опасные программы (элементы ActiveX).Вы хотите разрешить их выполнение? Чем можно заменить ActiveXObject

Re: Вопрос по JavaScript

LED

Сообщений: 204
Дата регистрации: 22.07.2006

LED

15.01.17 20:48:57

Игорь, а не подскажешь как избавиться от ActiveXObject
При выводе данных из файла постоянно появляется окно с запросом
пишет:
Страница может содержать опасные программы (элементы ActiveX).Вы хотите разрешить их выполнение?

Чем можно заменить ActiveXObject

Re: Вопрос по JavaScript
Igor Korolyov Автор Сообщений: 34580 Дата регистрации: 28.05.2002	Igor Korolyov 15.01.17 21:29:32 Ещё раз, зачем там вообще JavaScript? Что мешает тупо взять и сформировать HTML файл с ДАННЫМИ, а не со скриптом, который потом чего-то из другого файла "вставляет"... ------------------ WBR, Igor

:: Список Форумов•Список тем•Поиск•Войти

Извините, только зарегистрированные пользователи могут оставлять сообщения в этом форуме.

On-line: 27 PuMa (Гостей: 26)