13

解決

---

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)

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

編集 削除

---

すいません、題名入れ忘れました・・・
「１３バイトでの文字を出したい」というタイトル

編集 削除

---

質問内容が不足してませんか？
何をしたいかが、プログラムから解からないです。
プログラムにコメント入れてみてください。

ただ単に13バイト抜き出したいだけですか？
プログラムを見る限り、その前に条件がありそうですが。

編集 削除

---

こっちで続けたいもよう。
http://madia.world.coocan.jp/cgi-bin/VBBBS2/wwwlng.cgi?print+200509/05090146.txt
できれば管理人さんに削除依頼メール出して欲しいけどレスつくとなぁ…。

編集 削除

---

削除より解決させたほうが早いかも・・

編集 削除

---

名前

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

本文

←解決時は質問者本人がここをチェックしてください。