13バイト分の文字を表記するには？

解決

劇団しゃらら 2005-09-28 02:31:19 No: 125772

下のほうでタイトル「１３」と入力してしまったものです。
余計な掲示、申し訳ございません。。

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)

１の場合は"漢字エリア難問・"
２の場合は"ウエディング結婚"
となり、１の"・"が無駄に入ってきます。。
これをなんとかして取りたい、又は入らないようにしたいのですが、
どうのような処理をしたらよいのでしょうか？
よろしくお願いいたします。

特攻隊長まるるう 2005-09-28 05:17:40 No: 125773

この手の問題は誰でも考えるからＷＥＢ検索すればサンプル見つかります。
キーワードは『全角半角判断ＶＢ』あたり？
http://madia.world.coocan.jp/vb/vb_bbs/200311_03110098.html
上手くできないなら１文字ずつ切り取って判断する事です。
花ちゃんさんのサイトにレベルの高いサンプルありますが、
そのリンクも貼られてますね↑のスレッド

劇団しゃらら 2005-09-28 18:35:10 No: 125774

特攻隊長まるるうさん、ありがとうございます。。

過去スレもきちんと検索してから質問したほうがいいですね＾＾；

名無し 2005-09-28 20:52:53 No: 125775

＞過去スレもきちんと検索してから質問したほうがいいですね＾＾；

してなかったのか…