Изменить кодировку текста в поле Text1 на VB6

@Alexnet84 · Регистрация: 27.02.2023

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

Нужен код, при нажатии на кнопку Command1 (UTF-8) или Command2 (Win-1251)
меняется кодировка текста в поле Text1.

[Пример формы]

@HackerVlad · 26.03.2024, 17:09

testuser2, хотя вот эта строчка кода

Visual Basic
1
strTXT = CreateObject("WScript.Shell").Exec("powershell.exe dir").StdOut.ReadAll()

получает UTF16 изначально наверное

@testuser2 · 26.03.2024, 17:10

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

UTF16

а что за Utf16 - это Utf8 преобразованная к 2байтам?

@HackerVlad · 26.03.2024, 17:15

testuser2, строки в VB6 хранятся в UTF16

Добавлено через 59 секунд

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

Utf8

при чём тут UTF8 вообще? Alexnet84 изначально ввёл всех в заблуждение что ему надо якобы преобразование UTF8...

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

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

а что за Utf16 - это Utf8 преобразованная к 2байтам?

Utf16 это не Utf8)))))))))))) насмешил)))))))))) но Utf16 это на каждый символ два байта это да.

Добавлено через 34 секунды
а Utf8 это не на каждый символ два байта, а только на не английские символы.

@testuser2 · 26.03.2024, 17:19

Короче

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

получает UTF16 изначально наверное

В интернет-декодреде расшифровалась нормально из CP1251 в CP866

Добавлено через 2 минуты
Utf16 это Unicode он же Windows-1251?

@HackerVlad · 26.03.2024, 17:19

testuser2, с W функцией у меня вообще не получилось ничего кстати

@testuser2 · 26.03.2024, 17:20

Йа, кстати, в кодировки тоже немного умею )

@HackerVlad · 26.03.2024, 17:21

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

Utf16 это Unicode он же Windows-1251

Да, Utf16 это Unicode, но не Windows-1251. Windows-1251 - это ANSI.

@Alexnet84 · 26.03.2024, 17:23 **[ТС]**

HackerVlad, согласен что не разобрался и ввёл в заблуждение, указал неправильные кодировки для для преобразования текста из PowerShell

@HackerVlad · 26.03.2024, 17:24

Alexnet84, ну теперь-то у вас всё работает?

@Alexnet84 · 26.03.2024, 17:31 **[ТС]**

HackerVlad,

Я применил эту строчку:

Private Declare Function OemToChar Lib "user32.dll" Alias "OemToCharA" (ByVal lpszScr As String, ByVal lpszDst As String) As Long
--------------

Private Sub Command1_Click()
Text2.Text = CreateObject("WScript.Shell").Exec("powe rshell.exe " & Text1.Text).StdOut.ReadAll()
End Sub

В русский язык не преобразует.

@HackerVlad · 26.03.2024, 17:34

Alexnet84, ну это же совсем просто. хоть немного подумайте.

Добавлено через 50 секунд
дал ведь уже готовый пример где всё работает

@Alexnet84 · 26.03.2024, 17:52 **[ТС]**

HackerVlad,

Visual Basic
1
Private Declare Function OemToChar Lib "user32.dll" Alias "OemToCharA" (ByVal lpszScr As String, ByVal lpszDst As String) As Long

--------------

Visual Basic
1
2
3
4
5
Private Sub Command1_Click()
Dim OemToCharA As String
OemToCharA = text2
text2.Text = CreateObject("WScript.Shell").Exec("powershell.exe " & Text1.Text).StdOut.ReadAll()
End Sub

дописал, не работает

@testuser2 · 26.03.2024, 18:12

Alexnet84, в настройках текстбокса, выберите лучше шрифт "Consolas" или подобный, тчобы вывод PoSh был с ровной табуляцией

@HackerVlad · 26.03.2024, 18:30

Alexnet84, вам надо использовать функцию OemToChar

Добавлено через 1 минуту
Alexnet84, я же дал готовый пример где всё работает

@Alexnet84 · 27.03.2024, 10:22 **[ТС]**

HackerVlad, ты имеешь ввиду, дописать функцию OemToChar:

Private Sub Command1_Click()
Dim OemToChar As String
OemToChar = text2
text2.Text = CreateObject("WScript.Shell").Exec("powe rshell.exe " & Text1.Text).StdOut.ReadAll()
End Sub

@HackerVlad · 27.03.2024, 16:38

Alexnet84, вы что совсем не умеете программировать что ли? вы хотите чтобы всё за вас делали что ли?

Добавлено через 39 минут
Я же дал рабочий код:

Visual Basic
1
2
3
str = Space$(Len(strTXT))
    OemToChar strTXT, str
    Text1.Text = str ' ANSI

@testuser2 · 27.03.2024, 16:50

Alexnet84, чувак, если ты с 84 ты не должен задавать таких вопросов, ты ведь не зумер, ну.. ))

@HackerVlad · 27.03.2024, 17:33

testuser2, плюсую, даже школьники шарят гораздо лучше

Добавлено через 1 минуту
если знаний в программировании совсем нет то платите деньги тому кто сделает это за вас что я еще тут скажу

SergioJek · 27.03.2024, 22:20

Не по теме:

А кто то так заступался за кого то?
HackerVlad, от самого себя не противно?

@Alexnet84 · 28.03.2024, 14:08 **[ТС]**

SergioJek,
HackerVlad - помогает многим людям на этом форуме в решении разных задач, к нему нет вопросов. Изначально я указал неправильную задачу, когда сформулировал что нужно и получил рабочий код, не могу разобраться как его применить (что дописать).

Новые блоги и статьи Все статьи Все блоги /
Валидация и контроль данных табличной части документа перед записью Maks 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .	Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .
Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .	Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .

@Alexnet84 62 / 5 / 0 Регистрация: 27.02.2023 Сообщений: 128

	Изменить кодировку текста в поле Text1 на VB6 20.03.2024, 10:00. Показов 4656. Ответов 63 Метки нет (Все метки) Нужен код, при нажатии на кнопку Command1 (UTF-8) или Command2 (Win-1251) меняется кодировка текста в поле Text1. [Пример формы] Миниатюры 0

@HackerVlad Испарился 1742 / 638 / 45 Регистрация: 10.09.2021 Сообщений: 2,769
	26.03.2024, 17:19
	testuser2, с W функцией у меня вообще не получилось ничего кстати 0

@testuser2 1391 / 848 / 92 Регистрация: 08.02.2017 Сообщений: 3,620 Записей в блоге: 2
	26.03.2024, 17:20
	Йа, кстати, в кодировки тоже немного умею ) 1

@Alexnet84 62 / 5 / 0 Регистрация: 27.02.2023 Сообщений: 128
	26.03.2024, 17:23 [ТС]
	HackerVlad, согласен что не разобрался и ввёл в заблуждение, указал неправильные кодировки для для преобразования текста из PowerShell 0

@HackerVlad Испарился 1742 / 638 / 45 Регистрация: 10.09.2021 Сообщений: 2,769
	26.03.2024, 17:24
	Alexnet84, ну теперь-то у вас всё работает? 0

@Alexnet84 62 / 5 / 0 Регистрация: 27.02.2023 Сообщений: 128
	26.03.2024, 17:31 [ТС]
	HackerVlad, Я применил эту строчку: Private Declare Function OemToChar Lib "user32.dll" Alias "OemToCharA" (ByVal lpszScr As String, ByVal lpszDst As String) As Long -------------- Private Sub Command1_Click() Text2.Text = CreateObject("WScript.Shell").Exec("powe rshell.exe " & Text1.Text).StdOut.ReadAll() End Sub В русский язык не преобразует. Миниатюры 0

@HackerVlad Испарился 1742 / 638 / 45 Регистрация: 10.09.2021 Сообщений: 2,769
	26.03.2024, 17:34
	Alexnet84, ну это же совсем просто. хоть немного подумайте. Добавлено через 50 секунд дал ведь уже готовый пример где всё работает 0

@testuser2 1391 / 848 / 92 Регистрация: 08.02.2017 Сообщений: 3,620 Записей в блоге: 2
	26.03.2024, 18:12
	Alexnet84, в настройках текстбокса, выберите лучше шрифт "Consolas" или подобный, тчобы вывод PoSh был с ровной табуляцией 0

@HackerVlad Испарился 1742 / 638 / 45 Регистрация: 10.09.2021 Сообщений: 2,769
	26.03.2024, 18:30
	Alexnet84, вам надо использовать функцию OemToChar Добавлено через 1 минуту Alexnet84, я же дал готовый пример где всё работает 0

@Alexnet84 62 / 5 / 0 Регистрация: 27.02.2023 Сообщений: 128
	27.03.2024, 10:22 [ТС]
	HackerVlad, ты имеешь ввиду, дописать функцию OemToChar: Private Sub Command1_Click() Dim OemToChar As String OemToChar = text2 text2.Text = CreateObject("WScript.Shell").Exec("powe rshell.exe " & Text1.Text).StdOut.ReadAll() End Sub 0

@testuser2 1391 / 848 / 92 Регистрация: 08.02.2017 Сообщений: 3,620 Записей в блоге: 2
	27.03.2024, 16:50
	Alexnet84, чувак, если ты с 84 ты не должен задавать таких вопросов, ты ведь не зумер, ну.. )) 1

@HackerVlad Испарился 1742 / 638 / 45 Регистрация: 10.09.2021 Сообщений: 2,769
	27.03.2024, 17:33
	testuser2, плюсую, даже школьники шарят гораздо лучше Добавлено через 1 минуту если знаний в программировании совсем нет то платите деньги тому кто сделает это за вас что я еще тут скажу 0

SergioJek
	27.03.2024, 22:20
	Не по теме: А кто то так заступался за кого то? HackerVlad, от самого себя не противно? 0

@Alexnet84 62 / 5 / 0 Регистрация: 27.02.2023 Сообщений: 128
	28.03.2024, 14:08 [ТС]
	SergioJek, HackerVlad - помогает многим людям на этом форуме в решении разных задач, к нему нет вопросов. Изначально я указал неправильную задачу, когда сформулировал что нужно и получил рабочий код, не могу разобраться как его применить (что дописать). 1