固定長のASCIIファイルを出力するには？

解決

おいぼれ 2003-10-15 12:38:50 No: 79793

VBのprint #n,xxで日本語の含まれた文字列をレコード出力すると、レコードの長さがまちまちになってしまいます。相手のアプリがレコード中のカラム位置でデータを使用するため位置がずれて困ってしまいます。全角２バイト文字は2バイトで、半角、英数字は1バイトでレイアウト通りに出力する簡単な方法はありませんでしょうか？

ねろ 2003-10-15 17:39:42 No: 79794

どの様になっているかは良く判りませんが
ＶＢ６かＶＢ５なら
とりあえず文字及文字列のバイト数は
LenB(StrConv("文字列", vbFromUnicode))で判ります。
これを使って「xx」を「レイアウト通りに」して書き込んだらいかがですか。

いちゆ 2003-10-15 18:07:52 No: 79795

>全角２バイト文字は2バイトで、半角、英数字は1バイトでレイアウト通りに出力する簡単な方法はありませんでしょうか？
ローカルの文字コードに依存しますが、

Dim strbuf() as Byte
strbuf = StrConv("abcdefあいうえお", vbFromUnicode)

などで、strbufをバイナリで書き込めば期待の書き込みになるはずです。

おいぼれ 2003-10-15 21:23:23 No: 79796

ご返答ありがとうございます。
ちょっと解かりにくいので、「全角半角交じりの文字列を後ろにスペースを詰めて、一定の長さの文字列にしたい。」（と質問を変えて見たいと思います。)
詰めるスペースを決めるための、len()は総文字数、lenB()は半角を２バイト（ユニコード）にみなしたバイト数（結局同じ？）が出てきてしまいます。strcnvもこの目的には使えませんでした。要は、「全角半角交じりの文字列の本当の長さ(?)」っていう全く基本的な命題になってしまいました。何か変ですかね。何処か勘違いしていますかね？文字全部調べて全角半角数えるの？（トホホッ）スマートじゃない。
よろしくお願いします。

吉野 2003-10-15 21:45:38 No: 79797

以下の方法で取れると思いますが・・・
左から文字長をとってくるので足らなければスペースが、多ければ切り捨てられます。

<コード>
StrConv(LeftB$(StrConv("文字列" & Space$(文字長), vbFromUnicode), 文字長), vbUnicode)

おいぼれ 2003-10-15 22:16:15 No: 79798

ありがとうございました。
すみません、やっぱりおいぼれてボケていたようで、いちゆさんのお教えで良かったのですね。そして、吉野さんので完璧ですか。ねろさんも皆さんありがとうございました。