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

Новые блоги и статьи Все статьи Все блоги /
Транслитерация текста с кириллицы на латиницу (вариант №2) Maks 13.11.2026 Обновленная версия ранее созданной обработки. Добавлено: - Проверка исходного текста на кириллицу, через обращение к стандартной функции "ТолькоКириллицаВСтроке" из общего модуля. . .	Часы с термометром и праздничным календарем yariko 12.11.2026 Сегодня мы рассмотрим как можно сделать отличные многофункциональные часы. Итак, поставим конкретную задачу: разработать часы с календарем, двумя термодатчиками, выводом поздравительных сообщений. . .	Транслитерация текста с кириллицы на латиницу (вариант №1) Maks 11.11.2026 Решил облегчить жизнь себе и коллегам админам при создании электронных почтовых ящиков для пользователей, в результате написал обработку "Транслитерация текста" с кириллицы на латиницу, а в ней. . .	Книги по геймдизайну, левел-дизайну, игровым механикам и проектированию игрового опыта 8Observer8 08.11.2026 Содержание блога \| English Version 1. 2003 - 06 - Designing Virtual Worlds (1st Edition) Автор: Richard A. Bartle \| Объем: 768 стр. Ссылки: Amazon . . .
Родители токсичные абьюзеры по отношению к своим детям ругают их оскорбляют не любят zorxor 08.11.2026 Жить в атмосфере постоянных оскорблений, критики и холодности со стороны родителей — это тяжелое и болезненное испытание, которое оставляет глубокие эмоциональные раны. Токсичное и абьюзивное. . .	Как только я захожу к себе в свою комнату я сразу же с себя снимаю свои трусы. Ответ от Джемени ИИ. zorxor 08.11.2026 Джемени, как только я захожу к себе в свою комнату я сразу же с себя снимаю свои трусы. Многие люди, возвращаясь домой, сразу переодеваются в максимально свободную одежду или вовсе предпочитают. . .	Паттерн очереди действий/команд (Action / Command Queue). Система очереди действий и кат-сцен с SDL3 Callbacks, cglm и OpenGL 8Observer8 07.11.2026 Содержание блога \| English Version Руководство для начинающих по реализации паттерна очереди действий/ команд (Action / Command Queue) на C++ (C++20) с использованием официального SDL3 Callbacks. . .	Проверка полного ФИО в типовом справочнике Maks 07.11.2026 Решение реализовано в конфигурации КА2, на примере справочника "КонтактныеЛицаПартнеров". Задача: Запрет инициалов. Не допускаеть использование сокращений вида "И. И. ", "И. И. ", "И И" и. . .

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

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

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

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

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

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

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

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

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