Форум программистов, компьютерный форум, киберфорум
VBScript/JScript/WSH/WMI/HTA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.92/13: Рейтинг темы: голосов - 13, средняя оценка - 4.92
0 / 0 / 0
Регистрация: 08.05.2014
Сообщений: 32
1

Запись в текстовый файл (каждая запись - отдельная строка)

10.05.2014, 19:03. Просмотров 2605. Ответов 13
Метки нет (Все метки)

Добрый вечер) Программа берет данные таблицы Access и записывает их в строчку. Проблема заключается в том, что результаты записываются в 1 строчку, Но команда WriteLine(на сколько я понял) должна записывать каждую запись с новой строки, но все равно все идет в 1 строчку.
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Dim Conn, rs, S
Set Conn=CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=Microsoft.ACE.OLEDB.12.0;"&_
"DATA SOURCE=D:\-----\------.accdb"
Set rs=CreateObject("ADODB.Recordset")
Set rs=Conn.Execute("SELECT NZ, FIO FROM Список")
S="№зач. Фамилия, имя, отчество"&vblf
S=S&"-----------------------------"&vblf
Do Until rs.EOF
S=S&rs("NZ")&" "&rs("fio")&vbLF
rs.MoveNext
Loop
Set fso=CreateObject("Scripting.FileSystemObject")
Set f=FSO.OpenTextFile("test.txt", 2, True)
f.WriteLine (s)
Set rf=CreateObject("Wscript.Shell")
rf.Run("test.txt")
msgbox S,,"Данные тыблицы Список"
If rs.State=adStateOpen then
rs.Close
End if
If Conn.State=adStateOpen then
Conn.Close
End if
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.05.2014, 19:03
Ответы с готовыми решениями:

Запись ключа windows в текстовый файл
Добрый день. Подскажите пожалуйста, имеется vbs скрипт для определения ключа продукта Windows. Он...

Запись в текстовый лог-файл по сети
Есть скрипт Sub Remote(srv) On Error Resume Next Dim Controller, RemoteScript Set Controller...

vbs. запись информации в текстовый файл
Есть скрипт, который выводит в сообщении имя машины, и его ip адрес, дату и в время. Нужно...

Запись данных, получаемых при обработке заданного файла, в текстовый файл с именем обрабатываемого файла
Пожалуйста помогите не разбирающемуся в бейсике имеется скрипт vbs ссылающийся на exe файл который...

13
Pure Free Digital Ghost
4162 / 1630 / 312
Регистрация: 06.01.2013
Сообщений: 4,241
10.05.2014, 19:43 2
Пишите через write(s & chr(10))
0
0 / 0 / 0
Регистрация: 08.05.2014
Сообщений: 32
10.05.2014, 20:37  [ТС] 3
не помогло

Добавлено через 8 минут
0
Миниатюры
Запись в текстовый файл (каждая запись - отдельная строка)  
Pure Free Digital Ghost
4162 / 1630 / 312
Регистрация: 06.01.2013
Сообщений: 4,241
10.05.2014, 20:49 4
А сбросьте-ка сюда сам получившийся файл.
0
0 / 0 / 0
Регистрация: 08.05.2014
Сообщений: 32
10.05.2014, 21:18  [ТС] 5
Исправил)
0
Вложения
Тип файла: txt test.txt (404 байт, 17 просмотров)
Pure Free Digital Ghost
4162 / 1630 / 312
Регистрация: 06.01.2013
Сообщений: 4,241
10.05.2014, 21:21 6
Проверяйте свой блокнот)
0
Миниатюры
Запись в текстовый файл (каждая запись - отдельная строка)  
0 / 0 / 0
Регистрация: 08.05.2014
Сообщений: 32
10.05.2014, 21:24  [ТС] 7
так, хорошо, а в чем тогда мб быть проблема ?) Просто мне человеку показывать, я то верю что так оно и получилось))
0
Pure Free Digital Ghost
4162 / 1630 / 312
Регистрация: 06.01.2013
Сообщений: 4,241
10.05.2014, 21:25 8
Лучший ответ Сообщение было отмечено valpri как решение

Решение

Или попробуйте так (более предпочтительный вариант):
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Dim Conn, rs, S
Set Conn=CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=Microsoft.ACE.OLEDB.12.0;"&_
"DATA SOURCE=D:\-----\------.accdb"
Set rs=CreateObject("ADODB.Recordset")
Set rs=Conn.Execute("SELECT NZ, FIO FROM Список")
S="№зач. Фамилия, имя, отчество"&vblf
S=S&"-----------------------------"&vbcr&vblf
Do Until rs.EOF
S=S&rs("NZ")&" "&rs("fio")&vbLF
rs.MoveNext
Loop
Set fso=CreateObject("Scripting.FileSystemObject")
Set f=FSO.OpenTextFile("test.txt", 2, True)
f.Write(s)
Set rf=CreateObject("Wscript.Shell")
rf.Run("test.txt")
msgbox S,,"Данные тыблицы Список"
If rs.State=adStateOpen then
rs.Close
End if
If Conn.State=adStateOpen then
Conn.Close
End if
Добавлено через 52 секунды
valpri, в конце каждой строки - только один LF. Правильнее, чтобы в конце строки было CR LF. Впрочем, постом выше я уже об этом написал
0
0 / 0 / 0
Регистрация: 08.05.2014
Сообщений: 32
10.05.2014, 21:33  [ТС] 9
Благодарю)
0
Эксперт WindowsАвтор FAQ
17549 / 7393 / 880
Регистрация: 25.12.2011
Сообщений: 11,193
Записей в блоге: 16
10.05.2014, 21:55 10
FraidZZ, у меня тоже в одну строку блокнот отображает.

Нужно использовать константу vbCrLf либо метод WriteLine.
0
Pure Free Digital Ghost
4162 / 1630 / 312
Регистрация: 06.01.2013
Сообщений: 4,241
10.05.2014, 22:00 11
Dragokas, ну я так последний код и сделал)
0
5 / 5 / 2
Регистрация: 03.02.2012
Сообщений: 142
08.06.2017, 12:19 12
Dragokas, а как написать на Jscript скрипт, записывающий данные в существующий текстовый файл. Не поможете ли? А то я погуглил погуглил что-то ничего не получается.
P.S. Советы типа сам изучи Js не принимаю. Мне-то нужен лишь маленький скриптик...
0
Эксперт WindowsАвтор FAQ
17549 / 7393 / 880
Регистрация: 25.12.2011
Сообщений: 11,193
Записей в блоге: 16
08.06.2017, 14:13 13
Javascript
1
2
3
4
5
6
7
8
9
10
11
12
13
var fs = new ActiveXObject('Scripting.FileSystemObject');
 
WriteTextToFile("test");
 
function WriteTextToFile(varStr) {
 
    var ts = fs.openTextFile("deobf.log", 8, true)
    try {
        ts.WriteLine(varStr);
    } catch(err) {};
    
    ts.Close();
}
0
5 / 5 / 2
Регистрация: 03.02.2012
Сообщений: 142
08.06.2017, 15:45 14
Спасибо, работает.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.06.2017, 15:45

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Дан текстовый файл. Используя стек, сформировать новый текстовый файл, каждая строка которого содержит символы
Дан текстовый файл. Используя стек, сформировать новый текстовый файл, каждая строка которого...

Дан текстовый файл. Используя стек, сформировать новый текстовый файл, каждая строка которого содержит символы
Дан текстовый файл. Используя стек, сформировать новый текстовый файл, каждая строка которого...

Запись в текстовый файл: с каждой записью создается новая пустая строка
Здравствуйте, подскажите пожалуйста как записать данные в текстовый файл? Моим способом запись...

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
14
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.