13

解決


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

13バイト分の文字を表記をさせたいのですが
かなり悩んでおります。

Goods_name には、
1・"漢字エリア難問今週のお題バナー"
2・"ウエディング結婚式幸福今週のお題バナー"
の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)

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


劇団しゃらら  2005-09-27 23:52:16  No: 125763

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


通り巣鴨  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

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


※返信する前に利用規約をご確認ください。




  


  このエントリーをはてなブックマークに追加