出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
倍角、半角混在時の文字数チェック 　 ひでさん [2002/03/18 23:23:14] [1888]
　 Re:倍角、半角混在時の文字数チェック 　 YasNet（管理人）さん [2002/03/18 23:41:39] [1889]
　 　 無題 　 ひでさん [2002/03/19 11:24:33] [1893]
　 　 ありがとです。　ちなみに↑はごめんなさい 　 ひでさん [2002/03/19 11:30:41] [1894]
[1888] 倍角、半角混在時の文字数チェック
投稿者：ひでさん 2002/03/18 23:23:14
はじめまして。VBScriptはほとんど素人ですっとこどっこいの質問かも知れませんが。。。

Form（TextArea）に入力された文字数のチェックを行いたいのですが、
Lenb関数が言うこと聞いてくれません。VBでいうとこのStrConvも標準では使用できないみたいですし。。。みなさんはどのように処理されてます？
教えてください。お願いします
[1889] Re:倍角、半角混在時の文字数チェック
投稿者：YasNet（管理人）さん 2002/03/18 23:41:39
こんにちは　ＹａｓＮｅｔです。

> Form（TextArea）に入力された文字数のチェックを行いたいのですが、
> Lenb関数が言うこと聞いてくれません。VBでいうとこのStrConvも標準では使用できないみたいですし。。。みなさんはどのように処理されてます？
ＬｅｎＢってバイナリのデータを扱う時に使いますので期待通りの値は返ってきません。

ソフトウエア集のＧＩＦカウンタではＬｅｎＢを使ってます。

で、本題です。
多分ＬｅｎＢを使うって事は文字数ではなくて
バイト数を知りたいんですよね？違う？
Function YLenB(ByVal InData)
Dim Wk_Count
Dim Ix1
Wk_Count = 0
For Ix1 = 1 To Len(InData)
If (Asc(Mid(InData, Ix1, 1)) And &HFF00) = 0 Then
Wk_Count = Wk_Count + 1
Else
Wk_Count = Wk_Count + 2
End If
Next
YLenB = Wk_Count
End Function
私はこの関数を使っております。
プログラムそのまま引用してますので、大丈夫かと思いますが・・・

あと、本当に文字数を知りたいのなら、Ｌｅｎで取得出来ますよ(笑)

では　では
[1893] 無題
投稿者：ひでさん 2002/03/19 11:24:33
> こんにちは　ＹａｓＮｅｔです。
[1894] ありがとです。　ちなみに↑はごめんなさい
投稿者：ひでさん 2002/03/19 11:30:41
こんにちは　ＹａｓＮｅｔさん。
ご指摘の通り、バイト数が知りたかったのです　はい。
また、取りこんでないのでが、大丈夫だと思います
ありがとうございました。

TreeBBS For ASP V.0.1.3
Program By ＹａｓＮｅｔ