Чувствую что это все таки кодировка

@orange3100 · Регистрация: 16.10.2014

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

Доброго времени суток уважаемые форумчане!
Организовываю элементарный экспорт данных из Акса в текстовый файл. Иногда он проходит без проблем, а иногда текстовый файл наполнен иероглифами...
Интуитивно понимаю, что дело скорее всего в кодировке...
Может кто посоветует где какой тумблер нажать?..
СПС!

@Eugene-LS · 10.02.2017, 22:47

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

1. Сжать и восстановить БД.

Не помогло ...
С данным в поле что то не так - всякое бывает ...

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

и что это значит? делать тбл по новому и копировать данные в таблицу

Надо посмотреть данные - и откуда они берутся?

Добавлено через 5 минут
orange3100, У вас там:
DataSetQuery: "---------------------------------------------------------------" & Chr(13) & Chr(10) & "idQuery" & " : " & [tblQueries].[idQuery] & Chr(13) & Chr(10) & "idElementForQuery" & " : " & [tblQueries].[idElementForQuery] & Chr(13) & Chr(10) & "SystemNameQuery" & " : " & [tblQueries].[SystemNameQuery] & Chr(13) & Chr(10) & "AcSQLCodeQueryWithComments" & " : " & Chr(13) & Chr(10) & Chr(13) & Chr(10) & [tblQueries].[AcSQLCodeQueryWithComments]

Лихо!
Вот составное поле... а так ... вроде нормально.
Не знаю...

Добавлено через 1 минуту
Глюк какой то ...

Добавлено через 4 минуты
Экспортировал результат "qryQueriesTEST" в отдельную таблицу.
Всё нормально!
И... никаких кракозабров.

Значит ...
Дело в сложно составном поле запроса ...
Глюк такой (один из многих)
Это нормально в сложном софте - Не боги его писали.

mobile · 10.02.2017, 23:03

Сообщение от Eugene-LS

Функция Экспорта в Текст - тут не при чём.

Ну отчего же. Достаточно приписать ко всем мемо-полям Left(поле, 255) и никаких кракозябров помине нет.

Сообщение от Eugene-LS

Экспортировал результат "qryQueriesTEST" в отдельную таблицу.
Всё нормально!
И... никаких кракозабров.

Да, тоже вариант. Но иногда и он промахивается. C ADODB.Stream надежнее.

@Eugene-LS · 10.02.2017, 23:06

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

C ADODB.Stream надежнее.

Возможно...
Знать бы из какой кодировки ... (в какую понятно)

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

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

Достаточно приписать ко всем мемо-полям Left(поле, 255) и никаких кракозябров помине нет.

Кстати! = Да!
Идея! (если влезет и не отрубиться содержимое)

@orange3100 · 10.02.2017, 23:25 **[ТС]**

Изменил принцип.
Ранее было так:
Запрос--->Вычисляемое поле--->Экспорт ===> Кракозябры
Сейчас так:
Таблица--->Поле (Обновляется запросом)--->Запрос--->Обычное поле--->Экспорт ===> Нормальный Результат

Возможно и впрям все дело просто в такой вот изюминке Акса...

Всем огромное спасибо за столь бурное участие!!! Никак не ожидал такого внимания к свой маленькой проблеме...

@Eugene-LS · 10.02.2017, 23:40

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

и что это значит? делать тбл по новому и копировать данные в таблицу

Ради интереса протестировал такой вариант:

Visual Basic

Sub TEST_ExportQueriesInTextFile()
 
Dim rst As DAO.Recordset
Dim sDataSet As String
Dim sFilePath As String
Dim s$
 
Set rst = Application.CurrentDb.OpenRecordset("qryQueriesTEST", dbOpenSnapshot) 'Только просмотр
    Do Until rst.EOF = True 'Цикл до конца таблицы
       s = "---------------------------------------------------------------" & Chr(13) & Chr(10) & "idQuery" & " : " & vbCrLf
        
        With rst.Fields
            'sDataSet = sDataSet & !DataSetQuery & vbCrLf & vbCrLf & vbCrLf
            s = s & !idQuery & vbCrLf
            s = s & !idElementForQuery & " : " & !idElementForQuery & vbCrLf & "SystemNameQuery" & " : " & !SystemNameQuery & vbCrLf & _
            "AcSQLCodeQueryWithComments" & " : " & vbCrLf & vbCrLf & !WithComments & vbCrLf
            sDataSet = sDataSet & s
        End With
        rst.MoveNext
        'Debug.Print sDataSet
    Loop
Debug.Print sDataSet
    
    
WriteTextInNewTxtFile "D:\temp\QueriesTEST.txt", sDataSet
 
 
ExportSourceCodesInTextFile_Bye:
    On Error Resume Next
    rst.Close
    'rstSub.Close
    Set rst = Nothing
    'Set rstSub = Nothing
    Exit Sub
 
ExportSourceCodesInTextFile_Err:
    MsgBox "Ошибка " & Err.Number & vbCrLf & Err.Description & vbCrLf & "в процедуре: бла бла", vbCritical, "Error in module Form_фрмГорода"
    Resume ExportSourceCodesInTextFile_Bye
   
End Sub

Пашет!
Попольная сборка строки (не уверен что сублюл все условия задачки - но это щас не важно)
Итак: - на VBA (не в запросе) - отработала ШТАТНО!

Значит глюк в длинной сборке поля запроса ... - буду знать.

@VinniPuh · 10.02.2017, 23:41

Сообщение от Eugene-LS

...Итак :...

Если уж сам форум навороченный, некие символы воспринимает как квадратики, то тут точно нужно адаптировать одного к другому и ни как не наоборот.

@orange3100 · 10.02.2017, 23:46 **[ТС]**

Сообщение от Eugene-LS

Ради интереса протестировал такой вариант:

Кстати тоже другой и интересный принцип!!!

@Eugene-LS · 10.02.2017, 23:50

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

другой и интересный принцип

Вообще то он более ЛОГИЧНЫЙ - раз уж у нас открытый RecordSet на обработке - то правильнее значения полей по нему собирать
А иначе просто и тупо: DLookUp ...

@texnik-san · 11.02.2017, 01:26

Еще раз спасибо всем. Узнала много нового.

@Eugene-LS · 11.02.2017, 01:58

Сообщение от texnik-san

Еще раз спасибо всем. Узнала много нового.

Да ладно.
Не велика наука.
Всё методом "научного" тыка ... опять. По докам нечто положено ... а там нет! (И далеко не в первый раз).
Я говорю: "Не БОГИ софт пишут"....

@texnik-san · 11.02.2017, 11:04

Сообщение от Eugene-LS

Я говорю: "Не БОГИ софт пишут"....

... а уж доки к сфту - и тем более

@orange3100 · 11.02.2017, 12:49 **[ТС]**

Кстати еще вопрос раз уж тут такое внимание уделялось типу данных String. А сколько символов может содержать такая переменная?

mobile · 11.02.2017, 12:59

Переменная или поле? Переменная может содержать до 100 миллионов байт (а2010). Текстовые и мемо-поля (из хелпа):
- Число знаков в текстовом поле 255
- Число знаков в поле MEMO 65 535 при вводе данных через интерфейс пользователя;
- 2 ГБ для хранения знаков при программном вводе данных

@VinniPuh · 11.02.2017, 13:00

Кажись 16

@orange3100 · 11.02.2017, 13:06 **[ТС]**

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

Переменная может содержать до 100 миллионов байт

а символов это сколько?

shanemac51 · 11.02.2017, 13:19

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

qryQueries (Экспортируется с Иероглифами)

ЕСЛИ БЫ ЕЩЕ ПОНЯТЬ, ЧТО ДЕЛАЕТ ЭТОТ ЗАПРОС ЧЕРЕЗ EVAL

SQL

SELECT W.[idQuery], W.[idElementForQuery], W.[SystemNameQuery],
 W.[DescriptionQuery], [eForQueries].[DescriptionElement],
 W.[AcSQLCodeQueryWithComments] AS WithComments,
 W.[AcSQLCodeQueryOutComments] AS OutComments,
 W.[NoteLongQuery], "---------------------------------------------------------------" 
 & CHR(13) & CHR(10) &  "idQuery" & " : " & W.[idQuery]   
 & CHR(13) & CHR(10) &  "idElementForQuery" & " : " & W.[idElementForQuery] 
 & CHR(13) & CHR(10) &  "SystemNameQuery" & " : " & W.[SystemNameQuery]  
 & CHR(13) & CHR(10) &  "AcSQLCodeQueryWithComments" & " : "   
 & CHR(13) & CHR(10) &   CHR(13) & CHR(10) &  W.[AcSQLCodeQueryWithComments] AS DataSetQuery,
 W.[s00], W.[f00],
 
 IIf(w.f00 IS NOT NULL,
   EVAL(w.f00 & "('" & e0.NE & "')"),
   e0.NE) AS Element0, 
   W.[s01], W.[f01],
 
 IIf(w.f01 IS NOT NULL,EVAL(w.f01 & "('" & e1.NE & "')"),e1.NE) AS Element1, W.[s12], W.[f12],
 IIf(w.f12 IS NOT NULL,EVAL(w.f12 & "('" & e2.NE & "')"),e2.NE) AS Element2, W.[s23], W.[f23],
 IIf(w.f23 IS NOT NULL,EVAL(w.f23 & "('" & e3.NE & "')"),e3.NE) AS Element3, W.[s34], W.[f34],
 IIf(w.f34 IS NOT NULL,EVAL(w.f34 & "('" & e4.NE & "')"),e4.NE) AS Element4, W.[s45], W.[f45],
 IIf(w.f45 IS NOT NULL,EVAL(w.f45 & "('" & e5.NE & "')"),e5.NE) AS Element5, W.[s56], W.[f56],
 IIf(w.f56 IS NOT NULL,EVAL(w.f56 & "('" & e6.NE & "')"),e6.NE) AS Element6, W.[s67], W.[f67],
 IIf(w.f67 IS NOT NULL,EVAL(w.f67 & "('" & e7.NE & "')"),e7.NE) AS Element7, W.[s78], W.[f78],
 IIf(w.f78 IS NOT NULL,EVAL(w.f78 & "('" & e8.NE & "')"),e8.NE) AS Element8, W.[s89], W.[f89],
 IIf(w.f89 IS NOT NULL,EVAL(w.f89 & "('" & e9.NE & "')"),e9.NE) AS Element9, W.[sAE], W.[fAE],
 W.idElementForAppendName,
 IIf(w.fAE IS NOT NULL,EVAL(w.fAE & "('" & eForAppendNames.NE & "')"),
  eForAppendNames.NE) AS AppendElement,
 W.[sAN], W.[fAN], W.[txtAppendName],
 IIf(w.fAN IS NOT NULL,EVAL(w.fAN & "('" & w.txtAppendName & "')"),
   w.txtAppendName) AS AppendName, W.[s90]
FROM (((((((((((tblQueries w
 LEFT JOIN e AS eForQueries ON w.idElementForQuery = eForQueries.idElement)
 LEFT JOIN e AS e0 ON eForQueries.idEl0 = e0.idElement)
 LEFT JOIN e AS e1 ON eForQueries.idEl1 = e1.idElement)
 LEFT JOIN e AS e2 ON eForQueries.idEl2 = e2.idElement)
 LEFT JOIN e AS e3 ON eForQueries.idEl3 = e3.idElement)
 LEFT JOIN e AS e4 ON eForQueries.idEl4 = e4.idElement)
 LEFT JOIN e AS e5 ON eForQueries.idEl5 = e5.idElement)
 LEFT JOIN e AS e6 ON eForQueries.idEl6 = e6.idElement)
 LEFT JOIN e AS e7 ON eForQueries.idEl7 = e7.idElement)
 LEFT JOIN e AS e8 ON eForQueries.idEl8 = e8.idElement)
 LEFT JOIN e AS e9 ON eForQueries.idEl9 = e9.idElement)
 LEFT JOIN e AS eForAppendNames ON W.[idElementForAppendName] = [eForAppendNames].[idElement]
ORDER BY w.SystemNameQuery;

@orange3100 · 11.02.2017, 13:23 **[ТС]**

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

ЕСЛИ БЫ ЕЩЕ ПОНЯТЬ, ЧТО ДЕЛАЕТ ЭТОТ ЗАПРОС ЧЕРЕЗ EVAL

применение функции для обработки поля

Добавлено через 40 секунд
просто таблица функций не прикреплена...

mobile · 11.02.2017, 13:25

Сейчас поэкспериментировал. Переменная типа Variant, подтип String вмещает примерно 2 в 27 степени символов, это около 138 миллионов символов. Причем неважно, будут ли это двухбайтовые символы юникода, или однобайтовые аски.

@Eugene-LS 10916 / 5608 / 1425 Регистрация: 05.10.2016 Сообщений: 15,852
	10.02.2017, 22:47	21
	Сообщение от PuhKMV 1. Сжать и восстановить БД. Не помогло ... С данным в поле что то не так - всякое бывает ... Сообщение от orange3100 и что это значит? делать тбл по новому и копировать данные в таблицу Надо посмотреть данные - и откуда они берутся? Добавлено через 5 минут orange3100, У вас там: DataSetQuery: "---------------------------------------------------------------" & Chr(13) & Chr(10) & "idQuery" & " : " & [tblQueries].[idQuery] & Chr(13) & Chr(10) & "idElementForQuery" & " : " & [tblQueries].[idElementForQuery] & Chr(13) & Chr(10) & "SystemNameQuery" & " : " & [tblQueries].[SystemNameQuery] & Chr(13) & Chr(10) & "AcSQLCodeQueryWithComments" & " : " & Chr(13) & Chr(10) & Chr(13) & Chr(10) & [tblQueries].[AcSQLCodeQueryWithComments] Лихо! Вот составное поле... а так ... вроде нормально. Не знаю... Добавлено через 1 минуту Глюк какой то ... Добавлено через 4 минуты Экспортировал результат "qryQueriesTEST" в отдельную таблицу. Всё нормально! И... никаких кракозабров. Значит ... Дело в сложно составном поле запроса ... Глюк такой (один из многих) Это нормально в сложном софте - Не боги его писали. 1

@Eugene-LS 10916 / 5608 / 1425 Регистрация: 05.10.2016 Сообщений: 15,852
	10.02.2017, 23:50	28
	Сообщение от orange3100 другой и интересный принцип Вообще то он более ЛОГИЧНЫЙ - раз уж у нас открытый RecordSet на обработке - то правильнее значения полей по нему собирать А иначе просто и тупо: DLookUp ... 0

@texnik-san шапоклякистка 8-го дня 3680 / 2240 / 391 Регистрация: 26.06.2015 Сообщений: 4,647 Записей в блоге: 1
	11.02.2017, 01:26	29
	Еще раз спасибо всем. Узнала много нового. 1

@Eugene-LS 10916 / 5608 / 1425 Регистрация: 05.10.2016 Сообщений: 15,852
	11.02.2017, 01:58	30
	Сообщение от texnik-san Еще раз спасибо всем. Узнала много нового. Да ладно. Не велика наука. Всё методом "научного" тыка ... опять. По докам нечто положено ... а там нет! (И далеко не в первый раз). Я говорю: "Не БОГИ софт пишут".... 0

@orange3100 3 / 3 / 0 Регистрация: 16.10.2014 Сообщений: 148
	11.02.2017, 12:49 [ТС]	32
	Кстати еще вопрос раз уж тут такое внимание уделялось типу данных String. А сколько символов может содержать такая переменная? 0

@orange3100 3 / 3 / 0 Регистрация: 16.10.2014 Сообщений: 148
		1
	Чувствую что это все таки кодировка 09.02.2017, 23:30. Показов 2402. Ответов 37 Метки нет (Все метки) Доброго времени суток уважаемые форумчане! Организовываю элементарный экспорт данных из Акса в текстовый файл. Иногда он проходит без проблем, а иногда текстовый файл наполнен иероглифами... Интуитивно понимаю, что дело скорее всего в кодировке... Может кто посоветует где какой тумблер нажать?.. СПС! 0

mobile 26818 / 14497 / 3192 Регистрация: 28.04.2012 Сообщений: 15,782
	10.02.2017, 23:03	22
	Сообщение от Eugene-LS Функция Экспорта в Текст - тут не при чём. Ну отчего же. Достаточно приписать ко всем мемо-полям Left(поле, 255) и никаких кракозябров помине нет. Сообщение от Eugene-LS Экспортировал результат "qryQueriesTEST" в отдельную таблицу. Всё нормально! И... никаких кракозабров. Да, тоже вариант. Но иногда и он промахивается. C ADODB.Stream надежнее. 2

@Eugene-LS 10916 / 5608 / 1425 Регистрация: 05.10.2016 Сообщений: 15,852
	10.02.2017, 23:06	23
	Сообщение от mobile C ADODB.Stream надежнее. Возможно... Знать бы из какой кодировки ... (в какую понятно) Добавлено через 1 минуту Сообщение от mobile Достаточно приписать ко всем мемо-полям Left(поле, 255) и никаких кракозябров помине нет. Кстати! = Да! Идея! (если влезет и не отрубиться содержимое) 1

@orange3100 3 / 3 / 0 Регистрация: 16.10.2014 Сообщений: 148
	10.02.2017, 23:25 [ТС]	24
	Изменил принцип. Ранее было так: Запрос--->Вычисляемое поле--->Экспорт ===> Кракозябры Сейчас так: Таблица--->Поле (Обновляется запросом)--->Запрос--->Обычное поле--->Экспорт ===> Нормальный Результат Возможно и впрям все дело просто в такой вот изюминке Акса... Всем огромное спасибо за столь бурное участие!!! Никак не ожидал такого внимания к свой маленькой проблеме... 0

@VinniPuh 9113 / 6051 / 591 Регистрация: 27.03.2013 Сообщений: 19,881
	10.02.2017, 23:41	26
	Сообщение от Eugene-LS ...Итак :... Если уж сам форум навороченный, некие символы воспринимает как квадратики, то тут точно нужно адаптировать одного к другому и ни как не наоборот. Миниатюры 1

@orange3100 3 / 3 / 0 Регистрация: 16.10.2014 Сообщений: 148
	10.02.2017, 23:46 [ТС]	27
	Сообщение от Eugene-LS Ради интереса протестировал такой вариант: Кстати тоже другой и интересный принцип!!! 0

@texnik-san шапоклякистка 8-го дня 3680 / 2240 / 391 Регистрация: 26.06.2015 Сообщений: 4,647 Записей в блоге: 1
	11.02.2017, 11:04	31
	Сообщение от Eugene-LS Я говорю: "Не БОГИ софт пишут".... ... а уж доки к сфту - и тем более 0

mobile 26818 / 14497 / 3192 Регистрация: 28.04.2012 Сообщений: 15,782
	11.02.2017, 12:59	33
	Переменная или поле? Переменная может содержать до 100 миллионов байт (а2010). Текстовые и мемо-поля (из хелпа): - Число знаков в текстовом поле 255 - Число знаков в поле MEMO 65 535 при вводе данных через интерфейс пользователя; - 2 ГБ для хранения знаков при программном вводе данных 1

@VinniPuh 9113 / 6051 / 591 Регистрация: 27.03.2013 Сообщений: 19,881
	11.02.2017, 13:00	34
	Кажись 16 0

@orange3100 3 / 3 / 0 Регистрация: 16.10.2014 Сообщений: 148
	11.02.2017, 13:06 [ТС]	35
	Сообщение от mobile Переменная может содержать до 100 миллионов байт а символов это сколько? 0

	11.02.2017, 13:25

@orange3100 3 / 3 / 0 Регистрация: 16.10.2014 Сообщений: 148
	11.02.2017, 13:23 [ТС]	37
	Сообщение от shanemac51 ЕСЛИ БЫ ЕЩЕ ПОНЯТЬ, ЧТО ДЕЛАЕТ ЭТОТ ЗАПРОС ЧЕРЕЗ EVAL применение функции для обработки поля Добавлено через 40 секунд просто таблица функций не прикреплена... 0

Новые блоги и статьи
Книги и учебные ресурсы по C# InfoMaster 08.01.2025 Базовые учебники и руководства Одной из лучших книг для начинающих является "C# 10 и . NET 6 для начинающих" Эндрю Троелсена и Филиппа Джепикса . Книга последовательно раскрывает основные концепции. . .	Что такое NullReferenceException и как исправить? InfoMaster 08.01.2025 NullReferenceException - одно из самых распространенных исключений, с которым сталкиваются разработчики на C#. Это исключение возникает при попытке обратиться к членам объекта (методам, свойствам или. . .	Что такое Null Pointer Exception (NPE) и как это исправить? InfoMaster 08.01.2025 Null Pointer Exception (NPE) - это одно из самых распространенных исключений в Java, которое возникает при попытке использовать ссылку на объект, значение которой равно null. Это исключение относится. . .	Русский язык в консоли C++ InfoMaster 08.01.2025 При разработке программ на C++ одной из частых проблем, с которой сталкиваются русскоязычные программисты, является корректное отображение кириллицы в консольных приложениях. Эта проблема особенно. . .	Telegram бот на C# InfoMaster 08.01.2025 Разработка ботов для Telegram стала неотъемлемой частью современной экосистемы мессенджеров. C# предоставляет мощный и удобный инструментарий для создания разнообразных ботов, от простых. . .	Использование GraphQL в Go (Golang) InfoMaster 08.01.2025 Go (Golang) является одним из наиболее популярных языков программирования, используемых для создания высокопроизводительных серверных приложений. Его архитектурные особенности и встроенные. . .
Что лучше использовать при создании класса в Java: сеттеры или конструктор? Alexander-7 08.01.2025 Вопрос подробнее: На вопрос: «Когда одновременно создаются конструктор и сеттеры в классе – это нормально?» куратор уточнил: «Ваш класс может вообще не иметь сеттеров, а только конструктор и геттеры. . .	Как работать с GraphQL на TypeScript InfoMaster 08.01.2025 Введение в GraphQL и TypeScript В современной разработке веб-приложений GraphQL стал мощным инструментом для создания гибких и эффективных API. В сочетании с TypeScript, эта технология. . .	Счётчик на базе сумматоров + регистров и генератора сигналов согласования. Hrethgir 07.01.2025 Создан с целью проверки скорости асинхронной логики: ранее описанного сумматора и предополагаемых fast регистров. Регистры созданы на базе ранее описанного, предполагаемого fast триггера. То-есть. . .	Как перейти с Options API на Composition API в Vue.js BasicMan 06.01.2025 Почему переход на Composition API актуален В мире современной веб-разработки фреймворк Vue. js продолжает эволюционировать, предлагая разработчикам все более совершенные инструменты для создания. . .	Архитектура современных процессоров inter-admin 06.01.2025 Процессор (центральный процессор, ЦП) является основным вычислительным устройством компьютера, которое выполняет обработку данных и управляет работой всех остальных компонентов системы. Архитектура. . .	История создания реляционной модели баз данных, правила Кодда Programming 06.01.2025 Предпосылки создания реляционной модели В конце 1960-х годов компьютерная индустрия столкнулась с серьезными проблемами в области управления данными. Существовавшие на тот момент модели данных -. . .