Share via

Visual Basicプログラミングについてお尋ねします。

裕史 西川 1 Reputation point
2022-01-10T11:03:58.637+00:00

VBからVB.Netに移行中に下記のロジックで手こずっています。
お知恵を拝借したく投稿致しました。
CSVファイルの全角文字を読み込んでいます。
元々のVBロジックがVB.Netで使用できないため、
Function vStrNCpy(dst As String, src As String, cnt As Integer)
Dim temp As String
  temp = LeftB(StrConv(src, vbFromUnicode), cnt) '' S-JIS 変換
  dst = StrConv(temp, vbUnicode) '' UNICODE 変換
End Function

VB.Netの変換をネットの投稿を参考に変更してみました。
Dim str As String
Dim moji_byte As Byte()

Moji_Byte = System.Text.Encoding.GetEncoding("Shift_Jis").GetBytes(str)
dst =System.Text.Encoding.GetEncoding("Shift_Jis").GetString(Moji_Byte)
に代えて、デバッグで表示させてたところ、文字化けになります。

よろしくお願い致します。

Developer technologies | VB

Your answer

Answers can be marked as 'Accepted' by the question author and 'Recommended' by moderators, which helps users know the answer solved the author's problem.