Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
18.03.2004, 10:55
|
|||
|---|---|---|---|
|
|||
работа с внешним файлом |
|||
|
#18+
открываю файл Open p_name For Output As #1 и записываю, все что мне надо в нужном формате. Print #1, str Close #1 А когда закрываю, то в конец файла Ассеss дописывает два символа самостоятельно, перевод сткроки+ возврат коретки. Длина файла должна быть фиксированной, например 1000 символов.А после записи на выходе 1002. Как от двух последних символов избавиться? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
18.03.2004, 11:40
|
|||
|---|---|---|---|
работа с внешним файлом |
|||
|
#18+
Поставить точку с запятой. Print #1, str; ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
18.03.2004, 12:02
|
|||
|---|---|---|---|
работа с внешним файлом |
|||
|
#18+
Print ---> Put Dim OutFile As String Dim OutCanal As Long Dim OutString As String OutCanal = FreeFile OutFile = "D:\test.txt" Open OutFile For Binary As #OutCanal OutString = "123" & vbCrLf OutString = OutString & "inna" Put #OutCanal, 1, OutString Close #OutCanal ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
start [/forum/topic.php?fid=45&mobile=1&tid=1675986]: |
0ms |
get settings: |
11ms |
get forum list: |
15ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
178ms |
get topic data: |
11ms |
get forum data: |
3ms |
get page messages: |
43ms |
get tp. blocked users: |
2ms |
| others: | 243ms |
| total: | 514ms |
| 0 / 0 |
