13

解決

劇団しゃらら 2005-09-27 23:50:13 No: 125762

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-27 23:52:16 No: 125763

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

通り巣鴨 2005-09-28 02:33:04 No: 125764

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

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

む 2005-09-28 02:40:19 No: 125765

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

解決屋 2005-10-11 22:12:15 No: 125766

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