掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
VB6のStrConv関数について (ID：113683)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
StrConvでユニコードデータを得たいのですが 詰まっております。 例） Dim strData As String strData = StrConv (StrConv ("ドキュメント" ,vbUnicode) ,vbFromUnicode) 実行結果 strData は "ドキ???ト"となってしまいます。 以下の関数で得たデータをテキストに保存し、バイナリエディタ で覗いてみてもよくわからなくて困っています。 Private Function Uni(strTest As String) As String Dim ss As String Dim bytArray() As Byte Dim intcount As Integer bytArray = strTest For intcount = 0 To UBound(bytArray) ss = ss & Chr(bytArray(intcount)) Next Uni = ss Dim lngFileNo As Long lngFileNo = FreeFile Open "C:\Documents and Settings\Owner\デスクトップ\Test.txt" For Output As #lngFileNo Print #lngFileNo, ss Close #lngFileNo End Function どうにか"ドキュメント"の文字列を（加工して？） ユニコードデータに変換して、再度シフトJISに変換しても "ドキュメント"となるような方法がありますでしょうか？ ＶＢ６ WindowsＸＰです。よろしくお願いします。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.