Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Перейти на другую строку в файле, если не пустая / 10 сообщений из 10, страница 1 из 1
24.11.2010, 13:08
    #36973985
ppc
ppc
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перейти на другую строку в файле, если не пустая
Есть текстовый файл в котором могут быть данные, необходимо их не трогать дописать файл ниже, новыми даными. Подскажите пожалуйста как это можно сделать.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.11.2010, 13:11
    #36973989
Игорь Горбонос
Игорь Горбонос
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перейти на другую строку в файле, если не пустая
> Автор: ppc
> ...необходимо их не трогать дописать файл ниже, новыми даными.

А как пытаешся?

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.11.2010, 13:16
    #36974008
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перейти на другую строку в файле, если не пустая
ppcЕсть текстовый файл в котором могут быть данные, необходимо их не трогать дописать файл ниже, новыми даными. Подскажите пожалуйста как это можно сделать.

кури Open ... For Append
и Print #
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.11.2010, 19:39
    #36975411
ppc
ppc
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перейти на другую строку в файле, если не пустая
Shocker.ProppcЕсть текстовый файл в котором могут быть данные, необходимо их не трогать дописать файл ниже, новыми даными. Подскажите пожалуйста как это можно сделать.

кури Open ... For Append
и Print #
Ну я так и понял что ForAppending для добавления:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Dim strFileName1,objFileFSO,MyFile,objFileTS
   Const ForReading= 1 , ForAppending= 8   'ForWriting=8
   Set objFileFSO=Server.CreateObject("Scripting.FileSystemObject")
strFileName1="E:\ocenki111.txt"
   Set MyFile = objFileFSO.OpenTextFile(strFileName1)  ' Было objFileFSO.CreateTextFile(strFileName1)
    If objFileFSO.FileExists(strFileName1) Then
      Set objFileTS=objFileFSO.OpenTextFile(strFileName1, ForAppending)
   		MyFile.Writeline ( Ostoim)
   		Response.Write  MyFile

	 end if

При таком написании выдает ошибку
Недопустимый режим файла
/FFILES/calc.asp, line 51 на строку MyFile.Writeline ( Ostoim), коментирую пишет тоже самое
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.11.2010, 19:50
    #36975424
michael R
michael R
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перейти на другую строку в файле, если не пустая
вероятнее всего нету Permission на запись в данной директории
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.11.2010, 03:25
    #36981382
ppc
ppc
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перейти на другую строку в файле, если не пустая
michael Rвероятнее всего нету Permission на запись в данной директории
Оно то и понятно а как понять в чем причина?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.11.2010, 03:40
    #36981392
пробуй камнем
пробуй камнем
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перейти на другую строку в файле, если не пустая
ppc,
разрешения на файл в это случае - дело надцатое
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Dim strFileName1,objFileFSO,MyFile,objFileTS
   Const ForReading= 1 , ForAppending= 8   'ForWriting=8
   Set objFileFSO=Server.CreateObject("Scripting.FileSystemObject")
strFileName1="E:\ocenki111.txt"
   ' открываем файл для записи, если не существует - будет создан
   Set MyFile = objFileFSO.OpenTextFile(strFileName1)  ' Было objFileFSO.CreateTextFile(strFileName1)

    If objFileFSO.FileExists(strFileName1) Then

     ' открываем тот-же(!) файл для добавления, естественно ФС возмущается
      Set objFileTS=objFileFSO.OpenTextFile(strFileName1, ForAppending)
   		MyFile.Writeline ( Ostoim)
   		Response.Write  MyFile

	 end if
 
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
  Const ForReading= 1 , ForAppending= 8   'ForWriting=8
  Dim strFileName1, objFileFSO, objMyFile

  Set objFileFSO = Server.CreateObject("Scripting.FileSystemObject")
  strFileName1 = "E:\ocenki111.txt"
  
  If objFileFSO.FileExists(strFileName1) Then
        ' открываем файл для добавления
        Set objMyFile = objFileFSO.OpenTextFile(strFileName1, ForAppending)
  else
        ' открываем файл для записи, если не существует - будет создан
        Set objMyFile = objFileFSO.OpenTextFile(strFileName1) 
  end if
  ' чего-то пишем 
  objMyFile.WriteLine Ostoim
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.11.2010, 04:10
    #36981402
пробуй камнем
пробуй камнем
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перейти на другую строку в файле, если не пустая
В предидущем посте фигню написал нолную. Прошу прощения.
Исправляюсь:
 
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
  Const ForAppending= 8 
  Dim strFileName1, objFSO, objMyFile

  Set objFSO = CreateObject("Scripting.FileSystemObject")
  strFileName1 = "E:\templog.txt"
  
  ' открываем файл для добавления;
  ' третий параметр (Boolean) указывает создавать ли файл если он не существует
  Set objMyFile = objFSO.OpenTextFile(strFileName1, ForAppending, True)

  ' чего-то пишем 
  objMyFile.WriteLine Date & " " & Time
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.11.2010, 18:47
    #36982010
michael R
michael R
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перейти на другую строку в файле, если не пустая
ppc Оно то и понятно а как понять в чем причина?

на серваке
правой кнопкой мышки выбрать свойства
в закладках сверху выбрать Security
дать права на запись пользателю который прописан в IIS для доступа к данной странице ASP
скорее всего пользователь IUSR_TEMPLATE (но может быть другой)

вроде так должно дать возможность записывать файл
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.11.2010, 18:49
    #36982015
michael R
michael R
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перейти на другую строку в файле, если не пустая
это надо сделать для директории в которую будет записываться файл на сервере
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Перейти на другую строку в файле, если не пустая / 10 сообщений из 10, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]