Dinesh Kumar Dora Ответов: 1

Помогите мне преобразовать этот фрагмент кода VB6 в vb.net-да.

Здравствуйте друзья я недавно преобразовал свой проект VB6 в VB.net-да.
Я получаю следующие ошибки в преобразованном виде VB.net проект:

'UPGRADE_ISSUE: Константа vbUnicode не была обновлена. Нажмите для получения дополнительной информации: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="55B59875-9A95-4B71-9D6A-7C294BF7139D"'
'UPGRADE_ISSUE: функция InputB не поддерживается. Нажмите для получения дополнительной информации: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="367764E5-F3F8-4E43-AC3E-7FE0B5E074E2"'

Ниже приведен фрагмент кода, который выдает ошибку:

 Dim EncryptedFilePath As String

 Dim EncryptedFileNumber As Integer

 Dim EncryptedText As String
EncryptedText = StrConv(InputB(LOF(EncryptedFileNumber), EncryptedFileNumber), vbUnicode)


Пожалуйста, исправьте этот фрагмент кода.

Что я уже пробовал:

я попробовал это сделать, но он возвращает какой-то другой результат. Я новичок в VB6 и VB.net-пожалуйста, помогите.

' The input String.
Dim value As String = LOF(EncryptedFileNumber)

' Convert String to Byte array.
Dim array() As Byte = System.Text.Encoding.ASCII.GetBytes(value)

EncryptedText = System.Text.Encoding.Default.GetString(array)

1 Ответов

Рейтинг:
10

Richard Deeming

Этот код считывает содержимое файла, который вы ранее открыли. Вероятно, у вас будет предыдущая строка, которая выглядит примерно так:

Open EncryptedFilePath For Input As #EncryptedFileNumber

Файл IO намного проще в .NET - система.Пространство имен ввода-вывода[^] дает вам все необходимые инструменты.

Замените его Open / InputB / Close линии с:
Dim EncryptedText As String = System.IO.File.ReadAllText(EncryptedFilePath)

Основы файлового ввода-вывода .NET Framework и файловой системы (Visual Basic) | Microsoft Docs[^]

Maciej Los

5ed!