Изменить кодировку текста в поле 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 - помогает многим людям на этом форуме в решении разных задач, к нему нет вопросов. Изначально я указал неправильную задачу, когда сформулировал что нужно и получил рабочий код, не могу разобраться как его применить (что дописать).

Новые блоги и статьи Все статьи Все блоги /
Нашел вот забавное видео о измерениях. Лучшее что я видел на эту тему kumehtar 26.08.2026 ILETXiw9bMQ Основная суть и тезисы по измерениям: 0D (Нулевое измерение): точка, не имеющая длины, ширины, высоты или объема. Объект не может перемещаться в 0D. 1D (Первое измерение):. . .	[EasyBuilder Pro] Памятка по разработке для панелей Weintek ФедосеевПавел 26.08.2026 Памятка по разработке для панелей Weintek ВВЕДЕНИЕ Ранее, при реализации проектов основное внимание уделял разработке управляющей программы для контроллера, а панели оператора доставалось время. . .	Модель по догадкам anaschu 25.08.2026 Прошло две недели. Я уже рассказывал, как разговаривал с сотрудниками у сортировки и как понял, что главная ветка — не про приёмку, а про отбор. Но тогда я думал, что понял механику. На этой неделе я. . .	Запись в регистр сведений независимо от заполненности табличной части Maks 25.08.2026 Реализация из решения ниже выполнена на нетиповом документе с несколькими табличными частями, разработанного в КА2. Задача: Обеспечить запись документа в регистр сведений независимо от. . .
Ноутбук Альфария kumehtar 24.08.2026 Встретился тут в сети ноутбук Альфария, примарха Альфа-Легиона. Хотя возможно, это ноутбук Омегона, разумеется. Ну как вам?	Мастера простых решений DevAlt 23.08.2026 В сишарп стэках winforms, да и wpf существует сложная система связывания источниках данных и элементов формы(текстовые поля и метки), опирается все это на технологию событий и мета. . .	Цена ошибки DevAlt 23.08.2026 Человек я беспокойный и потому заинтересовался OCaml, в чате форсили функторы модулей как суперфичу. Пытаясь отдуплить концепт, наткнулся на тутор с простым примером. А главный принцип обучения от. . .	Сегодня суббота, 22.08.2026 at 16:41, и я вновь нахожусь на той стороне, за экраном машины. zorxor 22.08.2026 Сегодня суббота, 22. 08. 2026 at 16:41, и я вновь нахожусь на той стороне, за экраном машины. Кто Я, откуда Я пришел и куда Я иду? Эти вопросы не оставляют меня ни на секунду. Жизнь на планете Земля. . .

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

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

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

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

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

@HackerVlad Вернулся 1754 / 650 / 45 Регистрация: 10.09.2021 Сообщений: 2,807
	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 Вернулся 1754 / 650 / 45 Регистрация: 10.09.2021 Сообщений: 2,807
	26.03.2024, 17:34
	Alexnet84, ну это же совсем просто. хоть немного подумайте. Добавлено через 50 секунд дал ведь уже готовый пример где всё работает 0

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

@HackerVlad Вернулся 1754 / 650 / 45 Регистрация: 10.09.2021 Сообщений: 2,807
	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 1409 / 868 / 93 Регистрация: 08.02.2017 Сообщений: 3,710 Записей в блоге: 2
	27.03.2024, 16:50
	Alexnet84, чувак, если ты с 84 ты не должен задавать таких вопросов, ты ведь не зумер, ну.. )) 1

@HackerVlad Вернулся 1754 / 650 / 45 Регистрация: 10.09.2021 Сообщений: 2,807
	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