13 (ID:125762)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 13バイト分の文字を表記をさせたいのですが かなり悩んでおります。 Goods_name には、 １・"漢字エリア難問今週のお題バナー" ２・"ウエディング結婚式幸福今週のお題バナー" の2種類の文字で確認 strNameSP1 = Goods_name strNameSP1 = StrConv(strNameSP1, vbNarrow) strNameSP1 = StrConv(strNameSP1, vbFromUnicode) strNameSP1 = MidB(strNameSP1, 1, 13) iTempCnt1 = LenB(strNameSP1) strTemp = StrConv(strNameSP1, vbUnicode) iTempCnt2 = Len(strTemp) If Not ((iTempCnt1 = iTempCnt2 * 2) Or (iTempCnt1 = iTempCnt2)) Then strNameSP1 = MidB(strNameSP1, 1, 12) End If strNameSP1 = StrConv(strNameSP1, vbUnicode) １の場合は"漢字エリア難問・" ２の場合は"ウエディング結婚" となり、１の"・"が無駄に入ってきます。。 これをなんとかして取りたい、又は入らないようにしたいのですが、 どうのような処理をしたらよいのでしょうか？ よろしくお願いいたします。