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

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11680&d=1772460536 Одним из. . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .
SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .

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

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

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

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

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

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

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

@HackerVlad Испарился 1741 / 637 / 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 1387 / 843 / 92 Регистрация: 08.02.2017 Сообщений: 3,593 Записей в блоге: 1
	27.03.2024, 16:50
	Alexnet84, чувак, если ты с 84 ты не должен задавать таких вопросов, ты ведь не зумер, ну.. )) 1

@HackerVlad Испарился 1741 / 637 / 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