ReSQL.ru
     
powered by simpleCommunicator - 2.0.50     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / WinForms, .Net Framework [игнор отключен] [закрыт для гостей] / Получить текущие системные форматы даты и далее строку даты согл. выбранному формату
24 сообщений из 24, страница 1 из 1
Получить текущие системные форматы даты и далее строку даты согл. выбранному формату
    #39837159
Дмитрий77
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмитрий77
Участник
Я понимаю, что в .Net полно инструментов и счас возникнет желание дать мне кучу ненужных советов,
но мне нужен ответ на 2 конкретных вопроса.

1) Как получить список текущих системных форматов ("Краткая дата") ? На ЭТОМ компьютере, как он сейчас регионально настроен.
Оно отображается в комбобоксе в Панель Управления -> Часы и регион - Изменение форматов даты времени и чисел.
Т.е. мне нужно получить ровно тот набор строк, что отображается в комбобоксе в том самом виде как оно там отображается.
Для разных региональных настроек этот набор форматов разный (см. картинка).
2) Как зная выбранную "строку формата" (одна из полученного в (1)) привести As Date согласно оному?

Ясен пень, нетовские доки я читать пытался. Но пока не нашел четкого ответа на свой вопрос, особенно на первый.
Т.е. тупо предложить несколько моих субъективных "MM-dd-yyyy","yyyy-MM-ddd" неохота, надо дать выбор из "родных для юзера", т.е. получить этот родной набор как это делают винды в зависимости от выбранного язык/регион.

Дальше еще один "вопрос" (? не могу сформулировать как вопрос, видимо надо поприкидывать).
Полученная дата будет использоваться в имени файла, т.е. нельзя использовать / \ (соотв. : для времени).
Т.е. все / \ в этих строках надо заменять тупо на - (по поводу времени пока не решил, но скорее тоже на -).
Пробелы, точки, вставки типа 'г.' допускаются.
...
Рейтинг: 0 / 0
13.07.2019, 23:52
| Ответить | Цитировать | Написать  
Получить текущие системные форматы даты и далее строку даты согл. выбранному формату
    #39837171
Фотография hVostt
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
hVostt
Участник
Дмитрий77,

В .NET есть метод, возвращающий все возможные форматы для текущего даты/времени.

https://docs.microsoft.com/ru-ru/dotnet/api/system.datetime.getdatetimeformats?view=netframework-4.8#System_DateTime_GetDateTimeFormats_System_Char_

Собственно, это относится к форматированию, которое предоставляет фреймворк из коробки.

Что там отображается в конкретном окошке настроек Windows относится к реализации этого самого окошка, используемому WinAPI, а не к .NET. Ещё можно дизассемблить методы DateTime, и чё-нить нарыть о том, как именно это реализовано.
...
Рейтинг: 0 / 0
14.07.2019, 01:36
| Ответить | Цитировать | Написать  
Получить текущие системные форматы даты и далее строку даты согл. выбранному формату
    #39837176
Дмитрий77
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмитрий77
Участник
hVostt,

вряд ли мне нужны здесь "API".

Вот оно вроде.
GetAllDateTimePatterns(Char)
Список кратких дат (As String()):
Код: vbnet
1.
2.
3.
4.
5.
    Dim ST As String() = CultureInfo.CurrentCulture.DateTimeFormat.GetAllDateTimePatterns("d")
    For Each s In ST
      Debug.Print(s)
      Debug.Print(Now.ToString(Replace(Replace(s, "/", "-"), "\", "-")))
    Next


Для Русский россия напр. будет:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
dd.MM.yyyy
14.07.2019
dd.MM.yy
14.07.19
d.M.yy
14.7.19
dd-MM-yyyy
14-07-2019
dd/MM/yy
14-07-19


(аккурат то что в окошке на картинке)
Аналогично 't' -краткое время 'T' -полное (с секундами).

Я вот изучаю поведение одной программы (которая делает по сути то чего хочу), она почему-то для любой локали добавляет еще 3 формата к этому списку:
yyyy-MM-dd
dd-MM-yyyy
MM-dd-yyyy
Эдакая отсебятина?

Задача в общем-то простая
1) юзеру предлагается список паттернов (разумных для его "региона")
2) юзер выбирает один из них
3) файлы содержат дату с выбранным патерном Now.ToString("pattern")

Но надо сделать аккуратно, вот и думаю.
...
Рейтинг: 0 / 0
14.07.2019, 02:28
| Ответить | Цитировать | Написать  
Получить текущие системные форматы даты и далее строку даты согл. выбранному формату
    #39837177
Фотография hVostt
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
hVostt
Участник
Дмитрий77вряд ли мне нужны здесь "API".

Нужны, если ты привязываешься к окошку, скрин на который кидал.

Дмитрий77Вот оно вроде.
GetAllDateTimePatterns(Char)

Сомнительная польза для конечного юзера, который хочет увидеть конкретно, как будет выглядеть время, а не набор тарабарщины из "паттернов", на который пользователю наплевать с высокой колокольни. Если же юзер разбирается в паттернах, ему нужно дать возможность напистаь свой паттерн, какой он хочет.


Дмитрий77Задача в общем-то простая
1) юзеру предлагается список паттернов (разумных для его "региона")
2) юзер выбирает один из них
3) файлы содержат дату с выбранным патерном Now.ToString("pattern")

Но надо сделать аккуратно, вот и думаю.

Эта простая задача решена уже 20 лет назад. Открой окошко с настройкой форматы даты/времени в экселе.
Собственно я именно метод, решающий эту задачу и привёл выше.

Для любой локали можно предложить один на выбор из GetDateTimeFormats(Char format), где format один из вариантов «d», «D», «f», «F», «g», «G», «m», «o», «r», «s», «t», «T», «u», «U»
...
Рейтинг: 0 / 0
14.07.2019, 02:41
| Ответить | Цитировать | Написать  
Получить текущие системные форматы даты и далее строку даты согл. выбранному формату
    #39837224
Дмитрий77
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмитрий77
Участник
hVosttДмитрий77вряд ли мне нужны здесь "API".

Нужны, если ты привязываешься к окошку, скрин на который кидал.

Дмитрий77Вот оно вроде.
GetAllDateTimePatterns(Char)
Ну дык CultureInfo.CurrentCulture.DateTimeFormat.GetAllDateTimePatterns("d") и отдает ровно тот набор строк, что в комбобоксе на скрине.

hVosttСомнительная польза для конечного юзера, который хочет увидеть конкретно, как будет выглядеть время, а не набор тарабарщины из "паттернов"
Так в том же окошке (скрин на который кидал), при выборе dd.MM.yyyy тут же внизу сразу и выводится Example: 13.07.2019

hVosttЕсли же юзер разбирается в паттернах, ему нужно дать возможность напистаь свой паттерн, какой он хочет.
Опыт показывает, что этого как раз делать не надо. Он уж "захочет", а потом еще и претензии предъявит. Не стоит в коммерческих продуктах давать возможность стрелять в ногу.

Ну, по сути с теорией вроде как разобрался. Осталось сделать аккуратную практическую реализацию (на что большая часть времени как правило и уходит).
...
Рейтинг: 0 / 0
14.07.2019, 14:32
| Ответить | Цитировать | Написать  
Получить текущие системные форматы даты и далее строку даты согл. выбранному формату
    #39837273
Фотография hVostt
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
hVostt
Участник
Дмитрий77Ну дык CultureInfo.CurrentCulture.DateTimeFormat.GetAllDateTimePatterns("d") и отдает ровно тот набор строк, что в комбобоксе на скрине.

Мне кажется, несколько больше :)


Дмитрий77Опыт показывает, что этого как раз делать не надо. Он уж "захочет", а потом еще и претензии предъявит. Не стоит в коммерческих продуктах давать возможность стрелять в ногу.

Для этого существует валидация :)
Для непродвинутого пользователя это выглядит примерно так:

简单的约会 - 14.07.2019
完整日期 - 14.07.2019 12:32:23

:)


Дмитрий77Ну, по сути с теорией вроде как разобрался. Осталось сделать аккуратную практическую реализацию (на что большая часть времени как правило и уходит).

Это главное
...
Рейтинг: 0 / 0
14.07.2019, 23:30
| Ответить | Цитировать | Написать  
Получить текущие системные форматы даты и далее строку даты согл. выбранному формату
    #39837286
Дмитрий77
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмитрий77
Участник
hVosttДмитрий77Ну дык CultureInfo.CurrentCulture.DateTimeFormat.GetAllDateTimePatterns("d") и отдает ровно тот набор строк, что в комбобоксе на скрине.

Мне кажется, несколько больше :)
Со спецификатором "d" (краткая дата) вроде как то же самое, ну я поигрался - различий вроде не заметил.
Если только .Net использует свою кухню, а не те же "API" - но в любом случае эти различия если и есть, будут незначительны,
и вариант приемлимый.

Мне в любом случае придется чуть коверкать "оригинал", ибо все "dd/MM/yyyy" надо заменять на "dd-MM-yyyy" и убирать дубли если есть (/ не может быть в имени). Ну и разумно всегда добавить к любому нац. списку (если их нет)
yyyy-MM-dd
dd-MM-yyyy
MM-dd-yyyy
(имена файлов, и предполагаю эти варианты удобны для сортировки)

Надо делать, а потом уж смотреть что получилось и допиливать если где лоханулся (теория этих дата-время уж очень обширна и занудна).

Например еще такой вариант надо отрабатывать. Допустим юзер выбрал "формат", а потом переключил локаль.
Какой формат брать (если выбранный патерн так или иначе не годен для новой локали)?
Я думаю быстрая проверка и если "выбранного" нет в списке, брать первый из текущего списка.

Кстати, для "время", как формат разумно коверкнуть, чтоб вставлять в "имя файла"?

Обычно:
5:25:15 PM
18:12
-так "низя".

Я думаю разумно будет:
5-25-15 PM
18-12

Точка-разделитель используется если память не изменяет только в италии,
но 5.25.15 PM явно хужее выглядит.
Подчеркивание тоже как-то некрасиво.

Я думаю, ' - ' оптимальная замена для всего непотребного.

=====
P.S Вообще мне обычно хватает
1) Для отображения/сохранения времени в строке, грубо Now().ToString
2) Для валидации что строка это дата IsDate(строка)
3) И далее для получения даты CType(строка, Date)

На любой одной конкретной локали это чудесно всегда работает из коробки (имеется в виду оперативное отображение и т.п.).

Ну, если хранение в БД, оно там понятно хранится как Date.
Если надо что-то точное (чтоб уж точно положить взять без ошибок), то выделяем MM, dd, yyyy, mm, ss и т.п. из Date и храним в своем внутреннем формате проги.
Это так, к слову.
...
Рейтинг: 0 / 0
15.07.2019, 01:36
| Ответить | Цитировать | Написать  
Получить текущие системные форматы даты и далее строку даты согл. выбранному формату
    #39837287
Фотография hVostt
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
hVostt
Участник
Дмитрий77,

Так-то для файлов абсолютно правильно независимо от локали и культуры формат даты выбирать, удобный для сортировки, а именно:

yyyy-MM-dd

Касательно времени, тоже самое. Не имеет значение, используется ли в культуре AM/PM, имя файла должно содержать

HH:mm
HH:mm:ss

И обязательно после даты.

Просто потому, что так удобно работать с файлами.
В общем-то так и принято делать.
...
Рейтинг: 0 / 0
15.07.2019, 02:03
| Ответить | Цитировать | Написать  
Получить текущие системные форматы даты и далее строку даты согл. выбранному формату
    #39837288
Фотография hVostt
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
hVostt
Участник
Дмитрий77На любой одной конкретной локали это чудесно всегда работает из коробки (имеется в виду оперативное отображение и т.п.).

Мне кажется основной косяк здесь в ожиданиях, что локаль нужна там, где она на самом деле не нужна и даже довольно таки вредна.
...
Рейтинг: 0 / 0
15.07.2019, 02:04
| Ответить | Цитировать | Написать  
Получить текущие системные форматы даты и далее строку даты согл. выбранному формату
    #39837308
Дмитрий77
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмитрий77
Участник
hVosttДмитрий77,

Так-то для файлов абсолютно правильно независимо от локали и культуры формат даты выбирать, удобный для сортировки, а именно:

yyyy-MM-dd

Касательно времени, тоже самое. Не имеет значение, используется ли в культуре AM/PM, имя файла должно содержать

HH:mm
HH:mm:ss

И обязательно после даты.

Убедил, добавил эти универсальные "форматы", только для времени HH-mm
HH-mm-ss
' : ' -низя
hVosttЕсли же юзер разбирается в паттернах, ему нужно дать возможность напистаь свой паттерн, какой он хочет.Пусть пишет, переставляет местами как хочет, %переменные% я ему предоставляю, а вот стрелять по ногам по форматам даты и времени направо и налево, ну не дам не дам, пусть выбирает "из разумного для данной местности".
В общем начал с "GUI выбора шаблона", код и картинка типа такие намечаются:
(на первое место в список комбо как раз подставляются системно выбранные "короткая дата" и "короткое время", они же и предлагаются по дефолту при отсутствии уже выбранных из списка)
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
  Dim collDate As New Collection 'коллекция Date-шаблонов
  Dim collTime As New Collection 'коллекция Time-шаблонов

  Private Sub PopulateDateTimeFormats_Collection(ByRef collDate As Collection, ByRef collTime As Collection)
    '=====Date=====
    collDate.Clear()
    Dim sDates As String() = CultureInfo.CurrentCulture.DateTimeFormat.GetAllDateTimePatterns("d")
    For Each sDate As String In sDates
      sDate = CorrectFileName(sDate)
      If collDate.Contains(sDate) = False Then collDate.Add(sDate, sDate)
    Next
    '+ 3 обязательных формата
    If collDate.Contains("yyyy-MM-dd") = False Then collDate.Add("yyyy-MM-dd", "yyyy-MM-dd")
    If collDate.Contains("dd-MM-yyyy") = False Then collDate.Add("dd-MM-yyyy", "dd-MM-yyyy")
    If collDate.Contains("MM-dd-yyyy") = False Then collDate.Add("MM-dd-yyyy", "MM-dd-yyyy")

    '=====Time=====
    collTime.Clear()
    Dim sShortTimes As String() = CultureInfo.CurrentCulture.DateTimeFormat.GetAllDateTimePatterns("t")
    Dim sLongTimes As String() = CultureInfo.CurrentCulture.DateTimeFormat.GetAllDateTimePatterns("T")
    For Each sTime As String In sShortTimes
      sTime = CorrectFileName(sTime)
      If collTime.Contains(sTime) = False Then collTime.Add(sTime, sTime)
    Next
    For Each sTime As String In sLongTimes
      sTime = CorrectFileName(sTime)
      If collTime.Contains(sTime) = False Then collTime.Add(sTime, sTime)
    Next
    '+ 2 обязательных формата
    If collTime.Contains("HH-mm") = False Then collTime.Add("HH-mm", "HH-mm")
    If collTime.Contains("HH-mm-ss") = False Then collTime.Add("HH-mm-ss", "HH-mm-ss")
  End Sub

  Private Sub PopulateDateTimeFormats_Combo(ByRef collDate As Collection, ByRef collTime As Collection, _
   ByRef comboDate As ComboBox, ByRef comboTime As ComboBox, _
   Optional ByVal sDateSelected As String = vbNullString, Optional ByVal sTimeSelected As String = vbNullString)
    '=====Date=====
    comboDate.Items.Clear()
    For Each sDate As String In collDate
      comboDate.Items.Add(sDate)
    Next
    If (sDateSelected <> "") AndAlso collDate.Contains(sDateSelected) Then
      comboDate.Text = sDateSelected 'ранее выбранное значение
    Else
      If comboDate.Items.Count > 0 Then comboDate.Text = comboDate.Items(0) 'первое значение
    End If

    '=====Time=====
    comboTime.Items.Clear()
    For Each sTime As String In collTime
      comboTime.Items.Add(sTime)
    Next
    If (sTimeSelected <> "") AndAlso collTime.Contains(sTimeSelected) Then
      comboTime.Text = sTimeSelected 'ранее выбранное значение
    Else
      If comboTime.Items.Count > 0 Then comboTime.Text = comboTime.Items(0) 'первое значение
    End If

  End Sub

  Private Sub ButtonAddFormats_Click(sender As Object, e As EventArgs) Handles ButtonAddFormats.Click
    'Populate date/time pattern collections
    PopulateDateTimeFormats_Collection(collDate, collTime)
    'Populate date/time pattern comboboxes
    PopulateDateTimeFormats_Combo(collDate, collTime, Me.ComboBoxDate, Me.ComboBoxTime)
  End Sub

  Private Function CorrectFileName(ByVal strFileName As String) As String
    'возвращает исправленное имя файла (замена на -)
    Dim strTemp = strFileName
    strTemp = Replace(strTemp, "\", "-")
    strTemp = Replace(strTemp, "/", "-")
    strTemp = Replace(strTemp, ":", "-")
    strTemp = Replace(strTemp, "*", "-")
    strTemp = Replace(strTemp, "?", "-")
    strTemp = Replace(strTemp, Chr(34), "-")
    strTemp = Replace(strTemp, "<", "-")
    strTemp = Replace(strTemp, ">", "-")
    strTemp = Replace(strTemp, "|", "-")
    Return strTemp
  End Function
...
Рейтинг: 0 / 0
15.07.2019, 08:24
| Ответить | Цитировать | Написать  
Получить текущие системные форматы даты и далее строку даты согл. выбранному формату
    #39837653
Фотография hVostt
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
hVostt
Участник
Дмитрий77,

в подобном решении --- давать возможность для юзера задавать нейминг, есть ещё одна проблема.

теперь, когда возникнут проблемы на поддержке, нужно ещё будет разбираться какой неймнинг юзер задал вместо того, чтобы сказать "дай такие-то и такие файлы", и ещё куча проблем из этого может вырасти.

не совсем понимаю business value от подобного решения. что это даёт пользователю, как это улучшает юзабельность софта и вообще как влияет на удобство использования?

просто из любопытства.
...
Рейтинг: 0 / 0
15.07.2019, 23:46
| Ответить | Цитировать | Написать  
Получить текущие системные форматы даты и далее строку даты согл. выбранному формату
    #39837662
Дмитрий77
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмитрий77
Участник
hVosttиз любопытства.
Из любопытсва, один юзер как-то спросил, можно ли в названии файла (принятый факс) писать дату, номер звонящего и т.п.
(Я по e-mail тупо отправляю FAX.tif (FAX.pdf...) - канонично и красиво казалось бы, как в MSFax ан нет)
Я ответил нет, нельзя, типа лишнее. Ну тогда я не куплю - ответил он - и не купил.
И этим вопросом интересовались так или иначе многие.
Вот и весь business minus от отсутствия подобного решения.

Аналогично с копированием в папку.
Сейчас я генерирую для копирования в папку вот это (дабы обеспечить уникальность имени):
Код: vbnet
1.
2.
3.
4.
5.
6.
  Public Function StringCurTimeRndDigits() As String
    'аналог того, как составляются имена файлов при приеме через ...
    Dim d As Date = Now
    Return String.Format("{0:D2}{1:D2}{2:D4}{3:D2}{4:D2}{5:D2}{6:D3}{7:D4}", _
     d.Day, d.Month, d.Year, d.Hour, d.Minute, d.Second, d.Millisecond, RndRange(1000, 9999))
  End Function


Дату конечно в куче содержит, но похабненько.

Фишка в том что они информацию что им нужно вместо чтоб копаться в БД (парсить текст письма и т.п.) хотят из названия файла из кучи извлечь, что для слегка программирующего человека ясно дело сильно проще. Было еще предложение текстовуху с "данными" рядом ложить, но это уже перебор.

В общем надо потихоньку идти навстречу клиенту,
конечно все эти фичи высасывание из пальца, но в совокупности за годы, они дают хорошие плюсы и хороший внешний вид продукта.

hVosttв подобном решении --- давать возможность для юзера задавать нейминг, есть ещё одна проблема.
теперь, когда возникнут проблемы на поддержке
Ну запрещенные символы я вычеркиваю прогоном через Function CorrectFileName() -выше привел,
пустой pattern не разрешаю. Debug Log ведется если надо. Всегда есть "Default", и стандартный "Custom" (см. картинку).
При одинаковых файлах (копирование в папку) будет дописываться (2) ,(3)… -см. соседний мой пост, где как раз эту задачу пытаюсь корректно решить. При Email Attach одинаковость не критична. %Переменные% стандартные берутся из меню кнопки (см. картинку), при ошибке в "%ПЯРЯменнай%" подстановки не произойдет - будет текст.
Что там еще "в ногу"?

Гимор, да. Рост как программиста - никакого - 15 лет назад примерно так же писал (даже не API кот. мозги хоть тренируют). Зато новая "фича", красивый GUI, "м.б. это кому-нибудь нады".
...
Рейтинг: 0 / 0
16.07.2019, 00:39
| Ответить | Цитировать | Написать  
Получить текущие системные форматы даты и далее строку даты согл. выбранному формату
    #39838137
Дмитрий77
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмитрий77
Участник
Дмитрий77а вот стрелять по ногам по форматам даты и времени направо и налево, ну не дам не дам, пусть выбирает "из разумного для данной местности".
В общем начал с "GUI выбора шаблона", код и картинка типа такие намечаются:
(на первое место в список комбо как раз подставляются системно выбранные "короткая дата" и "короткое время", они же и предлагаются по дефолту при отсутствии уже выбранных из списка)
 
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
  Dim collDate As New Collection 'коллекция Date-шаблонов
  Dim collTime As New Collection 'коллекция Time-шаблонов

  Private Sub PopulateDateTimeFormats_Collection(ByRef collDate As Collection, ByRef collTime As Collection)
    '=====Date=====
    collDate.Clear()
    Dim sDates As String() = CultureInfo.CurrentCulture.DateTimeFormat.GetAllDateTimePatterns("d")
    For Each sDate As String In sDates
      sDate = CorrectFileName(sDate)
      If collDate.Contains(sDate) = False Then collDate.Add(sDate, sDate)
    Next
    '+ 3 обязательных формата
    If collDate.Contains("yyyy-MM-dd") = False Then collDate.Add("yyyy-MM-dd", "yyyy-MM-dd")
    If collDate.Contains("dd-MM-yyyy") = False Then collDate.Add("dd-MM-yyyy", "dd-MM-yyyy")
    If collDate.Contains("MM-dd-yyyy") = False Then collDate.Add("MM-dd-yyyy", "MM-dd-yyyy")

    '=====Time=====
    collTime.Clear()
    Dim sShortTimes As String() = CultureInfo.CurrentCulture.DateTimeFormat.GetAllDateTimePatterns("t")
    Dim sLongTimes As String() = CultureInfo.CurrentCulture.DateTimeFormat.GetAllDateTimePatterns("T")
    For Each sTime As String In sShortTimes
      sTime = CorrectFileName(sTime)
      If collTime.Contains(sTime) = False Then collTime.Add(sTime, sTime)
    Next
    For Each sTime As String In sLongTimes
      sTime = CorrectFileName(sTime)
      If collTime.Contains(sTime) = False Then collTime.Add(sTime, sTime)
    Next
    '+ 2 обязательных формата
    If collTime.Contains("HH-mm") = False Then collTime.Add("HH-mm", "HH-mm")
    If collTime.Contains("HH-mm-ss") = False Then collTime.Add("HH-mm-ss", "HH-mm-ss")
  End Sub

  Private Sub PopulateDateTimeFormats_Combo(ByRef collDate As Collection, ByRef collTime As Collection, _
   ByRef comboDate As ComboBox, ByRef comboTime As ComboBox, _
   Optional ByVal sDateSelected As String = vbNullString, Optional ByVal sTimeSelected As String = vbNullString)
    '=====Date=====
    comboDate.Items.Clear()
    For Each sDate As String In collDate
      comboDate.Items.Add(sDate)
    Next
    If (sDateSelected <> "") AndAlso collDate.Contains(sDateSelected) Then
      comboDate.Text = sDateSelected 'ранее выбранное значение
    Else
      If comboDate.Items.Count > 0 Then comboDate.Text = comboDate.Items(0) 'первое значение
    End If

    '=====Time=====
    comboTime.Items.Clear()
    For Each sTime As String In collTime
      comboTime.Items.Add(sTime)
    Next
    If (sTimeSelected <> "") AndAlso collTime.Contains(sTimeSelected) Then
      comboTime.Text = sTimeSelected 'ранее выбранное значение
    Else
      If comboTime.Items.Count > 0 Then comboTime.Text = comboTime.Items(0) 'первое значение
    End If

  End Sub

  Private Sub ButtonAddFormats_Click(sender As Object, e As EventArgs) Handles ButtonAddFormats.Click
    'Populate date/time pattern collections
    PopulateDateTimeFormats_Collection(collDate, collTime)
    'Populate date/time pattern comboboxes
    PopulateDateTimeFormats_Combo(collDate, collTime, Me.ComboBoxDate, Me.ComboBoxTime)
  End Sub

  Private Function CorrectFileName(ByVal strFileName As String) As String
    'возвращает исправленное имя файла (замена на -)
    Dim strTemp = strFileName
    strTemp = Replace(strTemp, "\", "-")
    strTemp = Replace(strTemp, "/", "-")
    strTemp = Replace(strTemp, ":", "-")
    strTemp = Replace(strTemp, "*", "-")
    strTemp = Replace(strTemp, "?", "-")
    strTemp = Replace(strTemp, Chr(34), "-")
    strTemp = Replace(strTemp, "<", "-")
    strTemp = Replace(strTemp, ">", "-")
    strTemp = Replace(strTemp, "|", "-")
    Return strTemp
  End Function




Красиво то оно красиво, но лоханулся я с "локализацией форматов".

Код под спойлером дает интерфейс настроек.
Алгоритм такой:
загружаются форматы даты-времени "текущей культуры"
выбирается
1) сохраненный выбранный ранее паттерн (если он соответствует одному из значений списка)
либо
2) первый паттерн из списка (для "текущей культуры") - если сохраненный выбранный ранее паттерн в списке отсутствует (т.е. напр. когда юзер поменял "культуру").

Исполняющее приложение действует точно также.
1) берет сохраненный паттерн 2) заменяет его на дефолтный для "текущей культуры" если оный отсутствует в "текущей культуре".


Вроде как написал все, тестирую, все зашибись, душа радуется.

Выбираю "Японский (Япония)", сохраняю время как "tt hh-mm-ss", предполагающий ероглифы вместо tt.
Запускаю тест, он мне делает 17.07.2019 6-09 (заменил гад на дефолтный русский).

Дошло быстро.
Настройка делается под Current User (язык японский)
Исполняющее приложение запускается под NETWORK SERVICE (служба факсов там штатно-честно трудится и она оттуда вызывает мое exe).
Язык - ну очевидно русский (что был при установке ОС). Поменять культуру в NETWORK SERVICE (или Local System) м.б. и можно, но не иначе как утилитами Русиновича и им подобными, и ясен пень что в здравом уме ни один юзер такой фигней заниматься не будет.

Попытался закомментировать в исполняющем приложении "2) заменяет его на дефолтный для "текущей культуры" если оный отсутствует в "текущей культуре"."
Задачу это не решает. Японский "tt hh-mm-ss" не проставит tt-иероглифы перед временем, если прога стартовала на "русской культуре".

Вот даже и не знаю пока, как разрулить, видимо без бутылки не получится.
Логично предположить, что культура CurrentUser совпадает с культурой NETWORK SERVICE, но это далеко не всегда так.
На Win10/8.1/7 это как правило так и есть (типичная бытовая установка),
а вот на Win Server сейчас обычно ставится английский, а потом локализуется установкой языкового пакета.

Ну, есть идея записывать "культуру" в настройки, настраивающий "Current User" ес-но рассчитывает получить "свой культурный результат" - в общем-то логично.
но принудительное изменение культуры приложения кодом на ходу (не пробовал но судя по функциям SerCulture это возможно) повлияет на все приложение, а не только на форматы даты-времени. Не уверен что я этого хочу, но идея в общем разумна (еще ошибки в debug будет "культурней" писать и т.д.).

В общем творчество проявлять надо. Подумаю об этом позже.
...
Рейтинг: 0 / 0
17.07.2019, 06:47
| Ответить | Цитировать | Написать  
Получить текущие системные форматы даты и далее строку даты согл. выбранному формату
    #39838154
Фотография Изопропил
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Изопропил
Участник
Дмитрий77,

А что у тебя будет происходить на терминальном сервере?
...
Рейтинг: 0 / 0
17.07.2019, 08:13
| Ответить | Цитировать | Написать  
Получить текущие системные форматы даты и далее строку даты согл. выбранному формату
    #39838445
Дмитрий77
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмитрий77
Участник
ИзопропилДмитрий77,
А что у тебя будет происходить на терминальном сервере?
А причем тут сервер? Много учетных записей - разно- "некультурных"?

Дмитрий77...видимо без бутылки не получится.
...
Ну, есть идея записывать "культуру" в настройки, настраивающий "Current User" ес-но рассчитывает получить "свой культурный результат" - в общем-то логично.
но принудительное изменение культуры приложения кодом на ходу (не пробовал но судя по функциям SerCulture это возможно) повлияет на все приложение, а не только на форматы даты-времени. Не уверен что я этого хочу, но идея в общем разумна (еще ошибки в debug будет "культурней" писать и т.д.).

В общем творчество проявлять надо. Подумаю об этом позже.
Принял ее [бутылку (прим.)], поспал, подумал, появилась идея как надо.
Думаю, что я зря перезаложился на CurrentCulture
Culture надо выбирать-сохранять в настройках, а потом просто использовать эту заданную Culture при распечатке String -под любым аккаунтом (есть же все в функциях), а не менять Culture всего потока-приложения. Автоматику с CurrentCulture можно использовать разве что в качестве дефолта при первом выводе GUI настройки, когда еще ничего не сохранено.
...
Рейтинг: 0 / 0
17.07.2019, 18:58
| Ответить | Цитировать | Написать  
Получить текущие системные форматы даты и далее строку даты согл. выбранному формату
    #39838458
Дмитрий77
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмитрий77
Участник
OK, вопрос.
А как вот так комбобокс заполнить? Как на картинке (панель управления).
И чтоб отсортировано было по алфавиту.
Не уверен, что мне нужно "точное совпадение" с панелью управления (совсем точного получить не получается).

Но смысл в следующем.
1) Одно из значений должно соответствовать CultureInfo.CurrentCulture, чтоб его можно было выбрать в .Text (Combobox)
2) Каждой записи должно соответствовать то, что я могу сохранить как текст из чего потом можно сделать Culture и DateTimeFormat.GetAllDateTimePatterns (полагаю "ru-Ru", "en-US", "en-GB"...)
3) Список должен быть отсортирован по .DisplayName

Наиболее близко к "панели управления"
 
Афарский (Джибути)
Афарский (Эритрея)
Афарский (Эфиопия)
Африкаанс (Намибия)
Африкаанс (ЮАР)
Агем (Камерун)
Акан (Гана)
Амхарский (Эфиопия)
Арабский (общепринятый)
Арабский (ОАЭ)
Арабский (Бахрейн)
Арабский (Джибути)
Арабский (Алжир)
Арабский (Египет)
Арабский (Эритрея)
Арабский (Израиль)
Арабский (Ирак)
Арабский (Иордания)
Арабский (Коморские острова)
Арабский (Кувейт)
Арабский (Ливан)
Арабский (Ливия)
Арабский (Марокко)
Арабский (Мавритания)
Арабский (Оман)
Арабский (Палестинская Автономия)
Арабская (Катар)
Арабский (Саудовская Аравия)
Арабский (Судан)
Арабский (Сомали)
Арабский (Южный Судан)
Арабский (Сирия)
Арабский (Чад)
Арабский (Тунис)
Арабский (Йемен)
Арауканский (Чили)
Ассамский (Индия)
Aсу (Танзания)
Астурийский (Испания)
Азербайджанский (кириллица, Азербайджан)
Азербайджанский (латиница, Азербайджан)
Башкирский (Россия)
Басаа (Камерун)
Белорусский (Беларусь)
Бемба (Замбия)
Бена (Танзания)
Болгарский (Болгария)
Эдо (Нигерия)
Бамана (Латинский, Мали)
Бенгальский (Бангладеш)
Бенгальский (Индия)
Тибетский (КНР)
Тибетский (Индия)
Бретонский (Франция)
Бодо (Индия)
Боснийский (кириллица, Босния и Герцеговина)
Боснийский (латиница, Босния и Герцеговина)
Билен (Эритрея)
Каталанский (Андорра)
каталанский (каталанский)
Валенсийский (Испания)
Каталанский (Франция)
Каталанский (Италия)
Чеченский (Россия)
Кига (Уганда)
Чероки (Чероки)
Корсиканский (Франция)
Чешский (Чешская Республика)
Церковнославянский (Россия)
Валлийский (Соединенное Королевство)
Датский (Дания)
Датский (Гренландия)
Таита (Кения)
Немецкий (Австрия)
Немецкий (Бельгия)
Немецкий (Швейцария)
Немецкий (Германия)
Немецкий (Италия)
Немецкий (Лихтенштейн)
Немецкий (Люксембург)
Зарма (Нигер)
Нижнелужицкий (Германия)
Дуала (Камерун)
Мальдивский (Мальдивы)
Йола-Фонуй (Сенегал)
Дзонг-кэ (Бутан)
Эмбу (Кения)
Эве (Гана)
Эве (Того)
Греческий (Кипр)
Греческий (Греция)
Английский (международный)
Английский (Карибские о-ва)
Английский (Европа)
Английский (Антигуа и Барбуда)
Английский (Ангилья)
Английский (Американское Самоа)
Английский (Австрия)
Английский (Австралия)
Английский (Барбадос)
Английский (Бельгия)
Английский (Бурунди)
Английский (Бермуды)
Английский (Багамы)
Английский (Ботсвана)
Английский (Белиз)
Английский (Канада)
Английский (Кокосовые острова [Килинг])
Английский (Швейцария)
Английский (Острова Кука)
Английский (Камерун)
Английский (Остров Рождества)
Английский (Кипр)
Английский (Германия)
Английский (Дания)
Английский (Доминика)
Английский (Эритрея)
Английский (Финляндия)
Английский (Фиджи)
Английский (Фолклендские острова)
Английский (Микронезия)
Английский (Соединенное Королевство)
Английский (Гренада)
Английский (Гернси)
Английский (Гана)
Английский (Гибралтар)
Английский (Гамбия)
Английский (Гуам)
Английский (Гайана)
Английский (САР Гонконг)
Английский (Индонезия)
Английский (Ирландия)
Английский (Израиль)
Английский (О-в Мэн)
Английский (Индия)
Английский (Британская территория в Индийском океане)
Английский (Джерси)
Английский (Ямайка)
Английский (Кения)
Английский (Кирибати)
Английский (Сент-Киттс и Невис)
Английский (Каймановы острова)
Английский (Сент-Люсия)
Английский (Либерия)
Английский (Лесото)
Английский (Мадагаскар)
Английский (Маршалловы острова)
Английский (САР Макао)
Английский (северные Марианские острова)
Английский (Монтсеррат)
Английский (Мальта)
Английский (Маврикий)
Английский (Малави)
Английский (Малайзия)
Английский (Намибия)
Английский (Остров Норфолк)
Английский (Нигерия)
Английский (Нидерланды)
Английский (Науру)
Английский (Ниуэ)
Английский (Новая Зеландия)
Английский (Папуа-Новая Гвинея)
Английский (Республика Филиппины)
Английский (Пакистан)
Английский (острова Питкэрн)
Английский (Пуэрто-Рико)
Английский (Палау)
Английский (Руанда)
Английский (Соломоновы Острова)
Английский (Сейшельские острова)
Английский (Судан)
Английский (Швеция)
Английский (Сингапур)
Английский (Острова Святой Елены, Вознесения и Тристан-да-Кунья)
Английский (Словения)
Английский (Сьерра-Леоне)
Английский (Южный Судан)
Английский (Синт-Мартен)
Английский (Свазиленд)
Английский (Острова Теркс и Кайкос)
Английский (Токелау)
Английский (Тонга)
Английский (Тринидад и Тобаго)
Английский (Тувалу)
Английский (Танзания)
Английский (Уганда)
Английский (внешние малые острова США)
Английский (США)
Английский (Сент-Винсент и Гренадины)
Английский (Британские Виргинские острова)
Английский (Виргинские острова США)
Английский (Вануату)
Английский (Самоа)
Английский (ЮАР)
Английский (Замбия)
Английский (Зимбабве)
Эсперанто (международный)
Испанский (Латинская Америка)
Испанский (Аргентина)
Испанский (Боливия)
Испанский (Бразилия)
Испанский (Белиз)
Испанский (Чили)
Испанский (Колумбия)
Испанский (Коста-Рика)
Испанский (Куба)
Испанский (Доминиканская республика)
Испанский (Эквадор)
Испанский (Испания)
Испанский (Экваториальная Гвинея)
Испанский (Гватемала)
Испанский (Гондурас)
Испанский (Мексика)
Испанский (Никарагуа)
Испанский (Панама)
Испанский (Перу)
Испанский (Филиппины)
Испанский (Пуэрто-Рико)
Испанский (Парагвай)
Испанский (Сальвадор)
Испанский (США)
Испанский (Уругвай)
Испанский (Боливарийская Республика Венесуэла)
Эстонский (Эстония)
Баскский (Баскский)
Евондо (Камерун)
Персидский (Иран)
Фула (Камерун)
Фула (Гвинея)
Фула (латиница, Сенегал)
Фула (Мавритания)
Фулах (Нигерия)
Финский (Финляндия)
Филиппинский (Филиппины)
Фарерский (Дания)
Фарерский (Фарерские о-ва)
Французский (Карибские острова)
Французский (Бельгия)
Французский (Буркина-Фасо)
Французский (Бурунди)
Французский (Бенин)
Французский (Сен-Бартелеми)
Французский (Канада)
Французский (Конго, ДРК)
Французский (Центральноафриканская Республика)
Французский (Конго)
Французский (Швейцария)
Французский (Кот-д'Ивуар)
Французский (Камерун)
Французский (Джибути)
Французский (Алжир)
Французский (Франция)
Французский (Габон)
Французский (Французская Гвиана)
Французский (Гвинея)
Французский (Гваделупа)
Французский (Экваториальная Гвинея)
Французский (Гаити)
Французский (Коморские острова)
Французский (Люксембург)
Французский (Марокко)
Французский (Монако)
Французский (Сен-Мартен)
Французский (Мадагаскар)
Французский (Мали)
Французский (Мартиника)
Французский (Мавритания)
Французский (Маврикий)
Французский (Новая Каледония)
Французский (Нигер)
Французский (Французская Полинезия)
Французский (Сен-Пьер и Микелон)
Французский (Реюньон)
Французский (Руанда)
Французский (Сейшельские острова)
Французский (Сенегал)
Французский (Сирия)
Французский (Чад)
Французский (Того)
Французский (Тунис)
Французский (Вануату)
Французский (Уоллис и Футуна)
Французский (Майотта)
Фриульский (Италия)
Фризский (Нидерланды)
Ирландский (Ирландия)
Шотландский гэльский (Соединенное Королевство)
Галицийский (Галиция)
Гуарани (Парагвай)
Эльзасский (Швейцария)
Эльзасский (Франция)
Эльзасский (Лихтенштейн)
Гуджарати (Индия)
Гуси (Кения)
Мэнский (О-в Мэн)
Хауса (Латынь, Гана)
Хауса (Латынь, Нигер)
Хауса (латиница, Нигерия)
Гавайский (США)
Иврит (Израиль)
Хинди (Индия)
Хорватский (латиница, Босния и Герцеговина)
Хорватский (Хорватия)
Верхнелужицкий (Германия)
Венгерский (Венгрия)
Армянский (Армения)
Интерлингва (международный)
Интерлингва (Франция)
Ибибио (Нигерия)
Индонезийский (Индонезия)
Игбо (Нигерия)
Ий (КНР)
Исландский (Исландия)
Итальянский (Швейцария)
Итальянский (Италия)
Итальянский (Сан-Марино)
Итальянский (Ватикан)
Инуктитут (слоговое письмо, Канада)
Инуктитут (латиница, Канада)
Японский (Япония)
Нгомба (Камерун)
Мачаме (Танзания)
Яванский (яванское письмо, Индонезия)
Яванский (Индонезия)
Грузинский (Грузия)
Кабильский (Алжир)
Камба (Кения)
Маконде (Танзания)
Кабувердиану (Кабо-Верде)
Койра чини (Мали)
Кикую (Кения)
Казахский (Казахстан)
Како (Камерун)
Гренландский (Гренландия)
Календжин (Кения)
Кхмерский (Камбоджа)
Каннада (Индия)
Корейский (Северная Корея)
Корейский (Корея)
Конкани (Индия)
Канури (Нигерия)
Кашмири (Персо-Арабский)
Кашмири (деванагари, Индия)
Шамбала (Танзания)
Бафиа (Камерун)
Рипуариан (Германия)
Центрально-курдский (Ирак)
Курдский (персидско-арабский, Иран)
Корнуоллский (Соединенное королевство)
Киргизский (Киргизия)
Латинский (все страны)
Ланги (Танзания)
Люксембургский (Люксембург)
Ганда (Уганда)
Lakota (США)
Лингала (Ангола)
Лингала (Конго, ДРК)
Лингала (Центральноафриканская Республика)
Лингала (Конго)
Лаосский (Лаосская Народно-Демократическая Республика)
Северный лури (Ирак)
Северный лури (Иран)
Литовский (Литва)
Луба-Катанга (Конго, ДРК)
Луо (Кения)
Лухья (Кения)
Латышский (Латвия)
Масаи (Кения)
Масаи (Танзания)
Меру (Кения)
Маврикийский (Маврикий)
Малагасийский (Мадагаскар)
Махува-Меето (Мозамбик)
Мета (Камерун)
Маори (Новая Зеландия)
Македонский (Бывшая Югославская Республика Македония)
Малаялам (Индия)
Монгольский (кириллица, Монголия)
Монгольский (старомонгольское письмо, КНР)
Монгольский (традиционный монгольский, Монголия)
Манипурский (Индия)
Мохаук (племя Мохаук)
Маратхи (Индия)
Малайский (Бруней, Дар-эс-Салам)
Малайский (Малайзия)
Малайский (латинский, Сингапур)
Мальтийский (Мальта)
Мунданг (Камерун)
Бирманский (Мьянма)
Мазандеранский (Иран)
Нама (Намибия)
Норвежский (букмол, Норвегия)
Норвежский (букмол, Шпицберген и Ян-Майен)
Северный Ндебеле Зимбабве)
Нижненемецкий (Германия)
Нижненемецкий (Нидерланды)
Непальский (Индия)
Непальский (Непал)
Голландский (Аруба)
Голландский (Бельгия)
Голландский (Бонайре, Синт-Эстатиус и Саба)
Нидерландский (Кюрасао)
Голландский (Нидерланды)
Голландский (Суринам)
Голландский (Синт-Мартен)
Квасио (Камерун)
Норвежский (нюнорск, Норвегия)
Нгиембун (Камерун)
Нко (Гвинея)
Южный Ндебеле (ЮАР)
Северный сото (ЮАР)
Нуэр (Южный Судан)
Ньянколе (Уганда)
Окситанский (Франция)
Оромо (Эфиопия)
Оромо (Кения)
Ория (Индия)
Осетинский (кириллица, (Грузия)
Осетинский (кириллица, Россия)
Панджаби (Пакистан)
Панджаби (Индия)
Папьяменто (Карибские острова)
Польский (Польша)
Прусский (мир)
Дари (Афганистан)
Пушту (Афганистан)
Португальский (Ангола)
Португальский (Бразилия)
Португальский (Швейцария)
Португальский (Кабо-Верде)
Португальский (Экваториальная Гвинея)
Португальский (Гвинея-Бисау)
Португальский (Люксембург)
Португальский (Макао, ЮАР)
Португальский (Мозамбик)
Португальский (Португалия)
Португальский (Сан-Томе и Принсипи)
Португальский (Восточный Тимор)
Киче (Гватемала)
Кечуа (Боливия)
Кечуа (Эквадор)
Кечуа (Перу)
Ретороманский (Швейцария)
Рунди (Бурунди)
Румынский (Молдова)
Румынский (Румыния)
Ромбо (Танзания)
Русский (Беларусь)
Русский (Кыргызстан)
Русский (Казахстан)
Русский (Молдова)
Русский (Россия)
Русский (Украина)
Киньяруанда (Руанда)
Рва (Танзания)
Санскрит (Индия)
Саха (Россия)
Самбуру (Кения)
Сангу (Танзания)
Синдхи (Пакистан)
Синдхи (деванагари, Индия)
Северносаамский (Финляндия)
Северносаамский (Норвегия)
Северносаамский (Швеция)
Сена (Мозамбик)
Койраборо Сенни (Мали)
Санго (Центральноафриканская Республика)
Тачелхит (Латинский, Марокко)
Тачелхит (Тифинаг, Марокко)
Сингальский (Шри-Ланка)
Словацкий (Словакия)
Словенский (Словения)
южносаамский (Норвегия)
южносаамский (Швеция)
луле-саамский (Норвегия)
луле-саамский (Швеция)
инари-саамский (Финляндия)
сколт-саамский (Финляндия)
Шона (латинский, Зимбабве)
Сомали (Джибути)
Сомали (Эфиопия)
Сомали (Кения)
Сомали (Сомали)
Албанский (Албания)
Албанский (Бывшая Югославская Республика Македония)
Албанский (Косово)
Сербский (кириллица, Босния и Герцеговина)
Сербский (кириллица, Черногория)
Сербский (кириллица, Сербия)
Сербский (кириллица, Косово)
Сербский (латиница, Босния и Герцеговина)
Сербский (латиница, Черногория)
Сербский (латиница, Сербия)
Сербский (латиница, Косово)
Свати (Свазиленд)
Свати (ЮАР)
Саха (Эритрея)
Сесото (Лесото)
Южный Сото (ЮАР)
Шведский (Аландские острова)
Шведский (Финляндия)
Шведский (Швеция)
Суахили (Демократическая Республика Конго)
Суахили (Кения)
Суахили (Танзания)
Суахили (Уганда)
Сирийский (Сирия)
Тамильский (Индия)
Тамильский (Шри-Ланка)
Тамильский (Малайзия)
Тамильский (Сингапур)
Телугу (Индия)
Тесо (Кения)
Тесо (Уганда)
Таджикский (кириллица, Таджикистан)
Тайский (Таиланд)
Тигринья (Эритрея)
Тигринья (Эфиопия)
Тигре (Эритрея)
Туркменский (Туркменистан)
Тсвана (Ботсвана)
Тсвана (ЮАР)
Тонганский (Тонга)
Турецкий (Кипр)
Турецкий (Турция)
Тсонга (ЮАР)
Татарский (Россия)
Тасавак (Нигер)
Среднеатласский тамазигхт (арабский, Марокко)
Тамазигхт (латиница, Алжир)
Среднеатласский тамазигхтский (латинский, Марокко)
Среднеатласский тамазигх (тифинаг, Марокко)
Уйгурский (КНР)
Украинский (Украина)
Урду (Индия)
Урду (Исламская Республика Пакистан)
Узбекский (Персо-арабский, Афганистан)
Узбекский (кириллица, Узбекистан)
Узбекский (латиница, Узбекистан)
Вай (латинский, Либерия)
Вай (Вай, Либерия)
Венда (ЮАР)
Вьетнамский (Вьетнам)
Волапюк (международный)
Вуньо (Танзания)
Валлисский (Швейцария)
Волайта (Эфиопия)
волоф (Сенегал)
Коса (ЮАР)
Сога (Уганда)
Янгбен (Камерун)
Идиш (междунараодный)
Йоруба (Бенин)
Йоруба (Нигерия)
Стандартный марокканский тамазигхтский (Тифинаг, Марокко)
Китайский (упрощенное письмо, КНР)
Китайский (упрощенный хан, Гонконг, САР)
Китайский (упрощенный хан, Макао, САР)
Китайский (традиционное письмо, Гонконг (ОАР))
Китайский (традиционное письмо, Макао (ОАР))
Китайский (упрощенное письмо, Сингапур)
Китайский (традиционное письмо, Тайвань)
Зулу (ЮАР)

но не совсем соответствует и очевидно не совсем сортированный
...
Рейтинг: 0 / 0
17.07.2019, 20:09
| Ответить | Цитировать | Написать  
Получить текущие системные форматы даты и далее строку даты согл. выбранному формату
    #39838460
Дмитрий77
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмитрий77
Участник
Дмитрий77Наиболее близко к "панели управления"
Имелось в виду то, что получается кодом
Код: vbnet
1.
2.
3.
4.
    Dim CIs As CultureInfo() = CultureInfo.GetCultures(CultureTypes.SpecificCultures)
    For Each ci As CultureInfo In CIs
      Debug.Print(ci.DisplayName)
    Next
...
Рейтинг: 0 / 0
17.07.2019, 20:13
| Ответить | Цитировать | Написать  
Получить текущие системные форматы даты и далее строку даты согл. выбранному формату
    #39838462
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
Дмитрий77но не совсем соответствует и очевидно не совсем сортированныйЭто потому что источником данных является не массив строк, а набор записей. Отсортированный по полю Order, например.
...
Рейтинг: 0 / 0
17.07.2019, 20:15
| Ответить | Цитировать | Написать  
Получить текущие системные форматы даты и далее строку даты согл. выбранному формату
    #39838464
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
Который, если надо, можно превратить обратно в массив строк, не теряя сортировки.
...
Рейтинг: 0 / 0
17.07.2019, 20:18
| Ответить | Цитировать | Написать  
Получить текущие системные форматы даты и далее строку даты согл. выбранному формату
    #39838476
Дмитрий77
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмитрий77
Участник
Antonariy,

С сортировкой понятно, он же не на локализованный DisplayName (чего я хочу видеть) опирается при получении набора.
Есть у меня этот класс ужасный .Net-овсий, кот. сортирует. Надо будет вспоминать.

Не совсем ясно, почему я не могу получить набор именно как в панели управления.
Пробовал .InstalledWin32Cultures, но там еще в довесок выводятся всякие инвариантные "ru" "en",
в любом случае не ровно то, т.е. какой нибудь "Арабский (Объединенные Арабские...)" может быть написан как "Арабский (ОАЭ)", а чего-нибудь вообще с гамматической ошибкой "Арабск ая (Катар)".
Или у .Net вообще своя Culture/Date/Time кухня не связанная с "системной", хотя и сильно похожая?
Не, ну понятно что Culture для запущенного процесса/потока он же берет из системной текущей.

Тогда вопрос, надо ли мне чтоб уж точно "как в панели" и какой CultureType таки разумно выбрать ?
(ну не в API же месяц копаться ради этого, надо ж чтоб от .Net хоть какая-то практическая польза была коль на нем пишу).
...
Рейтинг: 0 / 0
17.07.2019, 20:56
| Ответить | Цитировать | Написать  
Получить текущие системные форматы даты и далее строку даты согл. выбранному формату
    #39838481
Дмитрий77
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмитрий77
Участник
Net 2.0 и Net 4.5 вообще разные наборы выводит одним и тем же кодом.
Подозреваю, что проблема в разном использовании
EnumSystemLocalesW //XP
EnumSystemLocalesEx //следует использовать >=Vista, не работает на XP

Чтоб разобраться, надо отсортировать и наверно все-таки родные API enum-ы "прощупать".
И к слову, на XP/2003 набор в окошке в панели упр. несколько иной.
...
Рейтинг: 0 / 0
17.07.2019, 21:48
| Ответить | Цитировать | Написать  
Получить текущие системные форматы даты и далее строку даты согл. выбранному формату
    #39838502
Дмитрий77
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмитрий77
Участник
Дмитрий77надо отсортировать
В Combobox оказывается есть св-во Sorted - не знал, привык с Listview мучаться - одной проблемой меньше.
Но нет свойства Item(i).Tag - это плохо. Сохранять то надо en-US, а не "Английский (США)" -лишний цикл for each по всем "культурам".
...
Рейтинг: 0 / 0
17.07.2019, 23:01
| Ответить | Цитировать | Написать  
Получить текущие системные форматы даты и далее строку даты согл. выбранному формату
    #39838928
Дмитрий77
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмитрий77
Участник
hVosttДмитрий77вряд ли мне нужны здесь "API".

Нужны, если ты привязываешься к окошку, скрин на который кидал.

Да, нужны. Поковырялся и согласился.
Для изначальной постановки без вывода "списка локалей" и закладыванием на "дефолтную текущую" оно как бы можно было забить,
но постановка поменялась в силу неоднозначного понятия "дефолтной текущей" и список надо выводить.
Казалось бы, вся эта кухня в .Net "из коробки", но реально по индуски. Наборы пляшут от OS к OS, и от одной версии .Net к другой (на одном компе/той же OS), вывод DisplayName местами с грамматическими ошибками, что-то лишнее, чего-то не хватает, на Win2003 так вообще местами квадратики вместо иероглифов (если закладываться на .Net наборы). Ни одного набора точно равного тому что в панели управления нигде не увидел. Ощущение, что когда-то было написано под .Net 1.0/Win2000, и с каждой версией .Net они это гавнокодят абы кабы, мешая старые API с новыми.

Короче, поразмялся, написал гибридный код .Net+API, все на API делать не буду, муторно.
Некоторые вещи индусский код делает корректно (при подсунутом API наборе локалей), а именно
1) текущая локаль CultureInfo.CurrentCulture.Name OK.
2) LCID-> локаль New CultureInfo(LCID).Name OK.
3) Получение наборов форматов
Culture.DateTimeFormat.GetAllDateTimePatterns("d"c) //("t"c) ("T"c) OK.
4) Форматирование в строку
[date].ToString(format, New CultureInfo(locale)) -OK

А вот сам набор локалей (как в панели управления) только через API, причем по разному для разных OS
XP/2003: EnumSystemLocales +EnumLocalesProc + LCID_INSTALLED
Виста: EnumSystemLocalesEx + LocaleEnumprocex + LOCALE_WINDOWS
Win7 и выше: EnumSystemLocalesEx + LocaleEnumprocex + LOCALE_SPECIFICDATA

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
  Dim collLocaleDisplay As New Collection 'коллекция локалей (ключ "en-US", значение "English (United States)")
  Dim collLocaleNames As New Collection 'коллекция локалей (ключ "English (United States)", значение "en-US")


  Private Sub ButtonFormatAny_Click(sender As Object, e As EventArgs) Handles ButtonFormatAny.Click
    If sys_WinVista Then
      PopulateLocales_Collection() '>=Vista
    Else
      PopulateLocalesXP_Collection() 'XP/2003
    End If
    PopulateLocales_Combo(collLocaleDisplay, ComboBoxFormat)
  End Sub

  '=================Vista or later==================
  Public Sub PopulateLocales_Collection()
    collLocaleDisplay.Clear() : collLocaleNames.Clear()
    If sys_Win7 Then '!!! >=Win7
      EnumSystemLocalesEx(New LocaleEnumprocex(AddressOf EnumProcEx_Locale), LOCALE_SPECIFICDATA, IntPtr.Zero, IntPtr.Zero)
    Else ' !!! только Виста
      EnumSystemLocalesEx(New LocaleEnumprocex(AddressOf EnumProcEx_Locale), LOCALE_WINDOWS, IntPtr.Zero, IntPtr.Zero)
    End If
  End Sub

  Private Function EnumProcEx_Locale(ByVal Arg1 As IntPtr, ByVal Arg2 As Integer, ByVal Arg3 As IntPtr) As Boolean
    ' Return False to stop the enumeration.

    Dim strLocale As String = Marshal.PtrToStringUni(Arg1)
    Dim strLocaleName As String = GetLocaleInfoEx_My(strLocale, LOCALE_SLANGUAGE)
    If (strLocaleName <> "") AndAlso (collLocaleDisplay.Contains(strLocale) = False) AndAlso (collLocaleNames.Contains(strLocaleName) = False) Then
      collLocaleDisplay.Add(strLocaleName, strLocale)
      collLocaleNames.Add(strLocale, strLocaleName)
    End If

    Return True ' Continue the enumeration (default)
  End Function
  '=================Vista or later==================

  '=================XP/2003==================
  Public Sub PopulateLocalesXP_Collection()
    collLocaleDisplay.Clear() : collLocaleNames.Clear()
    EnumSystemLocales(New EnumLocalesProc(AddressOf EnumProc_Locale), LCID_INSTALLED)
  End Sub

  Private Function EnumProc_Locale(ByVal lpLocaleString As IntPtr) As Boolean
    ' Return False to stop the enumeration.

    Dim dwLocaleHex As String = Marshal.PtrToStringUni(lpLocaleString)
    'we need the last 4 chrs - this is the locale ID in hex
    dwLocaleHex = Strings.Right(dwLocaleHex, 4)
    'convert the string to integer
    Dim dwLocaleDec As Integer = CInt("&H" & dwLocaleHex)

    Dim strLocale As String = New CultureInfo(dwLocaleDec).Name
    Dim strLocaleName As String = GetLocaleInfo_My(dwLocaleDec, LOCALE_SLANGUAGE)
    'Debug.Print(New CultureInfo(dwLocaleDec).Name)
    If (strLocaleName <> "") AndAlso (collLocaleDisplay.Contains(strLocale) = False) Then
      collLocaleDisplay.Add(strLocaleName, strLocale)
      collLocaleNames.Add(strLocale, strLocaleName)
    End If

    Return True ' Continue the enumeration (default)
  End Function
  '=================XP/2003==================

  Private Sub PopulateLocales_Combo(ByRef collLocaleDisplay As Collection, _
   ByRef comboLocale As ComboBox, _
   Optional ByVal sLocaleSelected As String = vbNullString)
    'заполняет ComboBox именами локалей .DisplayName (из уже заполненной перед этим коллекций)
    'в поле .Text в ComboBox выбирается значение Selected при условии что оно задано и соответствует одной из локали в списке
    'в противном случае в поле .Text в ComboBox выбираем текущую локаль или хотя бы первое значение из списка

    comboLocale.Items.Clear()
    For Each sLocale As String In collLocaleDisplay
      comboLocale.Items.Add(sLocale)
    Next
    If (sLocaleSelected <> "") AndAlso collLocaleDisplay.Contains(sLocaleSelected) Then
      comboLocale.Text = collLocaleDisplay(sLocaleSelected) 'ранее выбранное значение
    Else
      sLocaleSelected = CultureInfo.CurrentCulture.Name 'GetUserDefaultLocaleName_My()
      If collLocaleDisplay.Contains(sLocaleSelected) Then
        comboLocale.Text = collLocaleDisplay(sLocaleSelected) 'дефолтная локаль
      Else
        If comboLocale.Items.Count > 0 Then comboLocale.Text = comboLocale.Items(0) 'первое значение
      End If
    End If
  End Sub



 
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
113.
114.
115.
116.
117.
118.
119.
120.
121.
122.
123.
124.
125.
126.
127.
128.
129.
130.
131.
132.
Module ModuleAPI


  '=================Vista or later==================

  Public Const LOCALE_ALL = 0
  Public Const LOCALE_WINDOWS = &H1
  Public Const LOCALE_SUPPLEMENTAL = &H2
  Public Const LOCALE_ALTERNATE_SORTS = &H4
  Public Const LOCALE_REPLACEMENT = &H8
  Public Const LOCALE_NEUTRALDATA = &H10
  Public Const LOCALE_SPECIFICDATA = &H20

  Public Declare Unicode Function EnumSystemLocalesEx Lib "Kernel32.dll" _
   (ByVal lpLocaleEnumProcEx As LocaleEnumprocex, ByVal dwFlags As Integer, _
    ByVal lParam As IntPtr, ByVal lpReserved As IntPtr) As Boolean
  Public Delegate Function LocaleEnumprocex _
   (ByVal Arg1 As IntPtr, ByVal Arg2 As Integer, ByVal Arg3 As IntPtr) As Boolean

  Public Const LOCALE_SLANGUAGE As Integer = &H2    'localized name of lang (.DisplayName)

  Public Declare Unicode Function GetLocaleInfoEx Lib "kernel32" _
   (ByVal lpLocaleName As String, ByVal LCType As Integer, _
   ByVal lpLCData As String, ByVal cchData As Integer) As Integer

  Public Function GetLocaleInfoEx_My(ByVal lpLocaleName As String, _
   ByVal dwLCType As Integer) As String

    GetLocaleInfoEx_My = ""
    Dim sReturn As String = ""
    Dim nSize As Integer

    'call the function passing the Locale type variable to retrieve the required size of
    'the string buffer needed
    nSize = GetLocaleInfoEx(lpLocaleName, dwLCType, sReturn, Strings.Len(sReturn))

    If nSize > 0 Then 'if successful..
      'pad a buffer with spaces
      sReturn = Space(nSize)
      'and call again passing the buffer
      nSize = GetLocaleInfoEx(lpLocaleName, dwLCType, sReturn, Strings.Len(sReturn))

      'if successful (nSize > 0) nSize holds the size of the string including the terminating null
      If nSize > 0 Then GetLocaleInfoEx_My = Strings.Left(sReturn, nSize - 1)
    End If
  End Function

  Public Const LOCALE_NAME_MAX_LENGTH = 85

  Public Declare Unicode Function GetUserDefaultLocaleName Lib "kernel32" _
   (ByVal lpLocaleName As String, ByVal cchLocaleName As Integer) As Integer

  Public Function GetUserDefaultLocaleName_My() As String

    GetUserDefaultLocaleName_My = ""
    Dim sReturn As String = ""
    Dim nSize As Integer

    sReturn = Space(LOCALE_NAME_MAX_LENGTH) 'pad a buffer with spaces
    nSize = GetUserDefaultLocaleName(sReturn, Strings.Len(sReturn))

    'if successful (nSize > 0) nSize holds the size of the string including the terminating null
    If nSize > 0 Then GetUserDefaultLocaleName_My = Strings.Left(sReturn, nSize - 1)
  End Function

  Public Const DATE_SHORTDATE As Integer = &H1
  Public Const DATE_LONGDATE As Integer = &H2

  Public Declare Unicode Function EnumDateFormatsExEx Lib "Kernel32.dll" _
   (ByVal lpDateFmtEnumProcExEx As EnumDateFormatsProcExEx, ByVal lpLocaleName As String, _
    ByVal dwFlags As Integer, ByVal lParam As IntPtr) As Boolean
  Public Delegate Function EnumDateFormatsProcExEx _
   (ByVal lpDateFormatString As IntPtr, ByVal CalendarID As Integer, ByVal lParam As IntPtr) As Boolean

  ' 0 для ShortTime
  Public Const TIME_NOSECONDS As Integer = &H2 '>=Win7 LongTime

  Public Declare Unicode Function EnumTimeFormatsEx Lib "Kernel32.dll" _
   (ByVal lpTimeFmtEnumProcEx As EnumTimeFormatsProcEx, ByVal lpLocaleName As String, _
    ByVal dwFlags As Integer, ByVal lParam As IntPtr) As Boolean
  Public Delegate Function EnumTimeFormatsProcEx _
   (ByVal lpTimeFormatString As IntPtr, ByVal lParam As IntPtr) As Boolean
  '=================Vista or later==================

  '=================XP/2003==================
  Public Const LCID_INSTALLED As Integer = &H1  'installed locale ids
  Public Const LCID_SUPPORTED As Integer = &H2  'supported locale ids
  Public Const LCID_ALTERNATE_SORTS As Integer = &H4  'alternate sort locale ids

  Public Declare Unicode Function EnumSystemLocales Lib "Kernel32.dll" Alias _
   "EnumSystemLocalesW" (ByVal lpLocaleEnumProc As EnumLocalesProc, ByVal dwFlags As Integer) As Boolean
  Public Delegate Function EnumLocalesProc _
   (ByVal lpLocaleString As IntPtr) As Boolean

  Public Const LOCALE_ILANGUAGE As Integer = &H1    'language id
  Public Const LOCALE_SENGLANGUAGE As Integer = &H1001 'English name of lang
  Public Const LOCALE_SISO639LANGNAME As Integer = &H59
  Public Const LOCALE_SISO3166CTRYNAME As Integer = &H5A   'ISO abbreviated country name

  Public Declare Unicode Function GetLocaleInfo Lib "kernel32" Alias "GetLocaleInfoW" _
   (ByVal Locale As Integer, ByVal LCType As Integer, _
   ByVal lpLCData As String, ByVal cchData As Integer) As Integer

  Public Function GetLocaleInfo_My(ByVal dwLocaleID As Integer, _
                                    ByVal dwLCType As Integer) As String

    GetLocaleInfo_My = ""
    Dim sReturn As String = ""
    Dim nSize As Integer

    'call the function passing the Locale type variable to retrieve the required size of
    'the string buffer needed
    nSize = GetLocaleInfo(dwLocaleID, dwLCType, sReturn, Strings.Len(sReturn))

    'if successful..
    If nSize > 0 Then
      'pad a buffer with spaces
      sReturn = Space(nSize)

      'and call again passing the buffer
      nSize = GetLocaleInfo(dwLocaleID, dwLCType, sReturn, Strings.Len(sReturn))

      'if successful (nSize > 0)
      If nSize > 0 Then
        'nSize holds the size of the string including the terminating null
        GetLocaleInfo_My = Strings.Left(sReturn, nSize - 1)
      End If
    End If

  End Function
  '=================XP/2003==================
End Module

...
Рейтинг: 0 / 0
18.07.2019, 19:30
| Ответить | Цитировать | Написать  
Получить текущие системные форматы даты и далее строку даты согл. выбранному формату
    #39838987
Фотография hVostt
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
hVostt
Участник
Дмитрий77,

тем временем, те же кодировки в .NET Core поставляются уже отдельным пакетом ))
...
Рейтинг: 0 / 0
18.07.2019, 23:32
| Ответить | Цитировать | Написать  
24 сообщений из 24, страница 1 из 1
Форумы / WinForms, .Net Framework [игнор отключен] [закрыт для гостей] / Получить текущие системные форматы даты и далее строку даты согл. выбранному формату
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=20&fpage=18&tid=1398873]:
 0ms
get settings:
 11ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 99ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 79ms
get tp. blocked users:
 2ms
others: 252ms
total:  481ms
созд. / загр.: 481ms
x
x
Закрыть


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