- ベストアンサー
VBSでテキストファイルの文字列の桁数を調べたい
x0000xの回答
- x0000x
- ベストアンサー率52% (67/127)
>テキストファイルを１行ずつ読み、ある桁からある項目Ａ（20桁）…項目Ａは漢字が入ります。後ろ空白（1バイト空白）詰めです。 項目Aが発生するまでは、半角文字列だけですか？ であるなら、項目Aは strRec1 =Mid(strRecord,10,20) で正しいです。 漢字桁数は空白（全角や半角）を含まない桁数であれば、 strRec1 =Mid(strRecord,10,20) LenB(Trim(Replace(strRec1,"□",""))) 'バイト数 Len(Trim(Replace(strRec1,"□",""))) '文字数 です。 さらに、項目Aまでの間に半角と全角が混在するなら strRec1 = StrConv(MidB(StrConv(strRecord, vbFromUnicode), 10, 20), vbUnicode) LenB(Trim(Replace(strRec1,"□",""))) 'バイト数 Len(Trim(Replace(strRec1,"□",""))) '文字数 です。 項目Aに半角と全角が混在したバイト数を取得するなら strRec1 = StrConv(MidB(StrConv(strRecord, vbFromUnicode), 10, 20), vbUnicode) strRec1 = Trim(Replace(strRec1,"□","")) LenB(StrConv(strRecord, vbFromUnicode)) 'バイト数 こんな感じで如何ですか？ ※ 上記の"□"は全角の空白を示します。
関連するQ&A
- 文字列の途中の空白を除く、また、Ａ列の桁数に応じてＢ列に異なる値を記入する方法
初心者です。エクセル２０００を使います。年は若くないです。 次のことで困っています。データが多いため、ひとつひとつを手で訂正できないのです。 １．セル内の文字列に含まれる空白（スペース）を除く方法 例えば、 東 いろは→→東いろは 空白を置換して除こうとしましたがうまくいきませんでした ２．Ａ列の数字の桁数に応じて、Ｂ列に異なる数字を入れる方法。以前に教えていただいた方法＋α が必要なのです。 Ａ列の数字が ４桁 なら Ｂ列に ０１を入力 Ａ列の数字が ６桁 なら Ｂ列に ６０を入力 Ａ列の数字が ７桁 なら Ｂ列に ０６を入力 Ａ列の数字が ８桁 なら Ｂ列にＡ列の数字の上位２桁を入力 したいのです。前回次のような数式を教えてえていただきました。 =IF(LEN(A1)=4,"01",IF(LEN(A1)=6,"60",IF(LEN(A1)=7,"06",""))) ８桁のときの数式の組み立て（条件判断、表示の仕方）が分からず、困っています。教えて下さい。
- ベストアンサー
- オフィス系ソフト
- 文字列操作
VB6の質問です。 下記のような桁数不定の取得データがございます。 桁数不定の為、Mid, Left, Right関数が使用できません。 Buffer = "A12345...B678910...C" 区切り文字A、B、Cを除いてデータを取り出したのですが、どのような方法がございますか? Data1 ="12345..." Data2 ="678910..."
- ベストアンサー
- Visual Basic
- 特定文字列の抽出
VB6の質問です。 桁数、データが不定の文字列中から特定文字を抽出したいのでが、方法を教えていただけないでしょうか? 抽出したいデータの桁数が毎回不定でMid, Left, Right関数が使用できません。 Dim Buffer As String Buffer = "A12345...B678910.TRAGET..C" '桁数、データが不定の文字列がBufferに入ります。 例えば、変数Bufferから、桁数を考慮しないで"TARGET"の文字列を抽出したのです。 InStr関数で、位置を特定して、Mid関数などで抽出するれば、良いと思うのですが これをどんな桁数のときも対応できるようにルーチン化にできないでしょうか?
- ベストアンサー
- Visual Basic
- EXCELの関数でデータの桁数を揃える
桁数が1桁と2桁の混在したデータがあります。 (0,1,10,22,3,5) 機械的に入るデータなので結果を桁数を揃えたいと思っています。 (00,01,10,22,03,05) 関数などを組み合わせて桁数を揃えることは可能でしょうか？
- ベストアンサー
- オフィス系ソフト
- 有効桁数について
ある数値を５回測定したとします A 5.039 B 5.075 C 5.092 D 5.064 E 5.058 有効桁数はすべて４桁ですよね？ 次にA～Eの平均を取ると (A+B+C+D+E)/5=5.0656 と関数電卓で結果がでますが、４桁に丸めて5.066とすれば有効桁数の扱い方としては問題ないですか？ そしてA～Eの平均の２乗をするときは、上記の平均を有効桁数４桁に丸めた5.066を２乗して (5.066)^2=25.664356 となり、そして5.066の有効桁数４桁に合わして25.66とすればいいのでしょうか？ それとも平均の値を４桁に丸める前の電卓で出た値のまま２乗した後、最終的に４桁に丸めるのがいいのでしょうか？この数値だとどちらでやっても４桁にした値は変わりませんが・・・ 有効桁数の扱い方で問題があったら教えてください、また平均の２乗を求めるときはどちらが正しいのでしょうか？ （平均の値の２乗は平均×平均なのだから平均の値を４桁にせず５桁として計算すると平均の２乗は有効桁数５桁と考えるので、やはり正しく平均の値を測定値の有効桁数４桁に丸めて出した平均の値を２乗する方が正しいですかね・・・） また、上記の平均の計算をしたときのよな、「5」などの数字の有効桁数は何桁ですか？１桁なんでしょうか？もし１桁なら割り算をしているので有効桁数はいちばん桁数の少ないものに合わせるので有効桁数１となると平均の値が「5」となりおかしいとおもうんですが・・・ 上記の平均を取ったときの「５」や、測定回数の数値や、測定していない数で１００で割れと書いてあったりしたときは、それらの数字の桁数も考えなければならないんでしょうか？ 読みづらい文章かもしれませんが、ご回答待っています。
- 締切済み
- その他（学問・教育）
- テキストファイルに固定文字挿入
テキストファイル"A.csv"があります。 3個目の「,」の後に数字6桁が入っています。 他の項目は桁数可変ですが、この部分は6桁固定です。 ex. あああああ,ＡＡＡ,090523,ああああああ いい,ＢＢＢＢＢ,090101,いいいい この"090523"を"09/05/23"と置換（2桁おきに"/"を挿入）したいのですが、スキルがないため方法がわかりません。 すでにあるファイルを処理するのであれば、Ｅｘｃｅｌ読み込み後に置換処理などでなんとかなると思いますが、日次で毎日ファイルが作成されるため、自動的に処理したいのです。 ＶＢＳ、バッチなどのプログラムで一括で処理できないでしょうか。 お力添えをいただければありがたいです。 よろしくお願いいたします。
- ベストアンサー
- その他（プログラミング・開発）
- 【Access97】指定した桁数で区切りたい
txtファイルをAccessへインポートした後、項目毎に区切るためにMid関数を使用していますが、全角文字を2桁として認識してくれず区切り位置がおかしくなってしまいます。 同様の作業をExcelでやっても同じでした(添付画像参照、データは一部項目のみ抜粋)。 項目数=30個、桁数=一行につき255桁(固定)、1つのtxtファイル内のデータ行=200行以上、そのtxtファイル数が数十個あるので毎回Excelの『区切り位置指定ウィザード』を使用するのも大変です。 何とかAccessの更新クエリーで作業したいのですが、指定した位置で区切る方法、もしくは全角文字を2桁として認識させる方法はありませんか?
- ベストアンサー
- その他MS Office製品
- MID関数について
一桁から八桁までの任意の数字を１セルごとに分けたいのですが、MID関数では左から取り出すため桁数が変化すると使えません。 一桁目にMID(A1,1,1)から八桁目にMID(A１、８，１）を入れると１２３４が４３２１と逆になってしまいます。 １２でも１２３４５６７８と桁が違っても１セルごとにわけることはできないでしょうか
- ベストアンサー
- その他MS Office製品
- エクセルで、桁数の異なるデータ（整数）を抜きたしたいのですが？
初心者です！ エクセルで、例えばＡ列にある桁数の異なるデータ（整数）を抜きたしたいのですが、アドバイスをお願いします。 桁数は、９桁～１１桁の３種類のデータがあり、例えば９桁のデータを抜き出すには、どのようにすればよいのでしょうか？ 【例】 Ａ列↓ 123456789 2345678910 45874521223 235461789 4567896541 89756413578 以上、宜しくお願いします。
- ベストアンサー
- その他（インターネット・Webサービス）
- データの桁数を揃える関数をご教示下さい。
データの桁数を揃える関数をご教示下さい。 セルの内容自体を同じ桁数の文字列としたいです。 また、桁数を揃える場合に、桁数の少ない場合には、 末尾に0を追加し、桁数を揃えたいです。 ex) １０桁と１１桁と１２桁の数字が混在 ⇒１２桁に統一 120004561234(12)⇒120004561234（そのまま） 12000457131(11)⇒1200045713100（末尾に0を追加） 1200000562(10)⇒120000056200（末尾に00を追加） 以上、ご回答をよろしくお願いします。
- ベストアンサー
- オフィス系ソフト