Экспорт в txt

@tuandreeva · Регистрация: 10.06.2013

Author24 — интернет-сервис помощи студентам

Подскажите, как при экспорте указать:
Разделитель полей: ";"
Ограничитель текста: {нет}
разделитель десятичного знака: ","

Visual Basic
1
DoCmd.OutputTo acOutputTable, "TXT", acFormatTXT

@ltv_1953 · 24.07.2013, 12:34

Может быть проще использовать DoCmd.TransferText, там разделители задаются в спецификации. В хелпе к ПреобразоватьТекст (TransferText) все описано.

mobile · 24.07.2013, 13:11

Я пользуюсь собственной процедурой. Во всяком случае нет нужды создавать спецификацию...

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub toTextFile(sql, toFile, delim)
'sql    - SQL-выражение, может быть также именем таблицы/запроса
'toFile - путь и имя приемного файла
'delim  - разделитель между полями
    Dim rs As Object, s, ff
    Set rs = CreateObject("ADODB.Recordset")
    rs.Open sql, CurrentProject.Connection, , , 1 'adCmdText
    s = rs.getstring(, , delim, vbCrLf)
    ff = FreeFile
    Open toFile For Output As #ff
    Print #ff, s
    Close #ff
End Sub

Обращение

Visual Basic
1
toTextFile "select * from t", "c:\temp\1\tttt.txt", ";"

shanemac51 · 24.07.2013, 13:48

на добавку к сообщению

mobile

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub mm130724()
Dim s1
''на строку
s1 = "SELECT Таблица1.[Код], "
s1 = s1 & " Таблица1.[Поле1],"
s1 = s1 & " Таблица1.[Поле2],"
s1 = s1 & " replace(nz(Таблица1.[Поле3],0),'.',',')"
s1 = s1 & " FROM Таблица1;"
 
toTextFile s1, "c:\rab\tttt1.txt", ";"
''на запрос
CurrentDb.QueryDefs("wrem").sql = s1
toTextFile "select * from wrem", "c:\rab\tttt2.txt", ";"
 
End Sub

@tuandreeva · 24.07.2013, 14:33 **[ТС]**

Делаю так:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim Papka As String     'папка хранения файлов
Dim dlgOpenFile As Object
Set dlgOpenFile = Application.FileDialog(4) 'msoFileDialogFolderPicker
With dlgOpenFile
    .Filters.Clear
    .AllowMultiSelect = False
    If (.Show = -1) And (.SelectedItems.Count > 0) Then
      Papka = .SelectedItems(1)
    Set dlgOpenFile = Nothing
    End If
End With
 
Call toTextFile("select * from txt", Papka, ";")
MsgBox "Экспорт выполнен"

Papka-путь, куда сохранить файл txt. А вот как создать пустой файл?

mobile · 24.07.2013, 15:13

Сообщение от tuandreeva

А вот как создать пустой файл?

Если надо пустой файл, чуть переделаем

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub toTextFile(sql, toFile, delim)
'sql    - SQL-выражение, может быть также именем таблицы/запроса
'toFile - путь и имя приемного файла
'delbm  - разделитель между полями
    Dim rs As Object, s, ff
    Set rs = CreateObject("ADODB.Recordset")
    rs.Open sql, CurrentProject.Connection, , , 1 'adCmdText
    If Not rs.EOF And Not rs.BOF Then
        s = rs.getstring(, , delim, vbCrLf)
    End If
    ff = FreeFile
    Open toFile For Output As #ff
    Print #ff, s
    Close #ff
End Sub

И в обращении надо задать пустой источник

Visual Basic
1
Call toTextFile("select * from txt where 1=0", Papka, ";")

Добавлено через 7 минут

Сообщение от tuandreeva

Papka-путь, куда сохранить файл txt

Из кода видно, что Papka это только путь. А где вы задаете имя текстового файла?

@tuandreeva · 24.07.2013, 15:17 **[ТС]**

Создать пустой файл txt, потом добавить в него данные

mobile · 24.07.2013, 15:32

Сообщение от tuandreeva

Создать пустой файл txt, потом добавить в него данные

Немного переделал процедуру. Добавил параметр appnew. Если appnew=True, то пишется в новый файл, если appnew=False, то данные добавляются к уже имеющимся.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub toTextFile(sql, toFile, delim, appnew As Boolean)
'sql    - SQL-выражение, может быть также именем таблицы/запроса
'toFile - путь и имя приемного файла
'delbm  - разделитель между полями
'appnew - признак. Если True, то пишется в новый файл, если False - добавляется в имеющийся
    Dim rs As Object, s, ff
    Set rs = CreateObject("ADODB.Recordset")
    rs.Open sql, CurrentProject.Connection, , , 1 'adCmdText
    If Not rs.EOF And Not rs.BOF Then
        s = rs.getstring(, , delim, vbCrLf)
    End If
    ff = FreeFile
    If appnew Then
        Open toFile For Output As #ff
    Else
        Open toFile For Append As #ff
    End If
    Print #ff, s
    Close #ff
End Sub

Но, я по-прежнему не вижу где вы задаете имя файла. Хоть пустого, хоть какого. Программа же не может сама знать куда писать, надо либо задать имя файла, либо сгенерировать имя по определенному алгоритму.

@tuandreeva · 24.07.2013, 15:52 **[ТС]**

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub БизнесОнлайн_Click()
On Error Resume Next
Call serv.Table_dell("TXT")
DoCmd.OpenQuery "+TXT"
Dim Papka As String     'путь хранения файлов
Dim dlgOpenFile As Object
Set dlgOpenFile = Application.FileDialog(msoFileDialogSaveAs) 'msoFileDialogFolderPicker
With dlgOpenFile
    If (.Show = -1) And (.SelectedItems.Count > 0) Then
      Papka = .SelectedItems(1)
    Set dlgOpenFile = Nothing
    MsgBox "Экспорт выполнен"
    Else
    End If
End With
Call toTextFile("select * from txt", Papka, ";", False)
End Sub

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub toTextFile(sql, toFile, delim, appnew As Boolean)
'sql    - SQL-выражение, может быть также именем таблицы/запроса
'toFile - путь и имя приемного файла
'delbm  - разделитель между полями
'appnew - признак. Если True, то пишется в новый файл, если False - добавляется в имеющийся
    toFile = toFile + ".txt"
    Dim rs As Object, s, ff
    Set rs = CreateObject("ADODB.Recordset")
    rs.Open sql, CurrentProject.Connection, , , 1 'adCmdText
    If Not rs.EOF And Not rs.BOF Then
        s = rs.GetString(, , delim, vbCrLf)
    End If
    ff = FreeFile
    If appnew Then
        Open toFile For Output As #ff
    Else
        Open toFile For Append As #ff
    End If
    Print #ff, s
    Close #ff
End Sub

Вот так все работает, вместо диалогового окна Save вызывала open
Спасибо за ответы

Новые блоги и статьи Все статьи Все блоги /
Динамические массивы в C++ - создание и использование NullReferenced 27.04.2025 Динамические массивы представляют собой один из фундаментальных инструментов программирования на C++, позволяющий создавать структуры данных, размер которых определяется во время выполнения. . .	Асинхронный JavaScript: Промисы, Async/Await и Fetch API Reangularity 27.04.2025 Пользователь заходит на веб-страницу, нажимает кнопку и. . . ничего не происходит. Сайт словно замер. Через несколько секунд всё внезапно оживает, но пользователь уже успел закрыть вкладку. Знакомая. . .	Management on GitLab and repository management in Visual Studio code jigi33 27.04.2025 - repo management on GitLab - CI/ CD in GitLab - VCS repository management in Visual Studio code (see attachments)	Kanban или Scrum - что выбрать? EggHead 27.04.2025 Kanban и Scrum — уже много лет удерживают лидирующие позиции среди гибких подходов. Руководители проектов и команды разработчиков то и дело сталкиваются с дилеммой: какой из этих двух методов выбрать. . .	Кастомные Middleware на C# в ASP.NET Core UnmanagedCoder 27.04.2025 Разработка веб-приложений сегодня мало напоминает монолитное программирование прошлых лет. На смену громоздким блокам кода пришла модульная архитектура, где каждый компонент выполняет строго. . .
Анализ и линтинг кода JavaScript: ESLint, Prettier и JSHint run.dev 26.04.2025 JavaScript прошёл долгий путь от простого языка для анимации веб-страниц до основы современной веб-разработки. С ростом сложности приложений, увеличением кодовых баз и масштабированием команд. . .	Паттерны в Python: Singleton, Factory и Observer py-thonny 26.04.2025 Паттерны проектирования — это проверенные временем решения типовых проблем разработки программного обеспечения. Их история берёт начало с книги "Приёмы объектно-ориентированного проектирования. . . .	Исключения в C#: Stack Overflow, Access Violation и Out of memory stackOverflow 26.04.2025 Исключения в C# — это не только механизм оповещения о проблемах, а целое искусство управления потоком выполнения программы в экстремальных ситуациях. Обычное исключение, например,. . .	Логирование в C# ASP.NET Core с помощью Serilog, ElasticSearch, Kibana stackOverflow 25.04.2025 Помните те времена, когда для анализа проблемы приходилось подключаться к серверу, искать нужный лог-файл среди десятков других и вручную фильтровать тысячи строк в поисках ошибки? К счастью, эти дни. . .	Структура "железный OnKeyUp" вместо антидребезга. Полностью асинхронный счётчик. Hrethgir 25.04.2025 Программа для симуляции схемы - Logisim Evolution В общем какое-то время отвлёкся, так было надо, теперь когда запилю это на verilog и FPGA , досоставлю заявку в ФИПС на полезную модель - не готов. . .

@ltv_1953 17536 / 7288 / 1663 Регистрация: 21.06.2012 Сообщений: 13,957
	24.07.2013, 12:34
	Может быть проще использовать DoCmd.TransferText, там разделители задаются в спецификации. В хелпе к ПреобразоватьТекст (TransferText) все описано. 0

@tuandreeva 0 / 0 / 0 Регистрация: 10.06.2013 Сообщений: 56
	24.07.2013, 15:17 [ТС]
	Создать пустой файл txt, потом добавить в него данные Миниатюры 0