本当のString.StrCnv(str, wbWide)はこれだ

String.StrConv(str, wbWide)

これに疑問を持つ人なんています？
まさかWindows7から文字化けする文字があるなんて思ってもみなかったよね。

Public Function StrConvWide(str As String) As String
    
    StrConvWide = ""
    
    Dim i As Long
    Dim strTemp As String
    For i = 1 To Len(str)
        ' 1文字抜き出す
        strTemp = Strings.Mid$(str, i, 1)
        
        ' Windows7以降文字化けする文字列は手動で変換する
        If Strings.StrComp("゛", strTemp) = 0 Or Strings.StrComp("ﾞ", strTemp) = 0 Then
            StrConvWide = StrConvWide & "゛"
        ElseIf Strings.StrComp("゜", strTemp) = 0 Or Strings.StrComp("ﾟ", strTemp) = 0 Then
            StrConvWide = StrConvWide & "゜"
        Else
            StrConvWide = StrConvWide & Strings.StrConv(strTemp, vbWide)
        End If
    Next i
End Function

他にもニッチなIT関連要素をまとめていますので、よければ一覧記事もご覧ください。

みにましあ

 

https://minimashia.net/it-tips

2019.12.04

IT tips

ITカテゴリーのページじゃ探しにくい方向けにまとめた記事です。ニッチな情報ばかりなので、需要あるのか疑問だわぁ…。Windowsスリープ中のWindowsパソコンでもUSB充電する方法Windows10（1909）のダウンロードフォルダの表示をもとに戻す自宅勤務でネットワーク設定の切り替えをする 自宅勤務でスピーカー設定の切り替えをするWindows11対応端末かどうか調べるWindows10の大型Update（21H1）に失敗する場合の対処法いまさらWindows7を用意して.NET Framework4.6.2をインストールしてみたWindows11を触ってみた感想@2022年4月同じ...