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

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

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

кури Open ... For Append
и Print #
...
Рейтинг: 0 / 0
24.11.2010, 13:16
| Ответить | Цитировать | Написать  
Перейти на другую строку в файле, если не пустая
    #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:39
| Ответить | Цитировать | Написать  
Перейти на другую строку в файле, если не пустая
    #36975424
Фотография michael R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
michael R
Участник
вероятнее всего нету Permission на запись в данной директории
...
Рейтинг: 0 / 0
24.11.2010, 19:50
| Ответить | Цитировать | Написать  
Перейти на другую строку в файле, если не пустая
    #36981382
ppc
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ppc
Участник
michael Rвероятнее всего нету Permission на запись в данной директории
Оно то и понятно а как понять в чем причина?
...
Рейтинг: 0 / 0
28.11.2010, 03:25
| Ответить | Цитировать | Написать  
Перейти на другую строку в файле, если не пустая
    #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, 03:40
| Ответить | Цитировать | Написать  
Перейти на другую строку в файле, если не пустая
    #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, 04:10
| Ответить | Цитировать | Написать  
Перейти на другую строку в файле, если не пустая
    #36982010
Фотография michael R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
michael R
Участник
ppc Оно то и понятно а как понять в чем причина?

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

вроде так должно дать возможность записывать файл
...
Рейтинг: 0 / 0
28.11.2010, 18:47
| Ответить | Цитировать | Написать  
Перейти на другую строку в файле, если не пустая
    #36982015
Фотография michael R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
michael R
Участник
это надо сделать для директории в которую будет записываться файл на сервере
...
Рейтинг: 0 / 0
28.11.2010, 18:49
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Перейти на другую строку в файле, если не пустая
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&fpage=114&tid=2159205]:
 0ms
get settings:
 8ms
get forum list:
 12ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 35ms
get topic data:
 14ms
get forum data:
 3ms
get page messages:
 51ms
get tp. blocked users:
 1ms
others: 12ms
total:  144ms
созд. / загр.: 144ms
x
x
Закрыть


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