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

Новые блоги и статьи Все статьи Все блоги /
Оказывается, Unreal Engine позволяет качество на порядки выше, чем было в Lineedge Etyuhibosecyu 05.07.2026 Жаль, конечно, что я не узнал об этом, пока Lineedge существовала, а то бы Noname2331 написал, что волки превращаются в пиксельную кашу, а я бы его попросил скачать какую-нибудь бриллиантовую или Pro. . .	Doom для терминала без стрельбы и монстров. 3D Raycasting на ascii. dcc0 05.07.2026 Попросил нейронную сеть deepai. org написать рейкастинг 3D с библиотекой ncurses для Linux. Чтобы можно было ходить на стрелочки. Чтобы стены были отрисованы символами. Справилась. Первый вариант. . .	Установка статуса документа по условию Maks 05.07.2026 Алгоритм из решения ниже реализован на нетиповом документе "НарядПутевка" разработанного в КА2. Задача: в табличной части "Материалы" документа при записи автоматически устанавливать статус. . .	Сезонность и суточность закисления почв anaschu 04.07.2026 200 часов это все равно моловато. Есть ситуации, но нестандартные, когда смена происходит за 5 лет. Но обычно это 50 лет и более. Наверное, закисление почвы происходит сезонно в средней. . .
В чем ценность человеческого опыта в глобальном смысле? kumehtar 03.07.2026 Возможно, ценность человека не в том, что он однажды достигает мудрости, а в том, что он становится носителем карты пути. Он знает не только истину, но и последовательность внутренних изменений,. . .	интеграция AnyLogic с самописным REST API и переход на Odoo anaschu 03.07.2026 Успешная интеграция AnyLogic с самописным REST API и переход на промышленную Odoo WMS Сегодня проделал огромный путь от простой симуляции физических процессов до построения полноценной. . .	Поиск всех путей на ориентированном графе. Linux dcc0 02.07.2026 Переработка старого кода из моей статьи. Через несколько переработок от PHP кода к C89 (надеюсь, 89). Но довольно запутанно получилось. Код для Linux. Но если убрать time и то, что с ним. . .	Сам себя обучал rest api anaschu 02.07.2026 Педагогический лайфхак: Почему чистый REST API для ученика намного круче, чем готовые библиотеки Когда мы отказались от капризного JAR-файла AnyLogic и переписали код на стандартный HttpClient,. . .

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

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

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

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

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

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

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

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

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