No.1ベストアンサー
- 回答日時:
参考URLのような関数を作成すれば、ご希望のバイト長を出すことができます。
JavaScriptで書かれていますが、VBScriptからも呼び出すことができます。<SCRIPT TYPE="text/JavaScript"> ~ </SCRIPT>で囲んで、メインのスクリプトより前に記述してください。
参考URL:http://www.tohoho-web.com/js/string.htm#StrLength
この回答への補足
<SCRIPT language="JScript" SRC="./Script.js"></SCRIPT>
で呼び出してあげたらうまくいきました!
ありがとうございました。
G_Aminoさん
ありがとうございます。
「Script.js」に「jstrlen関数」を記述し、
呼び出し元のwsfに下記の記述で呼び出したところ、
<SCRIPT TYPE="text/javascript" SRC="./Script.js"></SCRIPT>
javaScriptと認識されたためか、呼び出し元ソースでエラーとなってしまいました。
wsfでも使えますでしょうか?
No.2
- 回答日時:
厳密な意味で、半角・全角ではなくて、Ansi とUnicodeの日本文字の半角文字を半角として取り扱うということです。
該当する半角だけ選りだして、その数を数えて、LenB(全体)-Len(半角)
としています。つまり、半角として認めたもののみが、半角として数えられる、ということで、実際は、もう少し時間を掛けたテストが必要かもしれません。
Function ByteChk(arg1)
Set objRe = CreateObject("VBScript.RegExp")
With objRe
.Pattern = "([\u0021-\u007e]+|[\uff61-\uff9f]+)"
.Global = True
Set Matches = .Execute(arg1)
For Each Match In Matches
LenCnt = LenCnt + Len(Match.Value)
Next
End With
ByteChk = LenB(arg1) - LenCnt
Set Matches = Nothing
Set objRe =Nothing
End Function
Wendy02さん
ありがとうございます。お礼が遅くなって申し訳ありません。
確かに全ケース洗い出してテストする必要がありそうです。
G_Aminoさんに教えていただいたものもそうですが、
一文字ずつ処理していくと処理時間がかかってしまい、
結局BASP21に頼ることにしました。
数GByte単位のファイルを処理するので・・・
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) capeofdragonと申します Excel2016を使っておりまして 半角又は全角の任意文字列が 2 2022/10/31 13:51
- その他(データベース) Accessのクエリで1フィールドの抽出条件設定をNullでなく全角半角含む空白のみの文字列でない文 1 2023/04/24 15:20
- Visual Basic(VBA) エクセルの数式で教えてください。 1 2023/07/31 15:49
- Excel(エクセル) エクセルシート中の全角英数字を半角に変換したい 4 2022/07/07 13:14
- Excel(エクセル) エクセルの数式で教えてください。 1 2023/02/02 10:20
- C言語・C++・C# VisualStudioのソースコードで漢字を使いたい 4 2022/05/21 10:16
- マウス・キーボード macからリモートデスクトップでwindowsに接続した際のキーボード配列 3 2023/07/10 08:40
- Visual Basic(VBA) 特定の文字を簡単な操作で半角スペースに変換するか削除したい 2 2022/11/01 10:35
- Access(アクセス) Accessのテキストボックスの入力文字制限 1 2023/01/18 20:43
- その他(プログラミング・Web制作) プログラミング python pandas 固定長データの出力 2 2022/08/16 11:22
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
VBScriptである文字列に半角文字が含まれているかどうか調べる方法について
Visual Basic(VBA)
-
[VBScript][wsh]byte単位でのデータの切り出し
Visual Basic(VBA)
-
VBScriptで引数を省略したい場合
その他(プログラミング・Web制作)
-
-
4
VBSでテキストファイルの文字列の桁数を調べたい
Visual Basic(VBA)
-
5
VBScriptで半角カナと半角英数字を判断する方法
その他(プログラミング・Web制作)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
英数字のみ全角から半角に変換
-
Accessで日付や数値を全角で表...
-
CString Format にて全角空白文...
-
住宅にカナを入力する際に丁目...
-
Accessのテキストボックスの入...
-
「 _ _ 」の正式名称を...
-
VBA 文字に半角が含まれて...
-
小説の点々は……と繋がらなくて...
-
C言語のコンパイルエラーなん...
-
COBOL・全角判定
-
Excelの中に全角ひらがな、漢字...
-
VBScriptの正規表現で半角スペ...
-
エクセルの検索が正しくできな...
-
COBOLでの全角文字の判定をした...
-
Word2007の全角文字、全角スペ...
-
封筒の宛先で縦書きの書き方
-
VBAの文字列の中に”(全角のダブ...
-
word差し込み印刷 半角カタカ...
-
Excel VBAでオートシェイプ内の...
-
UWSC教えて
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
英数字のみ全角から半角に変換
-
住宅にカナを入力する際に丁目...
-
全角英数字の必要性が理解できない
-
Excel関数またはVBAでの質問に...
-
エクセルにMicrosoft Barcode C...
-
IEからEdgeへの移行に伴うIMEの...
-
VBA 文字に半角が含まれて...
-
COBOL・全角判定
-
プログラミングでは、半角括弧...
-
word差し込み印刷 半角カタカ...
-
メモ帳の段落の揃え方
-
よくアカウント等に使われる 半...
-
Accessのテキストボックスの入...
-
ダブルコーテーションの置換
-
エクセルでの”々”の扱い
-
小説の点々は……と繋がらなくて...
-
大文字と全角文字は同じ意味で...
-
[VBScript]バイト長の判定
-
封筒の宛先で縦書きの書き方
-
VBで、String型のデータが、...
おすすめ情報